diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-27 11:26:31 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-27 11:47:55 +0200 |
| commit | 3d2d7e8ea235a13543ed475836f8f7ea4c88520e (patch) | |
| tree | 59ac0734edf406cc50eff6cbbdd216049d56ca54 /lisp/emacs-lisp/cl-macs.el | |
| parent | 2403deca2bcffc62ff80e4c90a61fea1ea30a768 (diff) | |
| download | emacs-3d2d7e8ea235a13543ed475836f8f7ea4c88520e.tar.gz emacs-3d2d7e8ea235a13543ed475836f8f7ea4c88520e.tar.bz2 emacs-3d2d7e8ea235a13543ed475836f8f7ea4c88520e.zip | |
Fix automatic filling of docstring in cl-defstruct
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix bug where a paragraph
was filled as if it were a single line, which led to garbled
output in the docstring. (Bug#50839)
* test/lisp/subr-tests.el
(subr-test-internal--format-docstring-line): New test.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 833c1d19737..4e0e323cfa1 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -3080,12 +3080,12 @@ Supported keywords for slots are: `(nth ,pos cl-x)))))) (push slot slots) (push default-value defaults) - ;; The arg "cl-x" is referenced by name in eg pred-form + ;; The arg "cl-x" is referenced by name in e.g. pred-form ;; and pred-check, so changing it is not straightforward. (push `(,defsym ,accessor (cl-x) - ,(internal--format-docstring-line - "Access slot \"%s\" of `%s' struct CL-X.%s" - slot name + ,(concat + (internal--format-docstring-line + "Access slot \"%s\" of `%s' struct CL-X." slot name) (if doc (concat "\n" doc) "")) (declare (side-effect-free t)) ,access-body) |