From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 26 Apr 2012 18:21:03 +0000 (-0400)
Subject: * lisp/emacs-lisp/assoc.el (aget): Fix dynamic-scoping issue.
X-Git-Tag: emacs-24.2.90~471^2~259
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=657c21e46b0b1262421c27040e50bccb35b01cd6;p=emacs.git

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

Fixes: debbugs:11352
---

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)