diff options
| author | Kenichi Handa <handa@gnu.org> | 2013-05-23 00:12:59 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@gnu.org> | 2013-05-23 00:12:59 +0900 |
| commit | e1b96d7e637cf76864013f8dba68135f07638ab8 (patch) | |
| tree | 1a2ccd5961a60f0268a37444071e8cd7a2255fbc /lisp/emacs-lisp/cl-extra.el | |
| parent | e6d2f1553635a746396f2f4261dde31e03e0fdd1 (diff) | |
| parent | 5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0 (diff) | |
| download | emacs-e1b96d7e637cf76864013f8dba68135f07638ab8.tar.gz emacs-e1b96d7e637cf76864013f8dba68135f07638ab8.tar.bz2 emacs-e1b96d7e637cf76864013f8dba68135f07638ab8.zip | |
merge trunk
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 34892bf2fef..70ad1283cb2 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -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, |