procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow newlines inside cl function arglists

Browse source 
* lisp/help.el (help-add-fundoc-usage): Allow newlines inside
ARGLIST (bug#21839).
This commit is contained in:
Dmitry Gutov 2016-05-10 02:53:20 +03:00
parent 963541a654
commit d0d9f55b63
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/help.el
View file

@ -1395,7 +1395,7 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"."
(if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "")
"\n\n") "\n\n")
(if (stringp arglist) (if (stringp arglist)
(if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) (if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist)
(concat "(fn" (match-string 1 arglist) ")") (concat "(fn" (match-string 1 arglist) ")")
(error "Unrecognized usage format")) (error "Unrecognized usage format"))
(help--make-usage-docstring 'fn arglist))))) (help--make-usage-docstring 'fn arglist)))))