Mercurial > emacs
changeset 37980:0981540b6eec
(describe-variable): Put value on same line
with preceding text, if it is short enough to look good that way.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Jun 2001 18:02:04 +0000 |
| parents | 34ad227390d3 |
| children | 93dbf78d7b7a |
| files | lisp/help.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Fri Jun 01 18:01:37 2001 +0000 +++ b/lisp/help.el Fri Jun 01 18:02:04 2001 +0000 @@ -858,7 +858,11 @@ (terpri) (let ((from (point))) (pp val) - (help-xref-on-pp from (point)))))) + (help-xref-on-pp from (point)) + (if (< (point) (+ from 20)) + (save-excursion + (goto-char from) + (delete-char -1))))))) (terpri) (if (local-variable-p variable) (progn @@ -875,7 +879,11 @@ ;; sensible size before prettyprinting. -- fx (let ((from (point))) (pp val) - (help-xref-on-pp from (point)))))) + (help-xref-on-pp from (point)) + (if (< (point) (+ from 20)) + (save-excursion + (goto-char from) + (delete-char -1))))))) (terpri))) (terpri) (with-current-buffer standard-output