From: Glenn Morris Date: Thu, 14 Nov 2013 02:44:54 +0000 (-0800) Subject: * lisp/obsolete/assoc.el (aget): Prefix dynamic variable. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~834 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c276bdd9e23690dddc0888845234da081a36ff7;p=emacs.git * lisp/obsolete/assoc.el (aget): Prefix dynamic variable. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fb153fec66..2fd6cbc1aca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-11-14 Glenn Morris + + * obsolete/assoc.el (aget): Prefix dynamic variable. + + * allout-widgets.el (allout-widgets): No need to autoload defgroup. + 2013-11-14 Stefan Monnier * widget.el, hfy-cmap.el: Remove bogus package version number. diff --git a/lisp/obsolete/assoc.el b/lisp/obsolete/assoc.el index 9d8ffed4c9c..acf79a284c0 100644 --- a/lisp/obsolete/assoc.el +++ b/lisp/obsolete/assoc.el @@ -102,14 +102,14 @@ 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))) + (defvar assoc--copy) + (let ((assoc--copy (copy-alist alist))) (cond ((null alist) nil) - ((progn (asort 'copy key) - (anot-head-p copy key)) nil) - ((cdr (car copy))) + ((progn (asort 'assoc--copy key) ; dynamic binding + (anot-head-p assoc--copy key)) nil) + ((cdr (car assoc--copy))) (keynil-p nil) - ((car (car copy))) + ((car (car assoc--copy))) (t nil))))