[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v

[Robert J. Chassell]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Robert J. Chassell <bob>        08/02/25 16:31:25

Index: help-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -b -r1.114 -r1.115
--- help-fns.el 12 Feb 2008 07:10:49 -0000      1.114
+++ help-fns.el 25 Feb 2008 16:31:25 -0000      1.115
@@ -676,17 +676,39 @@
              (princ "Documentation:\n")
              (with-current-buffer standard-output
                (insert (or doc "Not documented as a variable."))))
+
+            (let ((customize-label "customize")
+                  (initialization-file "initialization file"))
+              ;; All variables can be set; some can be customized
+              (when (and (symbolp variable) (not (custom-variable-p variable)))
+               (terpri)
+               (terpri)
+               (princ (concat "You can set this variable in your "
+                               initialization-file "."))
+               (with-current-buffer standard-output
+                 (save-excursion
+                    (re-search-backward
+                    (concat "\\(" initialization-file "\\)") nil t)
+                    (help-xref-button 1 'help-info-variable variable
+                                      "(emacs)Init File"))))
            ;; Make a link to customize if this variable can be customized.
            (when (custom-variable-p variable)
-             (let ((customize-label "customize"))
                (terpri)
                (terpri)
-               (princ (concat "You can " customize-label " this variable."))
+               (princ (concat "You can " customize-label " this variable"))
+               (princ (concat " or set it in your " initialization-file "."))
                (with-current-buffer standard-output
                  (save-excursion
                    (re-search-backward
                     (concat "\\(" customize-label "\\)") nil t)
-                   (help-xref-button 1 'help-customize-variable variable))))
+                   (help-xref-button 1 'help-customize-variable variable))
+                 (save-excursion
+                    (re-search-backward
+                    (concat "\\(" initialization-file "\\)") nil t)
+                    (help-xref-button 1 'help-info-variable variable
+                                      "(emacs)Init File")
+                    )
+                  ))
              ;; Note variable's version or package version
              (let ((output (describe-variable-custom-version-info variable)))
                (when output