Mercurial > emacs
changeset 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 | cdc718e48308 |
| children | 1177db74f5b5 |
| files | lisp/ChangeLog lisp/progmodes/etags.el |
| diffstat | 2 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.