Mercurial > emacs
diff lisp/progmodes/etags.el @ 105816:fecb02e16f64
* 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.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 31 Oct 2009 18:43:37 +0000 |
parents | 51f16a1079af |
children | 26baacb565b0 |
line wrap: on
line diff
--- 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.