diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 11:17:53 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 11:17:53 -0400 |
| commit | 6d4a05e3e06c9891ba953c28eb5a721cce412a9a (patch) | |
| tree | 96b258adf53e35ad22a57d2acd036182acf5f2f5 /lisp/emacs-lisp | |
| parent | 77e1259ea00f89904dfcdbd863cc63cdfa7f5112 (diff) | |
| download | emacs-6d4a05e3e06c9891ba953c28eb5a721cce412a9a.tar.gz emacs-6d4a05e3e06c9891ba953c28eb5a721cce412a9a.tar.bz2 emacs-6d4a05e3e06c9891ba953c28eb5a721cce412a9a.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious
parens around the arg list. Silly backport.
Fixes: debbugs:11499
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 5 |
1 files changed, 3 insertions, 2 deletions
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))))))) |