[elpa] externals/auctex 3f7742f95b 18/30: Process lambda expressions correctly

[Tassilo Horn]

branch: externals/auctex
commit 3f7742f95b41ccf159ffe1b2806e4d2638e4a4b8
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Process lambda expressions correctly
    
    * latex.el (TeX-read-key-val, TeX-read-completing-read)
    (TeX-read-completing-read-multiple, LaTeX-completion-parse-arg):
    Check explicitly if the argument is a lambda expession and handle
    it correctly.
---
 latex.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/latex.el b/latex.el
index 5e8845554c..a18592d3ce 100644
--- a/latex.el
+++ b/latex.el
@@ -3308,7 +3308,8 @@ which see."
                         complete)
    (cond ((and (listp key-val-alist)
                (symbolp (car key-val-alist))
-               (fboundp (car key-val-alist)))
+               (fboundp (car key-val-alist))
+               (not (eq (car key-val-alist) 'lambda)))
           (funcall (car key-val-alist)))
          ((functionp key-val-alist)
           (funcall key-val-alist))
@@ -3396,7 +3397,8 @@ INHERIT-INPUT-METHOD are passed to `completing-read', 
which see."
                         complete)
    (cond ((and (listp collection)
                (symbolp (car collection))
-               (fboundp (car collection)))
+               (fboundp (car collection))
+               (not (eq (car collection) 'lambda)))
           (funcall (car collection)))
          ((functionp collection)
           (funcall collection))
@@ -3460,7 +3462,8 @@ INHERIT-INPUT-METHOD are passed to
                         complete)
    (cond ((and (listp table)
                (symbolp (car table))
-               (fboundp (car table)))
+               (fboundp (car table))
+               (not (eq (car table) 'lambda)))
           (funcall (car table)))
          ((functionp table)
           (funcall table))
@@ -7854,8 +7857,9 @@ ARG is the entry for the current argument in buffer 
stored in
            (fun1 (lambda (elt)
                    (cond ((and (listp elt)
                                (symbolp (car elt))
-                               (fboundp (car elt)))
-                          ;; It is a function call:
+                               (fboundp (car elt))
+                               (not (eq (car elt) 'lambda)))
+                          ;; It is a named function and not anonymous:
                           (funcall (car elt)))
                          ;; It is a function object
                          ((functionp elt)