From 9abdc45d8af50112c9afe3c8ee62ad4b9cce47ed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 May 2012 17:40:47 -0400 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--u1): Avoid ((lambda ...) ...). --- lisp/ChangeLog | 2 ++ lisp/emacs-lisp/pcase.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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 -- 2.39.2