From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 8 Sep 2021 08:28:15 +0000 (+0200)
Subject: Further tweak describe-variable look
X-Git-Tag: emacs-28.0.90~1101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bd26ed69770b2995c3f3d90b017048429bd1ffe;p=emacs.git

Further tweak describe-variable look

* lisp/help-fns.el (describe-variable): Tweak how long variable
values are shown.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 3f1b56c888d..a7219ede944 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1222,7 +1222,14 @@ it is displayed along with the global value."
               ;; Output the indented administrative bits.
               (with-current-buffer buffer
                 (help-fns--run-describe-functions
-                 help-fns-describe-variable-functions variable)))
+                 help-fns-describe-variable-functions variable))
+
+              (with-current-buffer standard-output
+                ;; If we have the long value of the variable at the
+                ;; end, remove superfluous empty lines before it.
+                (unless (eobp)
+                  (while (looking-at-p "\n")
+                    (delete-char 1)))))
 
 	    (with-current-buffer standard-output
 	      ;; Return the text we displayed.