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 /lisp/emacs-lisp | |
| parent | e95a67dc75c3d41c428d6e215426f321b5a2f9e5 (diff) | |
| download | emacs-657c21e46b0b1262421c27040e50bccb35b01cd6.tar.gz | |
* lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.
Fixes: debbugs:11352
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/assoc.el | 1 |
1 files changed, 1 insertions, 0 deletions
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) |