diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-29 08:25:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-29 08:25:14 +0200 |
| commit | c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885 (patch) | |
| tree | bd4c0c0a37a0ddf6c3f256c85a8c1277bb87da6f /lisp/emacs-lisp | |
| parent | 3efa45849ab02b4c331d6d3d8a41ba03a1ef016a (diff) | |
| download | emacs-c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885.tar.gz emacs-c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885.tar.bz2 emacs-c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885.zip | |
Tweak the whitespace before "This is a generic function"
* lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Make the
number of blank lines before this section consistent (whether
there's an indented section before it or not).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 1640975b84f..4834fb13c6a 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -1026,7 +1026,10 @@ MET-NAME is as returned by `cl--generic-load-hist-format'." (when generic (require 'help-mode) ;Needed for `help-function-def' button! (save-excursion - (insert "\n\nThis is a generic function.\n\n") + ;; Ensure that we have two blank lines (but not more). + (unless (looking-back "\n\n" (- (point) 2)) + (insert "\n")) + (insert "This is a generic function.\n\n") (insert (propertize "Implementations:\n\n" 'face 'bold)) ;; Loop over fanciful generics (dolist (method (cl--generic-method-table generic)) |