Mercurial > emacs

changeset 10622:97213941b5e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-variable): If var is local, mention default.
author Richard M. Stallman <rms@gnu.org>
date Wed, 01 Feb 1995 09:29:40 +0000
parents 027b0964b8a7
children 8a73e71a55e3
files lisp/help.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)