diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-26 14:21:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-26 14:21:03 -0400 |
| commit | 657c21e46b0b1262421c27040e50bccb35b01cd6 (patch) | |
| tree | 5421bbfd51ca88ff96fa1be99e3c7698415dec5b | |
| parent | e95a67dc75c3d41c428d6e215426f321b5a2f9e5 (diff) | |
| download | emacs-657c21e46b0b1262421c27040e50bccb35b01cd6.tar.gz | |
* lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.
Fixes: debbugs:11352
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/assoc.el | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a02521ca147..87b525d7e66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,6 @@ 2012-04-26 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue (bug#11352). * term/ns-win.el (ns-define-service): * progmodes/pascal.el (pascal-goto-defun): diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el index d3185c444d7..8e6f7711d5b 100644 --- a/lisp/emacs-lisp/assoc.el +++ b/lisp/emacs-lisp/assoc.el @@ -101,6 +101,7 @@ returned. If no key-value pair matching KEY could be found in ALIST, or ALIST is nil then nil is returned. ALIST is not altered." + (defvar copy) (let ((copy (copy-alist alist))) (cond ((null alist) nil) ((progn (asort 'copy key) |