diff options
| author | Anders Lindgren <andlind@gmail.com> | 2015-10-28 12:09:51 +0100 |
|---|---|---|
| committer | Anders Lindgren <andlind@gmail.com> | 2015-10-28 12:09:51 +0100 |
| commit | cc587a3539612d250d222363b18d15258e33f82a (patch) | |
| tree | 00c74927ef3da99c7226cbaf586d439e0236b85c /lisp/help.el | |
| parent | 590449f3d87f8f43eb0a852233e8945ecbe1c6aa (diff) | |
| parent | 64c2bfbc4f5daba2ee55acb58a2929070a846b6e (diff) | |
| download | emacs-cc587a3539612d250d222363b18d15258e33f82a.tar.gz | |
Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/emacs
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 3387628fb8a..c558b652b7e 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1394,9 +1394,10 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." (if (string-match "\n?\n\\'" docstring) (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") "\n\n") - (if (and (stringp arglist) - (string-match "\\`([^ ]+\\(.*\\))\\'" arglist)) - (concat "(fn" (match-string 1 arglist) ")") + (if (stringp arglist) + (if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) + (concat "(fn" (match-string 1 arglist) ")") + (error "Unrecognized usage format")) (help--make-usage-docstring 'fn arglist))))) (defun help-function-arglist (def &optional preserve-names) |