emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master bbc34d3: Try and improve the *Help* layout for things like `diff-


From: Stefan Monnier
Subject: master bbc34d3: Try and improve the *Help* layout for things like `diff-refine`.
Date: Tue, 5 May 2020 17:53:29 -0400 (EDT)

branch: master
commit bbc34d3762326ea13e9a10a959ea5b59aadb6736
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    Try and improve the *Help* layout for things like `diff-refine`.
    
    * lisp/help-fns.el (describe-variable-custom-version-info): Follow the
    usual format of other `help-fns-describe-variable-functions`.
---
 lisp/help-fns.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 0a99b8d..63b066f 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -893,7 +893,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
        (output nil))
     (if custom-version
        (setq output
-             (format "This %s was introduced, or its default value was 
changed, in\nversion %s of Emacs.\n"
+             (format "  This %s was introduced, or its default value was 
changed, in\n  version %s of Emacs.\n"
                       type custom-version))
       (when cpv
        (let* ((package (car-safe cpv))
@@ -904,7 +904,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
               (emacsv (cdr (assoc version pkg-versions))))
          (if (and package version)
              (setq output
-                   (format (concat "This %s was introduced, or its default 
value was changed, in\nversion %s of the %s package"
+                   (format (concat "  This %s was introduced, or its default 
value was changed, in\n  version %s of the %s package"
                                    (if emacsv
                                        (format " that is part of Emacs %s" 
emacsv))
                                    ".\n")
@@ -1125,8 +1125,8 @@ it is displayed along with the global value."
     ;; Note variable's version or package version.
     (let ((output (describe-variable-custom-version-info variable)))
       (when output
-       (terpri)
-       (terpri)
+       ;; (terpri)
+       ;; (terpri)
        (princ output)))))
 
 (add-hook 'help-fns-describe-variable-functions #'help-fns--var-safe-local)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]