[Emacs-diffs] emacs/lisp ChangeLog descr-text.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/04/07 00:46:14

Modified files:
        lisp           : ChangeLog descr-text.el 

Log message:
        * descr-text.el (describe-property-list, describe-char): Add
        follow-link properties to buttons that need them.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15553&r2=1.15554
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/descr-text.el?cvsroot=emacs&r1=1.78&r2=1.79

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15553
retrieving revision 1.15554
diff -u -b -r1.15553 -r1.15554
--- ChangeLog   6 Apr 2009 23:52:41 -0000       1.15553
+++ ChangeLog   7 Apr 2009 00:46:11 -0000       1.15554
@@ -1,4 +1,7 @@
-2009-04-06  Chong Yidong  <address@hidden>
+2009-04-07  Chong Yidong  <address@hidden>
+
+       * 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).

Index: descr-text.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/descr-text.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- descr-text.el       10 Feb 2009 06:03:44 -0000      1.78
+++ descr-text.el       7 Apr 2009 00:46:13 -0000       1.79
@@ -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))