From 7727f3c0b893102feb94ad43b65b4fefb6c0abba Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Jun 2001 18:02:04 +0000 Subject: [PATCH] (describe-variable): Put value on same line with preceding text, if it is short enough to look good that way. --- lisp/help.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 3cf53d21227..945b168f881 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -858,7 +858,11 @@ it is displayed along with the global value." (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 @@ it is displayed along with the global value." ;; 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 -- 2.39.5