branch: externals/auctex
commit 3f7742f95b41ccf159ffe1b2806e4d2638e4a4b8
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
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)
