mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* 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
Download patch file Download diff file Expand all files Collapse all files

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; "