emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog progmodes/etags.el


From: Chong Yidong
Subject: [Emacs-diffs] emacs/lisp ChangeLog progmodes/etags.el
Date: Sat, 31 Oct 2009 18:43:41 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/10/31 18:43:40

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : etags.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16535&r2=1.16536
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/etags.el?cvsroot=emacs&r1=1.214&r2=1.215

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16535
retrieving revision 1.16536
diff -u -b -r1.16535 -r1.16536
--- ChangeLog   31 Oct 2009 18:03:02 -0000      1.16535
+++ ChangeLog   31 Oct 2009 18:43:37 -0000      1.16536
@@ -1,5 +1,11 @@
 2009-10-31  Chong Yidong  <address@hidden>
 
+       * 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.
 

Index: progmodes/etags.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/etags.el,v
retrieving revision 1.214
retrieving revision 1.215
diff -u -b -r1.214 -r1.215
--- progmodes/etags.el  1 Sep 2009 03:26:32 -0000       1.214
+++ progmodes/etags.el  31 Oct 2009 18:43:40 -0000      1.215
@@ -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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]