]> git.eshelyaron.com Git - emacs.git/commitdiff
Try and improve the *Help* layout for things like `diff-refine`.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 5 May 2020 21:53:23 +0000 (17:53 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 5 May 2020 21:53:23 +0000 (17:53 -0400)
* lisp/help-fns.el (describe-variable-custom-version-info): Follow the
usual format of other `help-fns-describe-variable-functions`.

lisp/help-fns.el

index 0a99b8d6a3608643e54b0385ecf22195334fd55d..63b066f3b8586d8ac4e14474a9eb9a16e3155943 100644 (file)
@@ -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)