# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1257014617 0
# Node ID fecb02e16f64fac586200e89be4f20d522c4303e
# Parent  cdc718e483089222de7f09befa8dcd188533c5e6
* progmodes/etags.el (etags-list-tags, etags-tags-apropos): Fix
face property (Bug#4834).
(etags-list-tags, etags-tags-apropos-additional)
(etags-tags-apropos, tags-select-tags-table): Add follow-link
property.

diff -r cdc718e48308 -r fecb02e16f64 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 31 18:03:02 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 31 18:43:37 2009 +0000
@@ -1,5 +1,11 @@
 2009-10-31  Chong Yidong  <cyd@stupidchicken.com>
 
+	* progmodes/etags.el (etags-list-tags, etags-tags-apropos): Fix
+	face property (Bug#4834).
+	(etags-list-tags, etags-tags-apropos-additional)
+	(etags-tags-apropos, tags-select-tags-table): Add follow-link
+	property.
+
 	* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
 	items.
 
diff -r cdc718e48308 -r fecb02e16f64 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sat Oct 31 18:03:02 2009 +0000
+++ b/lisp/progmodes/etags.el	Sat Oct 31 18:43:37 2009 +0000
@@ -1402,7 +1402,8 @@
 				      (tag-find-file-of-tag (button-get button 'file-path))
 				      (widen)
 				      (funcall goto-func tag-info)))
-			  'face 'tags-tag-face
+			  'follow-link t
+			  'face tags-tag-face
 			  'type 'button))
       (terpri)
       (forward-line 1))
@@ -1436,6 +1437,7 @@
 								    (button-get button 'item)))
 					  'item sn
 					  'face tags-tag-face
+					  'follow-link t
 					  'type 'button)
                              (terpri))))))
         (when (symbolp symbs)
@@ -1491,7 +1493,8 @@
 					      (tag-find-file-of-tag (button-get button 'file-path))
 					      (widen)
 					      (funcall goto-func tag-info)))
-				  'face 'tags-tag-face
+				  'follow-link t
+				  'face tags-tag-face
 				  'type 'button)))
 	  (princ (format "- %s" file-label))
 	  (with-current-buffer standard-output
@@ -1502,9 +1505,9 @@
 					;; Get the local value in the tags table
 					;; buffer before switching buffers.
 					(goto-char (point-min)))
-			      'face 'tags-tag-face
-			      'type 'button))
-	  ))
+			      'follow-link t
+			      'face tags-tag-face
+			      'type 'button))))
       (terpri)
       (forward-line 1))
     (message nil))
@@ -1933,6 +1936,7 @@
 
 (define-button-type 'tags-select-tags-table
   'action 'select-tags-table-select
+  'follow-link t
   'help-echo "RET, t or mouse-2: select tags table")
 
 ;; XXX If a file is in multiple tables, selection may get the wrong one.