changeset 46321:1d8304aae3cc

(describe-variable): Put `defvaralias' info before the documentation (patch from John Paul Wallington <jpw@shootybangbang.com>). Remove useless "Documentation:" string.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 12 Jul 2002 16:55:46 +0000
parents 85556f404121
children 4c6c59f7c9dc
files lisp/help-fns.el
diffstat 1 files changed, 8 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Fri Jul 12 11:56:42 2002 +0000
+++ b/lisp/help-fns.el	Fri Jul 12 16:55:46 2002 +0000
@@ -426,8 +426,14 @@
 		(save-excursion
 		  (forward-line -1)
 		  (insert "Automatically becomes buffer-local when set in any fashion.\n"))))
-	    (princ "Documentation:")
-	    (terpri)
+ 	    ;; 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,16 +444,6 @@
 		(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