diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 17:40:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 17:40:47 -0400 |
| commit | 9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed (patch) | |
| tree | 184d497787af40fbd3c37800bb729daac113ee60 /lisp | |
| parent | b1198e177ffc930aaf60c66f1a0b3d54db8ba3b1 (diff) | |
| download | emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.tar.gz emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.tar.bz2 emacs-9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cdb8217ed2c..043797ba7ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2012-05-17 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...). + * emacs-lisp/cl.el: Add edebug specs from cl-specs.el. * emacs-lisp/cl-macs.el: Idem. * emacs-lisp/cl-specs.el: Remove. diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 28eaa3d3455..67b19443967 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -557,7 +557,8 @@ Otherwise, it defers to REST which is a list of branches of the form (let ((newsym (make-symbol "x"))) (push (list newsym sym) env) (setq sym newsym))) - (if (functionp exp) `(,exp ,sym) + (if (functionp exp) + `(funcall #',exp ,sym) `(,@exp ,sym))))) (if (null vs) call |