Mercurial > emacs

comparison lisp/help-fns.el @ 83219:e86fc76a45e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-611 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-612 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-613 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-614 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-615 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-46 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-47 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-48 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-49 Add {arch}/=commit-merge-make-log * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-50 {arch}/=commit-merge-make-log: Don't die if there are no ChangeLog changes git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-259
author Karoly Lorentey <lorentey@elte.hu>
date Thu, 14 Oct 2004 14:42:03 +0000
parents 24f213302267
children 2f9fe20953a6 ff0e824afa37
comparison
equal deleted inserted replaced
83218:47f53c5c9620 83219:e86fc76a45e4
550 (goto-char (point-min)) 550 (goto-char (point-min))
551 (if valvoid 551 (if valvoid
552 (forward-line 1) 552 (forward-line 1)
553 (forward-sexp 1) 553 (forward-sexp 1)
554 (delete-region (point) (progn (end-of-line) (point))) 554 (delete-region (point) (progn (end-of-line) (point)))
555 (insert " value is shown below.\n\n")
556 (save-excursion 555 (save-excursion
557 (insert "\n\nValue:")))) 556 (insert "\n\nValue:")
557 (set (make-local-variable 'help-button-cache)
558 (point-marker)))
559 (insert " value is shown ")
560 (insert-button "below"
561 'action help-button-cache
562 'help-echo "mouse-2, RET: show value")
563 (insert ".\n\n")))
558 ;; Add a note for variables that have been make-var-buffer-local. 564 ;; Add a note for variables that have been make-var-buffer-local.
559 (when (and (local-variable-if-set-p variable) 565 (when (and (local-variable-if-set-p variable)
560 (or (not (local-variable-p variable)) 566 (or (not (local-variable-p variable))
561 (with-temp-buffer 567 (with-temp-buffer
562 (local-variable-if-set-p variable)))) 568 (local-variable-if-set-p variable))))