procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/obsolete/assoc.el (aget): Prefix dynamic variable.

Browse source
This commit is contained in:
Glenn Morris 2013-11-13 18:44:54 -08:00
parent e3d71abf44
commit 1c276bdd9e
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-11-14 Glenn Morris <rgm@gnu.org>
* obsolete/assoc.el (aget): Prefix dynamic variable.
* allout-widgets.el (allout-widgets): No need to autoload defgroup.
2013-11-14 Stefan Monnier <monnier@iro.umontreal.ca>
* widget.el, hfy-cmap.el: Remove bogus package version number.

12
lisp/obsolete/assoc.el
View file

@ -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))))