procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help-fns.el (describe-variable): Don't emit trailing whitespace (Bug#7511).

Browse source
This commit is contained in:
Chong Yidong 2010-12-17 19:38:22 +08:00
parent d1ab8d82ef
commit 3c505d3124
2 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-12-17 Chong Yidong <cyd@stupidchicken.com>
* help-fns.el (describe-variable): Don't emit trailing whitespace
(Bug#7511).
2010-12-17 Leo <sdl.web@gmail.com>
* eshell/em-hist.el (eshell-previous-matching-input): Signal error

14
lisp/help-fns.el
View file

@ -632,21 +632,17 @@ it is displayed along with the global value."
(if valvoid
(princ " is void as a variable.")
(princ "'s "))))
(if valvoid
nil
(unless valvoid
(with-current-buffer standard-output
(setq val-start-pos (point))
(princ "value is ")
(terpri)
(let ((from (point)))
(terpri)
(pp val)
;; Hyperlinks in variable's value are quite frequently
;; inappropriate e.g C-h v <RET> features <RET>
;; (help-xref-on-pp from (point))
(if (< (point) (+ from 20))
(delete-region (1- from) from)))))
(if (< (point) (- 68 (line-beginning-position -1)))
(delete-region from (1+ from))
(delete-region (1- from) from)))))
(terpri)
(when locus
(if (bufferp locus)
(princ (format "%socal in buffer %s; "