* descr-text.el (describe-property-list, describe-char): Add

follow-link properties to buttons that need them.

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  <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).
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))