Mercurial > emacs
changeset 102872:bd89d8afd5eb
* descr-text.el (describe-property-list, describe-char): Add
follow-link properties to buttons that need them.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 07 Apr 2009 00:46:11 +0000 |
| parents | c1df06373080 |
| children | b6ee4b011032 |
| files | lisp/ChangeLog lisp/descr-text.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Apr 06 23:52:41 2009 +0000 +++ b/lisp/ChangeLog Tue Apr 07 00:46:11 2009 +0000 @@ -1,4 +1,7 @@ -2009-04-06 Chong Yidong <cyd@stupidchicken.com> +2009-04-07 Chong Yidong <cyd@stupidchicken.com> + + * 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).
--- a/lisp/descr-text.el Mon Apr 06 23:52:41 2009 +0000 +++ b/lisp/descr-text.el Tue Apr 07 00:46:11 2009 +0000 @@ -84,6 +84,7 @@ (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 @@ (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 @@ "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))