diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-21 23:16:45 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-21 23:16:45 -0500 |
| commit | 938bca8e4141f5f96497f9be26b0ea0bb90f40cd (patch) | |
| tree | cfa26e5839a34c2b8e7aa896bf7b5bfda731a1bb /lisp/help.el | |
| parent | 74244d239e9093035c369721b469529a5fdaf1c6 (diff) | |
| download | emacs-938bca8e4141f5f96497f9be26b0ea0bb90f40cd.tar.gz | |
Avoid generating invalid usage info for pathological function
Fixes: debbugs:19645
* lisp/help.el (help-make-usage): Don't turn a "_" arg into an empty-string.
* lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): Don't confuse a string
body with a docstring.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 39ec6be1fde..bf724252d5a 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1445,7 +1445,7 @@ the same names as used in the original source code, when possible." (let ((name (symbol-name arg))) (cond ((string-match "\\`&" name) arg) - ((string-match "\\`_" name) + ((string-match "\\`_." name) (intern (upcase (substring name 1)))) (t (intern (upcase name))))))) arglist))) |