[Emacs-diffs] /srv/bzr/emacs/trunk r108270: * lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).

[Stefan Monnier]

------------------------------------------------------------
revno: 108270
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-05-17 17:40:47 -0400
message:
  * lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...).
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/pcase.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-05-17 21:39:36 +0000
+++ b/lisp/ChangeLog    2012-05-17 21:40:47 +0000
@@ -1,5 +1,7 @@
 2012-05-17  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/pcase.el'
--- a/lisp/emacs-lisp/pcase.el  2012-05-15 18:45:27 +0000
+++ b/lisp/emacs-lisp/pcase.el  2012-05-17 21:40:47 +0000
@@ -557,7 +557,8 @@
                                         (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