From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Jun 2001 18:02:04 +0000 (+0000)
Subject: (describe-variable): Put value on same line
X-Git-Tag: emacs-pretest-21.0.104~323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7727f3c0b893102feb94ad43b65b4fefb6c0abba;p=emacs.git

(describe-variable): Put value on same line
with preceding text, if it is short enough to look good that way.
---

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