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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/04/03 04:01:32

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- help-fns.el 26 Mar 2008 14:49:15 -0000      1.118
+++ help-fns.el 3 Apr 2008 04:01:32 -0000       1.119
@@ -679,38 +679,17 @@
              (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 " or set it in your " initialization-file "."))
+               (princ (concat "You can " customize-label " this variable."))
                (with-current-buffer standard-output
                  (save-excursion
                    (re-search-backward
                     (concat "\\(" customize-label "\\)") nil t)
-                   (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")
-                    )
-                  ))
+                   (help-xref-button 1 'help-customize-variable variable))))
              ;; Note variable's version or package version
              (let ((output (describe-variable-custom-version-info variable)))
                (when output