mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/assoc.el (aput): Fix return value

Browse Source 
Fixes: debbugs:10146
This commit is contained in:
Christopher Genovese 2011-12-05 17:22:15 -05:00 committed by Stefan Monnier
parent 71cc0b7439
commit e65adfac3b
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2011-12-05 Christopher Genovese <genovese.cr@gmail.com> (tiny change)
* emacs-lisp/assoc.el (aput): Fix return value (bug#10146)
2011-12-05 Eli Zaretskii <eliz@gnu.org>
* descr-text.el (describe-char): Fix display of strong

7
lisp/emacs-lisp/assoc.el
View File

@ -61,10 +61,9 @@ pair is not at the head of alist. ALIST is not altered."
(defun aput (alist-symbol key &optional value)
"Inserts a key-value pair into an alist.
"Insert a key-value pair into an alist.
The alist is referenced by ALIST-SYMBOL. The key-value pair is made
from KEY and optionally, VALUE. Returns the altered alist or nil if
ALIST is nil.
from KEY and optionally, VALUE. Returns the altered alist.
If the key-value pair referenced by KEY can be found in the alist, and
VALUE is supplied non-nil, then the value of KEY will be set to VALUE.
@ -78,7 +77,7 @@ of the alist (with value nil if VALUE is nil or not supplied)."
(setq alist (symbol-value alist-symbol))
(cond ((null alist) (set alist-symbol elem))
((anot-head-p alist key) (set alist-symbol (nconc elem alist)))
(value (setcar alist (car elem)))
(value (setcar alist (car elem)) alist)
(t alist))))