aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2020-05-05 17:53:23 -0400
committerStefan Monnier2020-05-05 17:53:23 -0400
commitbbc34d3762326ea13e9a10a959ea5b59aadb6736 (patch)
tree66df8f2cb89d07ae3cef4467650f48626a7cd095
parentdaab2d3a62ac8fb1c74987e614cee93dc79fab74 (diff)
downloademacs-bbc34d3762326ea13e9a10a959ea5b59aadb6736.tar.gz
emacs-bbc34d3762326ea13e9a10a959ea5b59aadb6736.zip
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`.
-rw-r--r--lisp/help-fns.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 0a99b8d6a36..63b066f3b85 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."
893 (output nil)) 893 (output nil))
894 (if custom-version 894 (if custom-version
895 (setq output 895 (setq output
896 (format "This %s was introduced, or its default value was changed, in\nversion %s of Emacs.\n" 896 (format " This %s was introduced, or its default value was changed, in\n version %s of Emacs.\n"
897 type custom-version)) 897 type custom-version))
898 (when cpv 898 (when cpv
899 (let* ((package (car-safe cpv)) 899 (let* ((package (car-safe cpv))
@@ -904,7 +904,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
904 (emacsv (cdr (assoc version pkg-versions)))) 904 (emacsv (cdr (assoc version pkg-versions))))
905 (if (and package version) 905 (if (and package version)
906 (setq output 906 (setq output
907 (format (concat "This %s was introduced, or its default value was changed, in\nversion %s of the %s package" 907 (format (concat " This %s was introduced, or its default value was changed, in\n version %s of the %s package"
908 (if emacsv 908 (if emacsv
909 (format " that is part of Emacs %s" emacsv)) 909 (format " that is part of Emacs %s" emacsv))
910 ".\n") 910 ".\n")
@@ -1125,8 +1125,8 @@ it is displayed along with the global value."
1125 ;; Note variable's version or package version. 1125 ;; Note variable's version or package version.
1126 (let ((output (describe-variable-custom-version-info variable))) 1126 (let ((output (describe-variable-custom-version-info variable)))
1127 (when output 1127 (when output
1128 (terpri) 1128 ;; (terpri)
1129 (terpri) 1129 ;; (terpri)
1130 (princ output))))) 1130 (princ output)))))
1131 1131
1132(add-hook 'help-fns-describe-variable-functions #'help-fns--var-safe-local) 1132(add-hook 'help-fns-describe-variable-functions #'help-fns--var-safe-local)