Commit 657c21e4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Fixes: debbugs:11352
parent e95a67dc
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):
......
...@@ -101,6 +101,7 @@ returned. ...@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment