[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108048: * lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.

[Stefan Monnier]

------------------------------------------------------------
revno: 108048
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11352
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-04-26 14:21:03 -0400
message:
  * lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/assoc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-26 12:43:28 +0000
+++ b/lisp/ChangeLog    2012-04-26 18:21:03 +0000
@@ -1,5 +1,6 @@
 2012-04-26  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue (bug#11352).
 
        * term/ns-win.el (ns-define-service):
        * progmodes/pascal.el (pascal-goto-defun):

=== modified file 'lisp/emacs-lisp/assoc.el'
--- a/lisp/emacs-lisp/assoc.el  2012-04-26 12:43:28 +0000
+++ b/lisp/emacs-lisp/assoc.el  2012-04-26 18:21:03 +0000
@@ -101,6 +101,7 @@
 
 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)