Commit 3c505d31 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent d1ab8d82
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
......
......@@ -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; "
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment