diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-11-13 18:44:54 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-11-13 18:44:54 -0800 |
| commit | 1c276bdd9e23690dddc0888845234da081a36ff7 (patch) | |
| tree | a949c9036760203d6b84e0eab06099d52d2bac69 /lisp/obsolete | |
| parent | e3d71abf441c0c8c4685de2b2c1bce51004bda97 (diff) | |
| download | emacs-1c276bdd9e23690dddc0888845234da081a36ff7.tar.gz | |
* lisp/obsolete/assoc.el (aget): Prefix dynamic variable.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/assoc.el | 12 |
1 files changed, 6 insertions, 6 deletions
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)))) |