branch: master
commit 3c03ee089a2b74d0d5a0285f983a9eba82dc04a5
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Add missing alternative for custom type
* tex-fold.el (TeX-fold-env-spec-list)
(TeX-fold-math-spec-list):
* latex.el (LaTeX-fold-macro-spec-list)
(LaTeX-fold-env-spec-list,LaTeX-fold-math-spec-list)
Allow function as alternative for the fold spec list.
---
latex.el | 9 ++++++---
tex-fold.el | 6 ++++--
2 files changed, 10 insertions(+), 5 deletions(-)
diff --git a/latex.el b/latex.el
index 6c51a146..642c7a9a 100644
--- a/latex.el
+++ b/latex.el
@@ -6451,14 +6451,16 @@ char."
(defcustom LaTeX-fold-macro-spec-list nil
"List of display strings and macros to fold in LaTeX mode."
:type '(repeat (group (choice (string :tag "Display String")
- (integer :tag "Number of argument" :value 1))
+ (integer :tag "Number of argument" :value 1)
+ (function :tag "Function to execute"))
(repeat :tag "Macros" (string))))
:group 'TeX-fold)
(defcustom LaTeX-fold-env-spec-list nil
"List of display strings and environments to fold in LaTeX mode."
:type '(repeat (group (choice (string :tag "Display String")
- (integer :tag "Number of argument" :value 1))
+ (integer :tag "Number of argument" :value 1)
+ (function :tag "Function to execute"))
(repeat :tag "Environments" (string))))
:group 'TeX-fold)
@@ -6484,7 +6486,8 @@ char."
,@LaTeX-math-default)))
"List of display strings and math macros to fold in LaTeX mode."
:type '(repeat (group (choice (string :tag "Display String")
- (integer :tag "Number of argument" :value 1))
+ (integer :tag "Number of argument" :value 1)
+ (function :tag "Function to execute"))
(repeat :tag "Math Macros" (string))))
:group 'TeX-fold)
diff --git a/tex-fold.el b/tex-fold.el
index 6f74f75a..7f9abdc8 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -131,7 +131,8 @@ and <mode-prefix>-fold-macro-spec-list.")
'(("[comment]" ("comment")))
"List of display strings and environments to fold."
:type '(repeat (group (choice (string :tag "Display String")
- (integer :tag "Number of argument" :value 1))
+ (integer :tag "Number of argument" :value 1)
+ (function :tag "Function to execute"))
(repeat :tag "Environments" (string)))))
(defvar TeX-fold-env-spec-list-internal nil
@@ -145,7 +146,8 @@ and <mode-prefix>-fold-env-spec-list.")
(defcustom TeX-fold-math-spec-list nil
"List of display strings and math macros to fold."
:type '(repeat (group (choice (string :tag "Display String")
- (integer :tag "Number of argument" :value 1))
+ (integer :tag "Number of argument" :value 1)
+ (function :tag "Function to execute"))
(repeat :tag "Math Macros" (string)))))
(defvar TeX-fold-math-spec-list-internal nil
