From c4866ad1ac856b5c34c38b7dd5818c5ef2a2b885 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 29 Sep 2021 08:25:14 +0200 Subject: [PATCH] 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 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)) -- 2.39.2