diff options
| author | Stefan Monnier | 2014-10-14 22:00:20 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-10-14 22:00:20 -0400 |
| commit | 6d81466ac65eb84cb77eaa73e589628b5afcb963 (patch) | |
| tree | 3e1e8fe0652c104f52412e8f753615f76bfb06ba | |
| parent | e01955dfb3f1f47a11c9f1f907ef9234987f47d4 (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 1 |
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 @@ | |||
| 1 | 2014-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 | |||
| 1 | 2014-10-14 Eli Zaretskii <eliz@gnu.org> | 6 | 2014-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))) |