From 7fd09fb51c9b6ab2f05673262ce97872363a27fd Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 23 Jan 2007 07:16:11 +0000 Subject: [PATCH] (describe-variable): Don't suppress display of buffer local value when the value is "large". --- lisp/help-fns.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 2.39.2