mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 11:20:39 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.

Browse source 
Fixes: debbugs:11352
This commit is contained in:
Stefan Monnier 2012-04-26 14:21:03 -04:00
parent e95a67dc75
commit 657c21e46b
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,5 +1,6 @@
2012-04-26 Stefan Monnier <monnier@iro.umontreal.ca> 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): * term/ns-win.el (ns-define-service):
* progmodes/pascal.el (pascal-goto-defun): * progmodes/pascal.el (pascal-goto-defun):

1
lisp/emacs-lisp/assoc.el
View file

@ -101,6 +101,7 @@ returned.
If no key-value pair matching KEY could be found in ALIST, or ALIST is If no key-value pair matching KEY could be found in ALIST, or ALIST is
nil then nil is returned. ALIST is not altered." nil then nil is returned. ALIST is not altered."
(defvar copy)
(let ((copy (copy-alist alist))) (let ((copy (copy-alist alist)))
(cond ((null alist) nil) (cond ((null alist) nil)
((progn (asort 'copy key) ((progn (asort 'copy key)