# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1026492946 0
# Node ID 1d8304aae3cc27f0ea8376058568b014732bd8b9
# Parent  85556f4041211304fc6a424abd426b083ff9c2f3
(describe-variable): Put `defvaralias' info before the documentation (patch from
John Paul Wallington <jpw@shootybangbang.com>). Remove useless "Documentation:"
string.

diff -r 85556f404121 -r 1d8304aae3cc lisp/help-fns.el
--- 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