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

[Juanma Barranquero]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.13 emacs/lisp/help-fns.el:1.14
*** emacs/lisp/help-fns.el:1.13 Fri Jul 12 04:56:12 2002
--- emacs/lisp/help-fns.el      Fri Jul 12 12:55:46 2002
***************
*** 426,433 ****
                (save-excursion
                  (forward-line -1)
                  (insert "Automatically becomes buffer-local when set in any 
fashion.\n"))))
!           (princ "Documentation:")
!           (terpri)
            (let ((obsolete (get variable 'byte-obsolete-variable)))
              (when obsolete
                (princ "This variable is obsolete")
--- 426,439 ----
                (save-excursion
                  (forward-line -1)
                  (insert "Automatically becomes buffer-local when set in any 
fashion.\n"))))
!           ;; Mention if it's an alias
!             (let ((alias (condition-case nil
!                              (indirect-variable variable)
!                            (error variable))))
!               (unless (eq alias variable)
!                 (princ (format "This variable is an alias for `%s'." alias))
!                 (terpri)
!                 (terpri)))
            (let ((obsolete (get variable 'byte-obsolete-variable)))
              (when obsolete
                (princ "This variable is obsolete")
***************
*** 438,453 ****
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
              (princ (or doc "Not documented as a variable.")))
-           
-           ;; Mention if the variable is an alias.
-           (let ((alias (condition-case nil
-                            (indirect-variable variable)
-                          (error variable))))
-             (unless (eq alias variable)
-               (terpri)
-               (terpri)
-               (princ (format "This variable is an alias for `%s'." alias))))
-           
            ;; Make a link to customize if this variable can be customized.
            ;; Note, it is not reliable to test only for a custom-type property
            ;; because those are only present after the var's definition
--- 444,449 ----