[elpa] externals/auctex 3c03ee089a 01/37: Add missing alternative for custom type

[Tassilo Horn]

branch: externals/auctex
commit 3c03ee089a2b74d0d5a0285f983a9eba82dc04a5
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@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 6c51a14654..642c7a9ae2 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 6f74f75a3c..7f9abdc88e 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