Signal error on newline in internal--format-docstring-line

* lisp/subr.el (internal--format-docstring-line): Signal error
when trying to fill a line containing a newline.

* lisp/cedet/semantic/decorate/mode.el
(define-semantic-decoration-style):
* lisp/emacs-lisp/easy-mmode.el (define-globalized-minor-mode):
Don't pass newlines to 'internal--format-docstring-line'.
This commit is contained in:
Stefan Kangas 2021-09-28 13:30:02 +02:00
parent 73b2b9f67a
commit b27a8f1554
3 changed files with 14 additions and 7 deletions

View file

@ -496,15 +496,17 @@ on if the hook has explicitly disabled it.
(define-minor-mode ,global-mode
,(concat (format "Toggle %s in all buffers.\n" pretty-name)
(internal--format-docstring-line
"With prefix ARG, enable %s if ARG is positive; otherwise, \
disable it.\n\n"
(concat "With prefix ARG, enable %s if ARG is positive; "
"otherwise, disable it.")
pretty-global-name)
"\n\n"
"If called from Lisp, toggle the mode if ARG is `toggle'.
Enable the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.\n\n"
(internal--format-docstring-line
"%s is enabled in all buffers where `%s' would do it.\n\n"
"%s is enabled in all buffers where `%s' would do it."
pretty-name turn-on)
"\n\n"
(internal--format-docstring-line
"See `%s' for more information on %s."
mode pretty-name)