diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-10 02:53:20 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-10 02:53:20 +0300 |
| commit | d0d9f55b632717fccb605e0a204ebdd5ffe8608f (patch) | |
| tree | 0ec0571aae62ee3f36a7106840f8e0d3b0a0079b | |
| parent | 963541a6540c40559645c312cea7f35c3c649556 (diff) | |
| download | emacs-d0d9f55b632717fccb605e0a204ebdd5ffe8608f.tar.gz | |
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 ...)\"." (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") "\n\n") (if (stringp arglist) - (if (string-match "\\`[^ ]+\\(.*\\))\\'" arglist) + (if (string-match "\\`[^ ]+\\(\\(?:.\\|\n\\)*\\))\\'" arglist) (concat "(fn" (match-string 1 arglist) ")") (error "Unrecognized usage format")) (help--make-usage-docstring 'fn arglist))))) |