aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2014-10-14 22:00:20 -0400
committerStefan Monnier2014-10-14 22:00:20 -0400
commit6d81466ac65eb84cb77eaa73e589628b5afcb963 (patch)
tree3e1e8fe0652c104f52412e8f753615f76bfb06ba
parente01955dfb3f1f47a11c9f1f907ef9234987f47d4 (diff)
downloademacs-6d81466ac65eb84cb77eaa73e589628b5afcb963.tar.gz
emacs-6d81466ac65eb84cb77eaa73e589628b5afcb963.zip
* lisp/emacs-lisp/lisp.el (lisp--local-variables-1): Handle `quote'.
Backported. Fixes: debbugs:18688
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/emacs-lisp/lisp.el1
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b99ae2f22f..7e09336183c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
12014-10-15 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * emacs-lisp/lisp.el (lisp--local-variables-1): Handle `quote'.
4 Backported (bug#18688).
5
12014-10-14 Eli Zaretskii <eliz@gnu.org> 62014-10-14 Eli Zaretskii <eliz@gnu.org>
2 7
3 * emacs-lisp/tabulated-list.el (tabulated-list-mode): Force 8 * emacs-lisp/tabulated-list.el (tabulated-list-mode):
4 bidi-paragraph-direction to 'left-to-right'. This fixes 9 Force bidi-paragraph-direction to 'left-to-right'. This fixes
5 buffer-menu display when the first buffer happens to start with 10 buffer-menu display when the first buffer happens to start with
6 R2L letter. 11 R2L letter.
7 12
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 80366db33d5..a7de1bd255e 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -711,6 +711,7 @@ considered."
711 (`(condition-case ,v ,_ . ,catches) 711 (`(condition-case ,v ,_ . ,catches)
712 (lisp--local-variables-1 712 (lisp--local-variables-1
713 (cons v vars) (cdr (car (last catches))))) 713 (cons v vars) (cdr (car (last catches)))))
714 (`(quote . ,_) (setq sexp nil))
714 (`(,_ . ,_) 715 (`(,_ . ,_)
715 (lisp--local-variables-1 vars (car (last sexp)))) 716 (lisp--local-variables-1 vars (car (last sexp))))
716 (`lisp--witness--lisp (or vars '(nil))) 717 (`lisp--witness--lisp (or vars '(nil)))