# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1284981232 -7200
# Node ID 19f46504833566e6bf32814a57db94c1525195bd
# Parent  fc6cde6b7f22ef381621a97c6148671536218224
* lisp/help-fns.el (describe-variable): Add original value, if applicable.

diff -r fc6cde6b7f22 -r 19f465048335 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 20 10:16:02 2010 +0000
+++ b/lisp/ChangeLog	Mon Sep 20 13:13:52 2010 +0200
@@ -1,3 +1,7 @@
+2010-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* help-fns.el (describe-variable): Add original value, if applicable.
+
 2010-09-20  Juanma Barranquero  <lekktu@gmail.com>
 
 	* subr.el (y-or-n-p): Remove leftover code from revno 101459.
diff -r fc6cde6b7f22 -r 19f465048335 lisp/help-fns.el
--- a/lisp/help-fns.el	Mon Sep 20 10:16:02 2010 +0000
+++ b/lisp/help-fns.el	Mon Sep 20 13:13:52 2010 +0200
@@ -645,7 +645,20 @@
 		  ;; inappropriate e.g C-h v <RET> features <RET>
 		  ;; (help-xref-on-pp from (point))
 		  (if (< (point) (+ from 20))
-		      (delete-region (1- from) from)))))
+		      (delete-region (1- from) from))
+		  (let* ((sv (get variable 'standard-value))
+			 (origval (and (consp sv)
+				       (condition-case nil
+					   (eval (car sv))
+					 (error :help-eval-error)))))
+		    (when (and (consp sv)
+                               (not (equal origval val))
+                               (not (equal origval :help-eval-error)))
+		      (princ "\nOriginal value was \n")
+		      (setq from (point))
+		      (pp origval)
+		      (if (< (point) (+ from 20))
+			  (delete-region (1- from) from)))))))
 	    (terpri)
 
 	    (when locus