# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1239065171 0
# Node ID bd89d8afd5ebd1545c973ae758eba9ad13231a30
# Parent  c1df063730800c3cb649fced50ee3bbbebca8b5c
* descr-text.el (describe-property-list, describe-char): Add
follow-link properties to buttons that need them.

diff -r c1df06373080 -r bd89d8afd5eb lisp/ChangeLog
--- 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).
diff -r c1df06373080 -r bd89d8afd5eb lisp/descr-text.el
--- 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))