diff options
| author | Dmitry Gutov | 2016-05-10 02:53:20 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2016-05-10 02:53:20 +0300 |
| commit | d0d9f55b632717fccb605e0a204ebdd5ffe8608f (patch) | |
| tree | 0ec0571aae62ee3f36a7106840f8e0d3b0a0079b | |
| parent | 963541a6540c40559645c312cea7f35c3c649556 (diff) | |
| download | emacs-d0d9f55b632717fccb605e0a204ebdd5ffe8608f.tar.gz emacs-d0d9f55b632717fccb605e0a204ebdd5ffe8608f.zip | |
Allow newlines inside cl function arglists
* lisp/help.el (help-add-fundoc-usage): Allow newlines inside
ARGLIST (bug#21839).
| -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 061daacfdd3..72893754e1e 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1395,7 +1395,7 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." | |||
| 1395 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") | 1395 | (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") |
| 1396 | "\n\n") | 1396 | "\n\n") |
| 1397 | (if (stringp arglist) | 1397 | (if (stringp arglist) |
| 1398 | (if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) | 1398 | (if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist) |
| 1399 | (concat "(fn" (match-string 1 arglist) ")") | 1399 | (concat "(fn" (match-string 1 arglist) ")") |
| 1400 | (error "Unrecognized usage format")) | 1400 | (error "Unrecognized usage format")) |
| 1401 | (help--make-usage-docstring 'fn arglist))))) | 1401 | (help--make-usage-docstring 'fn arglist))))) |