diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-04-07 00:46:11 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-04-07 00:46:11 +0000 |
| commit | e762149473e52db3fbaa87cedbf095ab690fc53c (patch) | |
| tree | 863fa8911e06dddafde8bdd8b9b423724572df23 /lisp/descr-text.el | |
| parent | 707731ee86e8f6caed52cb94384f99abb6566d8d (diff) | |
| download | emacs-e762149473e52db3fbaa87cedbf095ab690fc53c.tar.gz | |
* descr-text.el (describe-property-list, describe-char): Add
follow-link properties to buttons that need them.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |