From e762149473e52db3fbaa87cedbf095ab690fc53c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 7 Apr 2009 00:46:11 +0000 Subject: [PATCH] * descr-text.el (describe-property-list, describe-char): Add follow-link properties to buttons that need them. --- lisp/ChangeLog | 5 ++++- lisp/descr-text.el | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37e9a9284cf..c16ce2153d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,7 @@ -2009-04-06 Chong Yidong +2009-04-07 Chong Yidong + + * descr-text.el (describe-property-list, describe-char): Add + follow-link properties to buttons that need them. * tooltip.el (tooltip-show-help-non-mode): Don't save the last message if it was also a help message (Bug#2895). diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 5234a4f9a9a..b559a1391fd 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -84,6 +84,7 @@ into help buttons that call `describe-text-category' or (symbol-name value) 'action `(lambda (&rest ignore) (describe-text-category ',value)) + 'follow-link t 'help-echo "mouse-2, RET: describe this category")) ((memq key '(face font-lock-face mouse-face)) (insert-text-button @@ -513,6 +514,7 @@ as well as widgets, buttons, overlays, and text properties." (if (search-forward ,(char-to-string char) nil t) (goto-char (match-beginning 0)))))) + 'follow-link t 'help-echo "mouse-2, RET: show this character in its character set") str))) @@ -727,7 +729,8 @@ as well as widgets, buttons, overlays, and text properties." "customize what to show" 'action (lambda (&rest ignore) (customize-variable - 'describe-char-unidata-list))) + 'describe-char-unidata-list)) + 'follow-link t) (insert "\n") (dolist (elt (if (eq describe-char-unidata-list t) (nreverse (mapcar 'car char-code-property-alist)) -- 2.39.2