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).
This commit is contained in:
Lars Ingebrigtsen 2021-09-29 08:25:14 +02:00
parent 3efa45849a
commit c4866ad1ac

View file

@ -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))