andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help-fns.el (describe-variable): Add original value, if applicable.

Browse source
This commit is contained in:
Stefan Monnier 2010-09-20 13:13:52 +02:00
parent 0e6b7ca0f8
commit 0097720d41
2 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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 2010-09-17T13:30:30Z!monnier@iro.umontreal.ca.

15
lisp/help-fns.el
View file

@ -645,7 +645,20 @@ it is displayed along with the global value."
;; 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