# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1169536571 0
# Node ID 0906bcead2e0150d466ffce9971006f326236c88
# Parent  86da7b53d8e7d6317f61ef9bd9fa93a5e4b66bf3
(describe-variable): Don't suppress display of
buffer local value when the value is "large".

diff -r 86da7b53d8e7 -r 0906bcead2e0 lisp/help-fns.el
--- a/lisp/help-fns.el	Tue Jan 23 00:57:48 2007 +0000
+++ b/lisp/help-fns.el	Tue Jan 23 07:16:11 2007 +0000
@@ -553,7 +553,11 @@
 		;; 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 @@
 			       '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