master c4866ad: Tweak the whitespace before "This is a generic function"

[Lars Ingebrigtsen]

branch: master
commit c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/emacs-lisp/cl-generic.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 1640975..4834fb1 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))