From: Martin Rudalics <rudalics@gmx.at>
Date: Tue, 23 Jan 2007 07:16:11 +0000 (+0000)
Subject: (describe-variable): Don't suppress display of
X-Git-Tag: emacs-pretest-22.0.94~644
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fd09fb51c9b6ab2f05673262ce97872363a27fd;p=emacs.git

(describe-variable): Don't suppress display of
buffer local value when the value is "large".
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index dbf2634aa28..dab6bdb157c 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -553,7 +553,11 @@ it is displayed along with the global value."
 		;; of a symbol.
 		(set-syntax-table emacs-lisp-mode-syntax-table)
 		(goto-char val-start-pos)
-		(delete-region (point) (progn (end-of-line) (point)))
+		;; The line below previously read as
+		;; (delete-region (point) (progn (end-of-line) (point)))
+		;; which suppressed display of the buffer local value for
+		;; large values.
+		(when (looking-at "value is") (replace-match ""))
 		(save-excursion
 		  (insert "\n\nValue:")
 		  (set (make-local-variable 'help-button-cache)
@@ -563,7 +567,7 @@ it is displayed along with the global value."
 			       'action help-button-cache
 			       'follow-link t
 			       'help-echo "mouse-2, RET: show value")
-		(insert ".\n\n")))
+		(insert ".\n")))
 
  	    ;; Mention if it's an alias
             (let* ((alias (condition-case nil