From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 21 May 2001 12:39:41 +0000 (+0000)
Subject: (describe-variable): Deal with variable aliases.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0af01654e5cf8db5ea763f58923a8dd3d4685c51;p=emacs.git

(describe-variable): Deal with variable aliases.
---

diff --git a/lisp/help.el b/lisp/help.el
index 3cf53d21227..fb8733699b3 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -841,12 +841,20 @@ it is displayed along with the global value."
 				(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