mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-extra.el (cl-getf): Return the proper value in

Browse source 
the setter.

Fixes: debbugs:14387
This commit is contained in:
Stefan Monnier 2013-05-14 22:00:07 -04:00
parent 5ac2eb344f
commit c46c57b096
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-extra.el
View file

@ -597,8 +597,11 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
(macroexp-let2 nil d def
(funcall do `(cl-getf ,getter ,k ,d)
(lambda (v)
(funcall setter
`(cl--set-getf ,getter ,k ,v))))))))))
(macroexp-let2 nil val v
`(progn
,(funcall setter
`(cl--set-getf ,getter ,k ,val))
,val))))))))))
(setplist '--cl-getf-symbol-- plist)
(or (get '--cl-getf-symbol-- tag)
;; Originally we called cl-get here,