diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 11:15:51 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-17 11:15:51 -0400 |
| commit | ac348012f4f956fa7e64535a3875a32cff91503c (patch) | |
| tree | 3c962f2290d78045e750322058a747b43e737f5b /lisp/emacs-lisp | |
| parent | ab414ba198cb4ad35506ae35886dfc0164f880f0 (diff) | |
| download | emacs-ac348012f4f956fa7e64535a3875a32cff91503c.tar.gz emacs-ac348012f4f956fa7e64535a3875a32cff91503c.tar.bz2 emacs-ac348012f4f956fa7e64535a3875a32cff91503c.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious
parens around the arg list.
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 8050da400fe..66fafb9ba41 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -318,8 +318,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))))))) |