# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791630980 0
# Node ID 97213941b5e80e57124930867690a14013a3e508
# Parent  027b0964b8a7f58e4fcbcb579c64d9da29c50ae9
(describe-variable): If var is local, mention default.

diff -r 027b0964b8a7 -r 97213941b5e8 lisp/help.el
--- a/lisp/help.el	Wed Feb 01 05:47:45 1995 +0000
+++ b/lisp/help.el	Wed Feb 01 09:29:40 1995 +0000
@@ -499,13 +499,19 @@
 	       v (intern val)))))
   (with-output-to-temp-buffer "*Help*"
     (prin1 variable)
-    (princ "'s value is ")
     (if (not (boundp variable))
-        (princ "void.")
+        (princ " is void")
+      (princ "'s value is ")
       (prin1 (symbol-value variable)))
     (terpri)
     (if (local-variable-p variable)
-	(princ (format "Local in buffer %s\n" (buffer-name))))
+	(progn
+	  (princ (format "Local in buffer %s; " (buffer-name)))
+	  (if (not (default-boundp variable))
+	      (princ "globally void")
+	    (princ "global value is ")
+	    (prin1 (default-value variable)))
+	  (terpri)))
     (terpri)
     (princ "Documentation:")
     (terpri)