# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 990448781 0
# Node ID 5c792c525a423562c68908ff3092f2737beb2c65
# Parent  fd7c0dac2110661ef8a906e770eaaef926feafa1
(describe-variable): Deal with variable aliases.

diff -r fd7c0dac2110 -r 5c792c525a42 lisp/help.el
--- a/lisp/help.el	Mon May 21 12:34:11 2001 +0000
+++ b/lisp/help.el	Mon May 21 12:39:41 2001 +0000
@@ -841,12 +841,20 @@
 				(if (symbolp v) (symbol-name v))))
      (list (if (equal val "")
 	       v (intern val)))))
-  (unless (bufferp buffer) (setq buffer (current-buffer)))
+  (unless (bufferp buffer) 
+    (setq buffer (current-buffer)))
   (if (not (symbolp variable))
       (message "You did not specify a variable")
     (let (valvoid)
       (with-current-buffer buffer
 	(with-output-to-temp-buffer "*Help*"
+
+	  (let ((aliased (indirect-variable variable)))
+	    (unless (eq aliased variable)
+	      (princ (format "%s is a variable alias for %s.\n\n"
+			     variable aliased))
+	      (setq variable aliased)))
+
 	  (prin1 variable)
 	  (if (not (boundp variable))
 	      (progn