From 6d4a05e3e06c9891ba953c28eb5a721cce412a9a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 May 2012 11:17:53 -0400 Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious parens around the arg list. Silly backport. Fixes: debbugs:11499 --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/cl-macs.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9a668fa2704..ac5783b7951 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-05-17 Stefan Monnier + + * emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious + parens around the arg list (bug#11499). Silly backport. + 2012-05-16 Chong Yidong * net/gnutls.el (gnutls-min-prime-bits): Improve docstring. diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4fc71bbbc60..f58fc70053f 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -313,8 +313,9 @@ It is a list of elements of the form either: (require 'help-fns) (cons (help-add-fundoc-usage (if (stringp (car hdr)) (pop hdr)) - (format "(fn %S)" - (cl--make-usage-args orig-args))) + (format "%S" + (cons 'fn + (cl--make-usage-args orig-args)))) hdr))) (list (nconc (list 'let* bind-lets) (nreverse bind-forms) body))))))) -- 2.39.2