[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v |
Date: |
Tue, 23 Jan 2007 07:16:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 07/01/23 07:16:11
Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- help-fns.el 21 Jan 2007 03:53:11 -0000 1.95
+++ help-fns.el 23 Jan 2007 07:16:11 -0000 1.96
@@ -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