[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3b72b47cbd: * lisp/progmodes/elisp-mode.el (elisp--local-variable
From: |
Stefan Monnier |
Subject: |
master 3b72b47cbd: * lisp/progmodes/elisp-mode.el (elisp--local-variables-1): Fix bug#50034 |
Date: |
Tue, 23 Aug 2022 10:16:08 -0400 (EDT) |
branch: master
commit 3b72b47cbd3e1a4b575d5ecc886e506d22a50a0c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/progmodes/elisp-mode.el (elisp--local-variables-1): Fix bug#50034
Don't burp if the arg list of a function is not actually a list.
---
lisp/progmodes/elisp-mode.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 4617a01947..9dc67010aa 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -383,7 +383,9 @@ be used instead.
(setq sexp nil))
(`(lambda ,args . ,body)
(elisp--local-variables-1
- (append (remq '&optional (remq '&rest args)) vars)
+ (let ((args (if (listp args) args)))
+ ;; FIXME: Exit the loop if witness is in args.
+ (append (remq '&optional (remq '&rest args)) vars))
(car (last body))))
(`(condition-case ,_ ,e) (elisp--local-variables-1 vars e))
(`(condition-case ,v ,_ . ,catches)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3b72b47cbd: * lisp/progmodes/elisp-mode.el (elisp--local-variables-1): Fix bug#50034,
Stefan Monnier <=