annotate lisp/progmodes/etags.el @ 2707:4661157d5c60

(kbd-macro-query): Use query-replace-map to define answers.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 May 1993 17:58:55 +0000
parents 9dace03bd76c
children 82797c755adc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2229
bd3c525fa6fc Added standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1976
diff changeset
1 ;;; etags.el --- etags facility for Emacs
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
2
1806
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
3 ;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
4 ;; Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 824
diff changeset
5
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
6 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
7 ;; Keywords: tools
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
8
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;; any later version.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
25 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
26
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
27 ;;;###autoload
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
28 (defvar tags-file-name nil
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
29 "*File name of tags table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
30 To switch to a new tags table, setting this variable is sufficient.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
31 If you set this variable, do not also set `tags-table-list'.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
32 Use the `etags' program to make a tags table file.")
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
33 ;; Make M-x set-variable tags-file-name like M-x visit-tags-table.
824
b7ba8d69e136 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 817
diff changeset
34 ;;;###autoload (put 'tags-file-name 'variable-interactive "fVisit tags table: ")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
35
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
36 ;;;###autoload
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
37 ;; Use `visit-tags-table-buffer' to cycle through tags tables in this list.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
38 (defvar tags-table-list nil
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
39 "*List of file names of tags tables to search.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
40 An element that is a directory means the file \"TAGS\" in that directory.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
41 To switch to a new list of tags tables, setting this variable is sufficient.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
42 If you set this variable, do not also set `tags-file-name'.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
43 Use the `etags' program to make a tags table file.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
44
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
45 (defvar tags-table-list-pointer nil
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
46 "Pointer into `tags-table-list' where the current state of searching is.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
47 Might instead point into a list of included tags tables.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
48 Use `visit-tags-table-buffer' to cycle through tags tables in this list.")
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
49
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
50 (defvar tags-table-list-started-at nil
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
51 "Pointer into `tags-table-list', where the current search started.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
53 (defvar tags-table-parent-pointer-list nil
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
54 "Saved state of the tags table that included this one.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
55 Each element is (POINTER . STARTED-AT), giving the values of
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
56 `tags-table-list-pointer' and `tags-table-list-started-at' from
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
57 before we moved into the current table.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
58
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
59 (defvar tags-table-set-list nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
60 "List of sets of tags table which have been used together in the past.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
61 Each element is a list of strings which are file names.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
63 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
64 (defvar find-tag-hook nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
65 "*Hook to be run by \\[find-tag] after finding a tag. See `run-hooks'.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
66 The value in the buffer in which \\[find-tag] is done is used,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
67 not the value in the buffer \\[find-tag] goes to.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
68
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
69 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
70 (defvar find-tag-default-function nil
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
71 "*A function of no arguments used by \\[find-tag] to pick a default tag.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
72 If nil, and the symbol that is the value of `major-mode'
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
73 has a `find-tag-default-function' property (see `put'), that is used.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
74 Otherwise, `find-tag-default' is used.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
76 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
77 (defvar default-tags-table-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
78 "*If non-nil, a function of no arguments to choose a default tags file
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
79 for a particular buffer.")
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
80
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
81 (defvar tags-location-stack nil
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
82 "List of markers which are locations visited by \\[find-tag].
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
83 Pop back to the last location with \\[negative-argument] \\[find-tag].")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
84
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
85 ;; Tags table state.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
86 ;; These variables are local in tags table buffers.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
87
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
88 (defvar tag-lines-already-matched nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
89 "List of positions of beginnings of lines within the tags table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
90 that are already matched.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
91
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
92 (defvar tags-table-files nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
93 "List of file names covered by current tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
94 nil means it has not yet been computed; use `tags-table-files' to do so.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
95
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
96 (defvar tags-completion-table nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
97 "Alist of tag names defined in current tags table.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
98
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
99 (defvar tags-included-tables nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
100 "List of tags tables included by the current tags table.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
101
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
102 (defvar next-file-list nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
103 "List of files for \\[next-file] to process.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
104
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
105 ;; Hooks for file formats.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
106
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
107 (defvar tags-table-format-hooks '(etags-recognize-tags-table
824
b7ba8d69e136 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 817
diff changeset
108 recognize-empty-tags-table)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
109 "List of functions to be called in a tags table buffer to identify
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
110 the type of tags table. The functions are called in order, with no arguments,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
111 until one returns non-nil. The function should make buffer-local bindings
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
112 of the format-parsing tags function variables if successful.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
113
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
114 (defvar file-of-tag-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
115 "Function to do the work of `file-of-tag' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
116 (defvar tags-table-files-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
117 "Function to do the work of `tags-table-files' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
118 (defvar tags-completion-table-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
119 "Function to build the tags-completion-table.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
120 (defvar snarf-tag-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
121 "Function to get info about a matched tag for `goto-tag-location-function'.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
122 (defvar goto-tag-location-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
123 "Function of to go to the location in the buffer specified by a tag.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
124 One argument, the tag info returned by `snarf-tag-function'.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
125 (defvar find-tag-regexp-search-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
126 "Search function passed to `find-tag-in-order' for finding a regexp tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
127 (defvar find-tag-regexp-tag-order nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
128 "Tag order passed to `find-tag-in-order' for finding a regexp tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
129 (defvar find-tag-regexp-next-line-after-failure-p nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
130 "Flag passed to `find-tag-in-order' for finding a regexp tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
131 (defvar find-tag-search-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
132 "Search function passed to `find-tag-in-order' for finding a tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
133 (defvar find-tag-tag-order nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
134 "Tag order passed to `find-tag-in-order' for finding a tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
135 (defvar find-tag-next-line-after-failure-p nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
136 "Flag passed to `find-tag-in-order' for finding a tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
137 (defvar list-tags-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
138 "Function to do the work of `list-tags' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
139 (defvar tags-apropos-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
140 "Function to do the work of `tags-apropos' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
141 (defvar tags-included-tables-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
142 "Function to do the work of `tags-included-tables' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
143 (defvar verify-tags-table-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
144 "Function to return t iff the current buffer vontains a valid
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
145 \(already initialized\) tags file.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
146
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
147 ;; Initialize the tags table in the current buffer.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
148 ;; Returns non-nil iff it is a valid tags table. On
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
149 ;; non-nil return, the tags table state variable are
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
150 ;; made buffer-local and initialized to nil.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
151 (defun initialize-new-tags-table ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
152 (set (make-local-variable 'tag-lines-already-matched) nil)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
153 (set (make-local-variable 'tags-table-files) nil)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
154 (set (make-local-variable 'tags-completion-table) nil)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
155 (set (make-local-variable 'tags-included-tables) nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
156 ;; Value is t if we have found a valid tags table buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
157 (let ((hooks tags-table-format-hooks))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
158 (while (and hooks
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
159 (not (funcall (car hooks))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
160 (setq hooks (cdr hooks)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
161 hooks))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
162
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
163 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
164 (defun visit-tags-table (file &optional local)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
165 "Tell tags commands to use tags table file FILE.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 FILE should be the name of a file created with the `etags' program.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
167 A directory name is ok too; it means file TAGS in that directory.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
168
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
169 Normally \\[visit-tags-table] sets the global value of `tags-file-name'.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
170 With a prefix arg, set the buffer-local value instead.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
171 When you find a tag with \\[find-tag], the buffer it finds the tag
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
172 in is given a local value of this variable which is the name of the tags
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
173 file the tag was in."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 (interactive (list (read-file-name "Visit tags table: (default TAGS) "
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 default-directory
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
176 (expand-file-name "TAGS"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
177 default-directory)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
178 t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
179 current-prefix-arg))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
180 ;; Calling visit-tags-table-buffer with tags-file-name set to FILE will
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
181 ;; initialize a buffer for FILE and set tags-file-name to the
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
182 ;; fully-expanded name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
183 (let ((tags-file-name file))
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
184 (save-excursion
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
185 (or (visit-tags-table-buffer 'same)
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
186 (signal 'file-error (list "Visiting tags table"
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
187 "file does not exist"
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
188 file)))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
189 ;; Set FILE to the expanded name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
190 (setq file tags-file-name)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
191 (if local
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
192 ;; Set the local value of tags-file-name.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
193 (set (make-local-variable 'tags-file-name) file)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
194 ;; Set the global value of tags-file-name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
195 (setq-default tags-file-name file)))
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
196
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
197 ;; Move tags-table-list-pointer along and set tags-file-name.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
198 ;; If NO-INCLUDES is non-nil, ignore included tags tables.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
199 ;; Returns nil when out of tables.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
200 (defun tags-next-table (&optional no-includes)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
201 ;; Do we have any included tables?
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
202 (if (and (not no-includes)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
203 (visit-tags-table-buffer 'same)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
204 (tags-included-tables))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
205
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
206 ;; Move into the included tags tables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
207 (setq tags-table-parent-pointer-list
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
208 ;; Save the current state of what table we are in.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
209 (cons (cons tags-table-list-pointer tags-table-list-started-at)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
210 tags-table-parent-pointer-list)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
211 ;; Start the pointer in the list of included tables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
212 tags-table-list-pointer tags-included-tables
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
213 tags-table-list-started-at tags-included-tables)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
214
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
215 ;; No included tables. Go to the next table in the list.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
216 (setq tags-table-list-pointer
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
217 (cdr tags-table-list-pointer))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
218 (or tags-table-list-pointer
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
219 ;; Wrap around.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
220 (setq tags-table-list-pointer tags-table-list))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
221
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
222 (if (eq tags-table-list-pointer tags-table-list-started-at)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
223 ;; We have come full circle. No more tables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
224 (if tags-table-parent-pointer-list
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
225 ;; Pop back to the tags table which includes this one.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
226 (progn
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
227 ;; Restore the state variables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
228 (setq tags-table-list-pointer
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
229 (car (car tags-table-parent-pointer-list))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
230 tags-table-list-started-at
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
231 (cdr (car tags-table-parent-pointer-list))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
232 tags-table-parent-pointer-list
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
233 (cdr tags-table-parent-pointer-list))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
234 ;; Recurse to skip to the next table after the parent.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
235 (tags-next-table t))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
236 ;; All out of tags tables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
237 (setq tags-table-list-pointer nil))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
238
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
239 (and tags-table-list-pointer
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
240 ;; Set tags-file-name to the fully-expanded name.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
241 (setq tags-file-name
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
242 (tags-expand-table-name (car tags-table-list-pointer)))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
243
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
244 ;; Expand tags table name FILE into a complete file name.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
245 (defun tags-expand-table-name (file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
246 (setq file (expand-file-name file))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
247 (if (file-directory-p file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
248 (expand-file-name "TAGS" file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
249 file))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
250
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
251 ;; Return the cdr of LIST (default: tags-table-list) whose car
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
252 ;; is equal to FILE after tags-expand-table-name on both sides.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
253 (defun tags-table-list-member (file &optional list)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
254 (or list
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
255 (setq list tags-table-list))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
256 (setq file (tags-expand-table-name file))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
257 (while (and list
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
258 (not (string= file (tags-expand-table-name (car list)))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
259 (setq list (cdr list)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
260 list)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
261
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
262 ;; Subroutine of visit-tags-table-buffer. Frobs its local vars.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
263 ;; Search TABLES for one that has tags for THIS-FILE. Recurses
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
264 ;; on included tables. Returns the tail of TABLES (or of an
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
265 ;; inner included list) whose car is a table listing THIS-FILE.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
266 (defun tags-table-including (this-file tables &optional recursing)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
267 (let ((found nil))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
268 ;; Loop over TABLES, looking for one containing tags for THIS-FILE.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
269 (while (and (not found)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
270 tables)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
271 (let ((tags-file-name (tags-expand-table-name (car tables))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
272 (if (or (get-file-buffer tags-file-name)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
273 (file-exists-p tags-file-name)) ;XXX check all in core first.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
274 (progn
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
275 ;; Select the tags table buffer and get the file list up to date.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
276 (visit-tags-table-buffer 'same)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
277 (or tags-table-files
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
278 (setq tags-table-files
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
279 (funcall tags-table-files-function)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
280
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
281 (cond ((member this-file tags-table-files)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
282 ;; Found it.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
283 (setq found tables))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
284
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
285 ((tags-included-tables)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
286 ;; This table has included tables. Check them.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
287 (let ((old tags-table-parent-pointer-list))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
288 (unwind-protect
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
289 (progn
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
290 (or recursing
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
291 ;; At top level (not in an included tags
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
292 ;; table), set the list to nil so we can
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
293 ;; collect just the elts from this run.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
294 (setq tags-table-parent-pointer-list nil))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
295 (setq found
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
296 ;; Recurse on the list of included tables.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
297 (tags-table-including this-file
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
298 tags-included-tables
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
299 t))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
300 (if found
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
301 ;; One of them lists THIS-FILE.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
302 ;; Set the table list state variables to move
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
303 ;; us inside the list of included tables.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
304 (setq tags-table-parent-pointer-list
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
305 (cons
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
306 (cons tags-table-list-pointer
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
307 tags-table-list-started-at)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
308 tags-table-parent-pointer-list)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
309 tags-table-list-pointer found
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
310 tags-table-list-started-at found
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
311 ;; CONT is a local variable of
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
312 ;; our caller, visit-tags-table-buffer.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
313 ;; Set it so we won't frob lists later.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
314 cont 'included)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
315 (or recursing
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
316 ;; tags-table-parent-pointer-list now describes
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
317 ;; the path of included tables taken by recursive
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
318 ;; invocations of this function. The recursive
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
319 ;; calls have consed onto the front of the list,
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
320 ;; so it is now outermost first. We want it
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
321 ;; innermost first, so reverse it. Then append
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
322 ;; the old list (from before we were called the
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
323 ;; outermost time), to get the complete current
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
324 ;; state of included tables.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
325 (setq tags-table-parent-pointer-list
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
326 (nconc (nreverse
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
327 tags-table-parent-pointer-list)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
328 old))))))))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
329 (setq tables (cdr tables)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
330 found))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
331
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
332 (defun visit-tags-table-buffer (&optional cont)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
333 "Select the buffer containing the current tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
334 If optional arg is t, visit the next table in `tags-table-list'.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
335 If optional arg is the atom `same', don't look for a new table;
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
336 just select the buffer visiting `tags-file-name'.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
337 If arg is nil or absent, choose a first buffer from information in
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
338 `tags-file-name', `tags-table-list', `tags-table-list-pointer'.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
339 Returns t if it visits a tags table, or nil if there are no more in the list."
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
340
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
341 ;; Set tags-file-name to the tags table file we want to visit.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
342 (cond ((eq cont 'same)
1806
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
343 ;; Use the ambient value of tags-file-name.
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
344 (or tags-file-name
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
345 (error (substitute-command-keys
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
346 (concat "No tags table in use! "
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
347 "Use \\[visit-tags-table] to select one."))))
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
348 ;; Set CONT to nil so the code below will make sure tags-file-name
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
349 ;; is in tags-table-list.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
350 (setq cont nil))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
351
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
352 (cont
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
353 ;; Find the next table.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
354 (if (tags-next-table)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
355 ;; Skip over nonexistent files.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
356 (while (and (let ((file (tags-expand-table-name tags-file-name)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
357 (not (or (get-file-buffer file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
358 (file-exists-p file))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
359 (tags-next-table)))))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
361 (t
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
362 ;; Pick a table out of our hat.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
363 (setq tags-file-name
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
364 (or
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
365 ;; First, try a local variable.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
366 (cdr (assq 'tags-file-name (buffer-local-variables)))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
367 ;; Second, try a user-specified function to guess.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
368 (and default-tags-table-function
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
369 (funcall default-tags-table-function))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
370 ;; Third, look for a tags table that contains
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
371 ;; tags for the current buffer's file.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
372 ;; If one is found, the lists will be frobnicated,
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
373 ;; and CONT will be set non-nil so we don't do it below.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
374 (car (save-excursion (tags-table-including buffer-file-name
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
375 tags-table-list)))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
376 ;; Fourth, use the user variable tags-file-name, if it is not
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
377 ;; already in tags-table-list.
1697
f14e1a6ac205 (visit-tags-table-buffer): Don't look in list for tags-file-name if nil.
Roland McGrath <roland@gnu.org>
parents: 1696
diff changeset
378 (and tags-file-name
f14e1a6ac205 (visit-tags-table-buffer): Don't look in list for tags-file-name if nil.
Roland McGrath <roland@gnu.org>
parents: 1696
diff changeset
379 (not (tags-table-list-member tags-file-name))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
380 tags-file-name)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
381 ;; Fifth, use the user variable giving the table list.
1724
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
382 ;; Find the first element of the list that actually exists.
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
383 (let ((list tags-table-list)
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
384 file)
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
385 (while (and list
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
386 (setq file (tags-expand-table-name (car list)))
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
387 (not (get-file-buffer file))
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
388 (not (file-exists-p file)))
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
389 (setq list (cdr list)))
2dccfada2107 (visit-tags-table-buffer): When picking a table and using tags-table-list,
Roland McGrath <roland@gnu.org>
parents: 1723
diff changeset
390 (car list))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
391 ;; Finally, prompt the user for a file name.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
392 (expand-file-name
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
393 (read-file-name "Visit tags table: (default TAGS) "
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
394 default-directory
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
395 "TAGS"
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
396 t))))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
397
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
398 ;; Expand the table name into a full file name.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
399 (setq tags-file-name (tags-expand-table-name tags-file-name))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
400
1156
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
401 (if (and (eq cont t) (null tags-table-list-pointer))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
402 ;; All out of tables.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
403 nil
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
404
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
405 ;; Verify that tags-file-name is a valid tags table.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
406 (if (if (get-file-buffer tags-file-name)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
407 ;; The file is already in a buffer. Check for the visited file
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
408 ;; having changed since we last used it.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
409 (let (win)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
410 (set-buffer (get-file-buffer tags-file-name))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
411 (setq win (or verify-tags-table-function
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
412 (initialize-new-tags-table)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
413 (if (or (verify-visited-file-modtime (current-buffer))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
414 (not (yes-or-no-p
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
415 "Tags file has changed, read new contents? ")))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
416 (and win (funcall verify-tags-table-function))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
417 (revert-buffer t t)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
418 (initialize-new-tags-table)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
419 (set-buffer (find-file-noselect tags-file-name))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
420 (or (string= tags-file-name buffer-file-name)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
421 ;; find-file-noselect has changed the file name.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
422 ;; Propagate the change to tags-file-name and tags-table-list.
1807
1059b972916c (visit-tags-table-buffer): When propagating a change of name after
Roland McGrath <roland@gnu.org>
parents: 1806
diff changeset
423 (let ((tail (member tags-file-name tags-table-list)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
424 (if tail
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
425 (setcar tail buffer-file-name))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
426 (setq tags-file-name buffer-file-name)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
427 (initialize-new-tags-table))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
428
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
429 ;; We have a valid tags table.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
430 (progn
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
431 ;; Bury the tags table buffer so it
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
432 ;; doesn't get in the user's way.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
433 (bury-buffer (current-buffer))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
434
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
435 (if cont
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
436 ;; No list frobbing required.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
437 nil
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
438
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
439 ;; Look in the list for the table we chose.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
440 (let ((elt (tags-table-list-member tags-file-name)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
441 (or elt
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
442 ;; The table is not in the current set.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
443 ;; Try to find it in another previously used set.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
444 (let ((sets tags-table-set-list))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
445 (while (and sets
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
446 (not (setq elt (tags-table-list-member
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
447 tags-file-name (car sets)))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
448 (setq sets (cdr sets)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
449 (if sets
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
450 ;; Found in some other set. Switch to that set.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
451 (progn
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
452 (or (memq tags-table-list tags-table-set-list)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
453 ;; Save the current list.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
454 (setq tags-table-set-list
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
455 (cons tags-table-list
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
456 tags-table-set-list)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
457 (setq tags-table-list (car sets)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
458
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
459 ;; Not found in any existing set.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
460 (if (and tags-table-list
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
461 (y-or-n-p (concat "Add " tags-file-name
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
462 " to current list"
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
463 " of tags tables? ")))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
464 ;; Add it to the current list.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
465 (setq tags-table-list (cons tags-file-name
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
466 tags-table-list))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
467 ;; Make a fresh list, and store the old one.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
468 (or (memq tags-table-list tags-table-set-list)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
469 (setq tags-table-set-list
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
470 (cons tags-table-list tags-table-set-list)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
471 (setq tags-table-list (list tags-file-name)))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
472 (setq elt tags-table-list))))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
473
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
474 ;; Set the tags table list state variables to point at the table
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
475 ;; we want to use first.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
476 (setq tags-table-list-started-at elt
1156
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
477 tags-table-list-pointer elt)))
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
478
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
479 ;; Return of t says the tags table is valid.
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
480 t)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
481
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
482 ;; The buffer was not valid. Don't use it again.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
483 (let ((file tags-file-name))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
484 (kill-local-variable 'tags-file-name)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
485 (if (eq file tags-file-name)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
486 (setq tags-file-name nil)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
487 (error "File %s is not a valid tags table" buffer-file-name))))
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
488
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (defun file-of-tag ()
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 "Return the file name of the file whose tags point is within.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
491 Assumes the tags table is the current buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
492 File name returned is relative to tags table file's directory."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
493 (funcall file-of-tag-function))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
495 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
496 (defun tags-table-files ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
497 "Return a list of files in the current tags table.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
498 Assumes the tags table is the current buffer.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 File names returned are absolute."
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
500 (or tags-table-files
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
501 (setq tags-table-files
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
502 (funcall tags-table-files-function))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
503
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
504 (defun tags-included-tables ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
505 "Return a list of tags tables included by the current table.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
506 Assumes the tags table is the current buffer."
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
507 (or tags-included-tables
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
508 (setq tags-included-tables (funcall tags-included-tables-function))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
509
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
510 ;; Build tags-completion-table on demand. The single current tags table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
511 ;; and its included tags tables (and their included tables, etc.) have
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
512 ;; their tags included in the completion table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
513 (defun tags-completion-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
514 (or tags-completion-table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
515 (condition-case ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
516 (prog2
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
517 (message "Making tags completion table for %s..." buffer-file-name)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
518 (let ((included (tags-included-tables))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
519 (table (funcall tags-completion-table-function)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
520 (save-excursion
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
521 ;; Iterate over the list of included tables, and combine each
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
522 ;; included table's completion obarray to the parent obarray.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
523 (while included
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
524 ;; Visit the buffer.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
525 (let ((tags-file-name (car included)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
526 (visit-tags-table-buffer 'same))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
527 ;; Recurse in that buffer to compute its completion table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
528 (if (tags-completion-table)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
529 ;; Combine the tables.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
530 (mapatoms (function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
531 (lambda (sym)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
532 (intern (symbol-name sym) table)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
533 tags-completion-table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
534 (setq included (cdr included))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
535 (setq tags-completion-table table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
536 (message "Making tags completion table for %s...done"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
537 buffer-file-name))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
538 (quit (message "Tags completion table construction aborted.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
539 (setq tags-completion-table nil)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
540
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
541 ;; Completion function for tags. Does normal try-completion,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
542 ;; but builds tags-completion-table on demand.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
543 (defun tags-complete-tag (string predicate what)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
544 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
545 (visit-tags-table-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
546 (if (eq what t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
547 (all-completions string (tags-completion-table) predicate)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
548 (try-completion string (tags-completion-table) predicate))))
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
549
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 ;; Return a default tag to search for, based on the text at point.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 (defun find-tag-default ()
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 (save-excursion
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 (while (looking-at "\\sw\\|\\s_")
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 (forward-char 1))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
555 (if (or (re-search-backward "\\sw\\|\\s_"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
556 (save-excursion (beginning-of-line) (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
557 t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
558 (re-search-forward "\\(\\sw\\|\\s_\\)+"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
559 (save-excursion (end-of-line) (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
560 t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
561 (progn (goto-char (match-end 0))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 (buffer-substring (point)
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (progn (forward-sexp -1)
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 (while (looking-at "\\s'")
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565 (forward-char 1))
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (point))))
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 nil)))
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
569 ;; Read a tag name from the minibuffer with defaulting and completion.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 (defun find-tag-tag (string)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
571 (let* ((default (funcall (or find-tag-default-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
572 (get major-mode 'find-tag-default-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
573 'find-tag-default)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
574 (spec (completing-read (if default
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
575 (format "%s(default %s) " string default)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
576 string)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
577 'tags-complete-tag)))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
578 (if (equal spec "")
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
579 (or default (error "There is no default tag"))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
580 spec)))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581
852
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
582 (defvar last-tag nil
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
583 "Last tag found by \\[find-tag].")
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
584
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
585 ;; Get interactive args for find-tag{-noselect,-other-window,-regexp}.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
586 (defun find-tag-interactive (prompt &optional no-default)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
587 (if current-prefix-arg
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
588 (list nil (if (< (prefix-numeric-value current-prefix-arg) 0)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
589 '-
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
590 t))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
591 (list (if no-default
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
592 (read-string prompt)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
593 (find-tag-tag prompt)))))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
594
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
595 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
596 (defun find-tag-noselect (tagname &optional next-p regexp-p)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
597 "Find tag (in current tags table) whose name contains TAGNAME.
1555
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
598 Returns the buffer containing the tag's definition and moves its point there,
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
599 but does not select the buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
600 The default for TAGNAME is the expression in the buffer near point.
474
c3bbd755b7da *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 452
diff changeset
601
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
602 If second arg NEXT-P is t (interactively, with prefix arg), search for
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
603 another tag that matches the last tagname or regexp used. When there are
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
604 multiple matches for a tag, more exact matches are found first. If NEXT-P
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
605 is the atom `-' (interactively, with prefix arg that is a negative number
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
606 or just \\[negative-argument]), pop back to the previous tag gone to.
450
0bac8c701777 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 449
diff changeset
607
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
608 If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
610 See documentation of variable `tags-file-name'."
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
611 (interactive (find-tag-interactive "Find tag: "))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
612
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
613 ;; Save the current buffer's value of `find-tag-hook' before selecting the
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
614 ;; tags table buffer.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
615 (let ((local-find-tag-hook find-tag-hook))
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
616 (if (eq '- next-p)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
617 ;; Pop back to a previous location.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
618 (if (null tags-location-stack)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
619 (error "No previous tag locations")
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
620 (let ((marker (car tags-location-stack)))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
621 ;; Pop the stack.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
622 (setq tags-location-stack (cdr tags-location-stack))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
623 (prog1
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
624 ;; Move to the saved location.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
625 (set-buffer (marker-buffer marker))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
626 (goto-char (marker-position marker))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
627 ;; Kill that marker so it doesn't slow down editting.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
628 (set-marker marker nil nil)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
629 ;; Run the user's hook. Do we really want to do this for pop?
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
630 (run-hooks 'local-find-tag-hook))))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
631 (if next-p
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
632 ;; Find the same table we last used.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
633 (visit-tags-table-buffer 'same)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
634 ;; Pick a table to use.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
635 (visit-tags-table-buffer)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
636 ;; Record TAGNAME for a future call with NEXT-P non-nil.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
637 (setq last-tag tagname))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
638 (prog1
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
639 ;; Record the location so we can pop back to it later.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
640 (marker-buffer
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
641 (car
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
642 (setq tags-location-stack
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
643 (cons (let ((marker (make-marker)))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
644 (save-excursion
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
645 (set-buffer
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
646 ;; find-tag-in-order does the real work.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
647 (find-tag-in-order
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
648 (if next-p last-tag tagname)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
649 (if regexp-p
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
650 find-tag-regexp-search-function
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
651 find-tag-search-function)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
652 (if regexp-p
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
653 find-tag-regexp-tag-order
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
654 find-tag-tag-order)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
655 (if regexp-p
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
656 find-tag-regexp-next-line-after-failure-p
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
657 find-tag-next-line-after-failure-p)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
658 (if regexp-p "matching" "containing")
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
659 (not next-p)))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
660 (set-marker marker (point))))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
661 tags-location-stack))))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
662 (run-hooks 'local-find-tag-hook)))))
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
663
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
664 ;;;###autoload
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
665 (defun find-tag (tagname &optional next-p regexp-p)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
666 "Find tag (in current tags table) whose name contains TAGNAME.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
667 Select the buffer containing the tag's definition, and move point there.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
668 The default for TAGNAME is the expression in the buffer around or before point.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
670 If second arg NEXT-P is t (interactively, with prefix arg), search for
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
671 another tag that matches the last tagname or regexp used. When there are
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
672 multiple matches for a tag, more exact matches are found first. If NEXT-P
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
673 is the atom `-' (interactively, with prefix arg that is a negative number
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
674 or just \\[negative-argument]), pop back to the previous tag gone to.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
675
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
676 See documentation of variable `tags-file-name'."
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
677 (interactive (find-tag-interactive "Find tag: "))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
678 (switch-to-buffer (find-tag-noselect tagname next-p regexp-p)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
679 ;;;###autoload (define-key esc-map "." 'find-tag)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
681 ;;;###autoload
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
682 (defun find-tag-other-window (tagname &optional next-p regexp-p)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
683 "Find tag (in current tags table) whose name contains TAGNAME.
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
684 Select the buffer containing the tag's definition in another window, and
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
685 move point there. The default for TAGNAME is the expression in the buffer
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
686 around or before point.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
687
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
688 If second arg NEXT-P is t (interactively, with prefix arg), search for
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
689 another tag that matches the last tagname or regexp used. When there are
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
690 multiple matches for a tag, more exact matches are found first. If NEXT-P
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
691 is negative (interactively, with prefix arg that is a negative number or
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
692 just \\[negative-argument]), pop back to the previous tag gone to.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
693
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
694 See documentation of variable `tags-file-name'."
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
695 (interactive (find-tag-interactive "Find tag other window: "))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
696
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
697 ;; This hair is to deal with the case where the tag is found in the
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
698 ;; selected window's buffer; without the hair, point is moved in both
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
699 ;; windows. To prevent this, we save the selected window's point before
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
700 ;; doing find-tag-noselect, and restore it after.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
701 (let* ((window-point (window-point (selected-window)))
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
702 (tagbuf (find-tag-noselect tagname next-p regexp-p))
1976
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
703 (tagpoint (progn (set-buffer tagbuf) (point))))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
704 (set-window-point (prog1
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
705 (selected-window)
1976
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
706 (switch-to-buffer-other-window tagbuf)
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
707 ;; We have to set this new window's point; it
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
708 ;; might already have been displaying a
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
709 ;; different portion of tagbuf, in which case
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
710 ;; switch-to-buffer-other-window doesn't set
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
711 ;; the window's point from the buffer.
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
712 (set-window-point (selected-window) tagpoint))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
713 window-point)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
714 ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
715
804
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
716 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
717 (defun find-tag-other-frame (tagname &optional next-p)
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
718 "Find tag (in current tags table) whose name contains TAGNAME.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
719 Select the buffer containing the tag's definition in another frame, and
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
720 move point there. The default for TAGNAME is the expression in the buffer
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
721 around or before point.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
722
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
723 If second arg NEXT-P is t (interactively, with prefix arg), search for
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
724 another tag that matches the last tagname or regexp used. When there are
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
725 multiple matches for a tag, more exact matches are found first. If NEXT-P
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
726 is negative (interactively, with prefix arg that is a negative number or
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
727 just \\[negative-argument]), pop back to the previous tag gone to.
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
728
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
729 See documentation of variable `tags-file-name'."
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
730 (interactive (find-tag-interactive "Find tag other frame: "))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
731 (let ((pop-up-frames t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
732 (find-tag-other-window tagname next-p)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
733 ;;;###autoload (define-key ctl-x-5-map "." 'find-tag-other-frame)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
735 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
736 (defun find-tag-regexp (regexp &optional next-p other-window)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
737 "Find tag (in current tags table) whose name matches REGEXP.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
738 Select the buffer containing the tag's definition and move point there.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
739
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
740 If second arg NEXT-P is t (interactively, with prefix arg), search for
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
741 another tag that matches the last tagname or regexp used. When there are
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
742 multiple matches for a tag, more exact matches are found first. If NEXT-P
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
743 is negative (interactively, with prefix arg that is a negative number or
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
744 just \\[negative-argument]), pop back to the previous tag gone to.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
745
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
746 If third arg OTHER-WINDOW is non-nil, select the buffer in another window.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
747
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
748 See documentation of variable `tags-file-name'."
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
749 (interactive (find-tag-interactive "Find tag regexp: " t))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
750 ;; We go through find-tag-other-window to do all the display hair there.
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
751 (funcall (if other-window 'find-tag-other-window 'find-tag)
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
752 regexp next-p t))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
753
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
754 ;; Internal tag finding function.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
755
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
756 ;; PATTERN is a string to pass to second arg SEARCH-FORWARD-FUNC, and to
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
757 ;; any member of the function list ORDER (third arg). If ORDER is nil,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
758 ;; use saved state to continue a previous search.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
759
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
760 ;; Fourth arg MATCHING is a string, an English '-ing' word, to be used in
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
761 ;; an error message.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
762
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
763 ;; Fifth arg NEXT-LINE-AFTER-FAILURE-P is non-nil if after a failed match,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
764 ;; point should be moved to the next line.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
765
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
766 ;; Algorithm is as follows. For each qualifier-func in ORDER, go to
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
767 ;; beginning of tags file, and perform inner loop: for each naive match for
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
768 ;; PATTERN found using SEARCH-FORWARD-FUNC, qualify the naive match using
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
769 ;; qualifier-func. If it qualifies, go to the specified line in the
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
770 ;; specified source file and return. Qualified matches are remembered to
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
771 ;; avoid repetition. State is saved so that the loop can be continued.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
772
1555
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
773 (defun find-tag-in-order (pattern
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
774 search-forward-func
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
775 order
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
776 next-line-after-failure-p
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
777 matching
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
778 first-search)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
779 (let (file ;name of file containing tag
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
780 tag-info ;where to find the tag in FILE
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
781 tags-table-file ;name of tags file
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
782 (first-table t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
783 (tag-order order)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
784 goto-func
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
785 )
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
786 (save-excursion
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
787 (or first-search ;find-tag-noselect has already done it.
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
788 (visit-tags-table-buffer 'same))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
789
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
790 ;; Get a qualified match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
791 (catch 'qualified-match-found
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
792
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
793 ;; Iterate over the list of tags tables.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
794 (while (or first-table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
795 (visit-tags-table-buffer t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
796
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
797 (if first-search
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
798 (setq tag-lines-already-matched nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
799
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
800 (and first-search first-table
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
801 ;; Start at beginning of tags file.
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
802 (goto-char (point-min)))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
803 (setq first-table nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
804
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
805 (setq tags-table-file buffer-file-name)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
806 ;; Iterate over the list of ordering predicates.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
807 (while order
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
808 (while (funcall search-forward-func pattern nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
809 ;; Naive match found. Qualify the match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
810 (and (funcall (car order) pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
811 ;; Make sure it is not a previous qualified match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
812 ;; Use of `memq' depends on numbers being eq.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
813 (not (memq (save-excursion (beginning-of-line) (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
814 tag-lines-already-matched))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
815 (throw 'qualified-match-found nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
816 (if next-line-after-failure-p
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
817 (forward-line 1)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
818 ;; Try the next flavor of match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
819 (setq order (cdr order))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
820 (goto-char (point-min)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
821 (setq order tag-order))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
822 ;; We throw out on match, so only get here if there were no matches.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
823 (error "No %stags %s %s" (if first-search "" "more ")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
824 matching pattern))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
825
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
826 ;; Found a tag; extract location info.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
827 (beginning-of-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
828 (setq tag-lines-already-matched (cons (point)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
829 tag-lines-already-matched))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
830 ;; Expand the filename, using the tags table buffer's default-directory.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
831 (setq file (expand-file-name (file-of-tag))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
832 tag-info (funcall snarf-tag-function))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
833
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
834 ;; Get the local value in the tags table buffer before switching buffers.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
835 (setq goto-func goto-tag-location-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
836
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
837 ;; Find the right line in the specified file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
838 (set-buffer (find-file-noselect file))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
839 (widen)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
840 (push-mark)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
841 (funcall goto-func tag-info)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
842
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
843 ;; Give this buffer a local value of tags-file-name.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
844 ;; The next time visit-tags-table-buffer is called,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
845 ;; it will use the same tags table that found a match in this buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
846 (make-local-variable 'tags-file-name)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
847 (setq tags-file-name tags-table-file)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
848
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
849 ;; Return the buffer where the tag was found.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
850 (current-buffer))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
851
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
852 ;; `etags' TAGS file format support.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
853
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
854 ;; If the current buffer is a valid etags TAGS file, give it local values of
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
855 ;; the tags table format variables, and return non-nil.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
856 (defun etags-recognize-tags-table ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
857 (and (etags-verify-tags-table)
1136
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
858 ;; It is annoying to flash messages on the screen briefly,
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
859 ;; and this message is not useful. -- rms
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
860 ;; (message "%s is an `etags' TAGS file" buffer-file-name)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
861 (mapcar (function (lambda (elt)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
862 (set (make-local-variable (car elt)) (cdr elt))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
863 '((file-of-tag-function . etags-file-of-tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
864 (tags-table-files-function . etags-tags-table-files)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
865 (tags-completion-table-function . etags-tags-completion-table)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
866 (snarf-tag-function . etags-snarf-tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
867 (goto-tag-location-function . etags-goto-tag-location)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
868 (find-tag-regexp-search-function . re-search-forward)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
869 (find-tag-regexp-tag-order . (tag-re-match-p))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
870 (find-tag-regexp-next-line-after-failuire-p . t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
871 (find-tag-search-function . search-forward)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
872 (find-tag-tag-order . (tag-exact-match-p tag-word-match-p
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
873 tag-any-match-p))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
874 (find-tag-next-line-after-failure-p . nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
875 (list-tags-function . etags-list-tags)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
876 (tags-apropos-function . etags-tags-apropos)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
877 (tags-included-tables-function . etags-tags-included-tables)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
878 (verify-tags-table-function . etags-verify-tags-table)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
879 ))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
880
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
881 ;; Return non-nil iff the current buffer is a valid etags TAGS file.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
882 (defun etags-verify-tags-table ()
1723
4023bea27d64 (etags-verify-tags-table): Use eq instead of = in case char-after returns
Roland McGrath <roland@gnu.org>
parents: 1697
diff changeset
883 ;; Use eq instead of = in case char-after returns nil.
4023bea27d64 (etags-verify-tags-table): Use eq instead of = in case char-after returns
Roland McGrath <roland@gnu.org>
parents: 1697
diff changeset
884 (eq (char-after 1) ?\f))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
885
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
886 (defun etags-file-of-tag ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
887 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
888 (search-backward "\f\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
889 (forward-char 2)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
890 (buffer-substring (point)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
891 (progn (skip-chars-forward "^,") (point)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
892
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
893 (defun etags-tags-completion-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
894 (let ((table (make-vector 511 0)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
895 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
896 (goto-char (point-min))
2448
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
897 ;; This monster regexp matches an etags tag line.
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
898 ;; \1 is the string to match;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
899 ;; \2 is not interesting;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
900 ;; \3 is the guessed tag name; XXX guess should be better eg DEFUN
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
901 ;; \4 is the char to start searching at;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
902 ;; \5 is the line to start searching at;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
903 ;; \6 is not interesting;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
904 ;; \7 is the explicitly-specified tag name.
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
905 (while (re-search-forward
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
906 "^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
907 \\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n"
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
908 nil t)
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
909 (intern (if (match-beginning 6)
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
910 ;; There is an explicit tag name.
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
911 (buffer-substring (match-beginning 6) (match-end 6))
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
912 ;; No explicit tag name. Best guess.
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
913 (buffer-substring (match-beginning 3) (match-end 3)))
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
914 table)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
915 table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
916
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
917 (defun etags-snarf-tag ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
918 (let (tag-text startpos)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
919 (search-forward "\177")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
920 (setq tag-text (buffer-substring (1- (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
921 (save-excursion (beginning-of-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
922 (point))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
923 (search-forward ",")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
924 (setq startpos (string-to-int (buffer-substring
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
925 (point)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
926 (progn (skip-chars-forward "0-9")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
927 (point)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
928 ;; Leave point on the next line of the tags file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
929 (forward-line 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
930 (cons tag-text startpos)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
931
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
932 (defun etags-goto-tag-location (tag-info)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
933 (let ((startpos (cdr tag-info))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
934 ;; This constant is 1/2 the initial search window.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
935 ;; There is no sense in making it too small,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
936 ;; since just going around the loop once probably
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
937 ;; costs about as much as searching 2000 chars.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
938 (offset 1000)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
939 (found nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
940 (pat (concat "^" (regexp-quote (car tag-info)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
941 (or startpos
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
942 (setq startpos (point-min)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
943 (while (and (not found)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
944 (progn
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
945 (goto-char (- startpos offset))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
946 (not (bobp))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
947 (setq found
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
948 (re-search-forward pat (+ startpos offset) t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
949 offset (* 3 offset))) ; expand search window
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
950 (or found
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
951 (re-search-forward pat nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
952 (error "`%s' not found in %s; time to rerun etags"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
953 pat buffer-file-name)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
954 (beginning-of-line))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
955
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
956 (defun etags-list-tags (file)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
957 (goto-char 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
958 (if (not (search-forward (concat "\f\n" file ",") nil t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
959 nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
960 (forward-line 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
961 (while (not (or (eobp) (looking-at "\f")))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
962 (princ (buffer-substring (point)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
963 (progn (skip-chars-forward "^\177")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
964 (point))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
965 (terpri)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
966 (forward-line 1))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
967
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
968 (defun etags-tags-apropos (string)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
969 (goto-char 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
970 (while (re-search-forward string nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
971 (beginning-of-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
972 (princ (buffer-substring (point)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
973 (progn (skip-chars-forward "^\177")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
974 (point))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
975 (terpri)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
976 (forward-line 1)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
977
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
978 (defun etags-tags-table-files ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
979 (let ((files nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
980 beg)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
981 (goto-char (point-min))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
982 (while (search-forward "\f\n" nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
983 (setq beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
984 (skip-chars-forward "^,\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
985 (or (looking-at ",include$")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
986 ;; Expand in the default-directory of the tags table buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
987 (setq files (cons (expand-file-name (buffer-substring beg (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
988 files))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
989 (nreverse files)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
990
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
991 (defun etags-tags-included-tables ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
992 (let ((files nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
993 beg)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
994 (goto-char (point-min))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
995 (while (search-forward "\f\n" nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
996 (setq beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
997 (skip-chars-forward "^,\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
998 (if (looking-at ",include$")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
999 ;; Expand in the default-directory of the tags table buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1000 (setq files (cons (expand-file-name (buffer-substring beg (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1001 files))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1002 (nreverse files)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1003
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1004 ;; Empty tags file support.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1005
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1006 ;; Recognize an empty file and give it local values of the tags table format
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1007 ;; variables which do nothing.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1008 (defun recognize-empty-tags-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1009 (and (zerop (buffer-size))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1010 (mapcar (function (lambda (sym)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1011 (set (make-local-variable sym) 'ignore)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1012 '(tags-table-files-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1013 tags-completion-table-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1014 find-tag-regexp-search-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1015 find-tag-search-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1016 tags-apropos-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1017 tags-included-tables-function))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1018 (set (make-local-variable 'verify-tags-table-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1019 (function (lambda ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1020 (zerop (buffer-size)))))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1021
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1022 ;;; Match qualifier functions for tagnames.
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1023 ;;; XXX these functions assume etags file format.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1024
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1025 ;; This might be a neat idea, but it's too hairy at the moment.
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1026 ;;(defmacro tags-with-syntax (&rest body)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1027 ;; (` (let ((current (current-buffer))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1028 ;; (otable (syntax-table))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1029 ;; (buffer (find-file-noselect (file-of-tag)))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1030 ;; table)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1031 ;; (unwind-protect
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1032 ;; (progn
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1033 ;; (set-buffer buffer)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1034 ;; (setq table (syntax-table))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1035 ;; (set-buffer current)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1036 ;; (set-syntax-table table)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1037 ;; (,@ body))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1038 ;; (set-syntax-table otable)))))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1039 ;;(put 'tags-with-syntax 'edebug-form-spec '(&rest form))
877
e0dde8b90613 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 852
diff changeset
1040
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1041 ;; t if point is at a tag line that matches TAG "exactly".
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1042 ;; point should be just after a string that matches TAG.
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1043 (defun tag-exact-match-p (tag)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1044 (and (looking-at "\\Sw.*\177") (looking-at "\\S_.*\177") ;not a symbol char
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1045 (save-excursion
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1046 (backward-char (1+ (length tag)))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1047 (and (looking-at "\\Sw") (looking-at "\\S_")))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1048
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1049 ;; t if point is at a tag line that matches TAG as a word.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1050 ;; point should be just after a string that matches TAG.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1051 (defun tag-word-match-p (tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1052 (and (looking-at "\\b.*\177")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1053 (save-excursion (backward-char (1+ (length tag)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1054 (looking-at "\\b"))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1055
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1056 ;; t if point is in a tag line with a tag containing TAG as a substring.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1057 (defun tag-any-match-p (tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1058 (looking-at ".*\177"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1059
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1060 ;; t if point is at a tag line that matches RE as a regexp.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1061 (defun tag-re-match-p (re)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1062 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1063 (beginning-of-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1064 (let ((bol (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1065 (and (search-forward "\177" (save-excursion (end-of-line) (point)) t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1066 (re-search-backward re bol t)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1067
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1068 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1069 (defun next-file (&optional initialize novisit)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1070 "Select next file among files in current tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1071 Non-nil first argument (prefix arg, if interactive)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1072 initializes to the beginning of the list of files in the tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1073
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1074 Non-nil second argument NOVISIT means use a temporary buffer
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1075 to save time and avoid uninteresting warnings.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1076
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1077 Value is nil if the file was already visited;
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1078 if the file was newly read in, the value is the filename."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 (interactive "P")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1080 (and initialize
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1081 (save-excursion
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1082 ;; Visit the tags table buffer to get its list of files.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1083 (visit-tags-table-buffer)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1084 (setq next-file-list (tags-table-files))))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 (or next-file-list
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1086 (save-excursion
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
1087 ;; Get the files from the next tags table.
1152
d9733ad5643a *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1151
diff changeset
1088 ;; When doing (visit-tags-table-buffer t),
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1089 ;; the tags table buffer must be current.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1090 (if (and (visit-tags-table-buffer 'same)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1091 (visit-tags-table-buffer t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1092 (setq next-file-list (tags-table-files))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1093 (and novisit
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1094 (get-buffer " *next-file*")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1095 (kill-buffer " *next-file*"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1096 (error "All files processed."))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1097 (let ((new (not (get-file-buffer (car next-file-list)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1098 (if (not (and new novisit))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1099 (set-buffer (find-file-noselect (car next-file-list) novisit))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1100 ;; Like find-file, but avoids random warning messages.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1101 (set-buffer (get-buffer-create " *next-file*"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1102 (kill-all-local-variables)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1103 (erase-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1104 (setq new (car next-file-list))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1105 (insert-file-contents new nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1106 (setq next-file-list (cdr next-file-list))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1107 new))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1108
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1109 (defvar tags-loop-operate nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1110 "Form for `tags-loop-continue' to eval to change one file.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1111
1808
60685747963c (tags-loop-scan): Set default value to an error form.
Roland McGrath <roland@gnu.org>
parents: 1807
diff changeset
1112 (defvar tags-loop-scan
60685747963c (tags-loop-scan): Set default value to an error form.
Roland McGrath <roland@gnu.org>
parents: 1807
diff changeset
1113 '(error (substitute-command-keys
60685747963c (tags-loop-scan): Set default value to an error form.
Roland McGrath <roland@gnu.org>
parents: 1807
diff changeset
1114 "No \\[tags-search] or \\[tags-query-replace] in progress."))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1115 "Form for `tags-loop-continue' to eval to scan one file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1116 If it returns non-nil, this file needs processing by evalling
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1117 \`tags-loop-operate'. Otherwise, move on to the next file.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1118
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1119 ;;;###autoload
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1120 (defun tags-loop-continue (&optional first-time)
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1121 "Continue last \\[tags-search] or \\[tags-query-replace] command.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1122 Used noninteractively with non-nil argument to begin such a command.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1123 Two variables control the processing we do on each file:
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1124 the value of `tags-loop-scan' is a form to be executed on each file
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1125 to see if it is interesting (it returns non-nil if so)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1126 and `tags-loop-operate' is a form to execute to operate on an interesting file
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1127 If the latter returns non-nil, we exit; otherwise we scan the next file."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1128 (interactive)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1129 (let (new
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1130 (messaged nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1131 (while
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1132 (progn
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1133 ;; Scan files quickly for the first or next interesting one.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1134 (while (or first-time
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1135 (save-restriction
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1136 (widen)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1137 (not (eval tags-loop-scan))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1138 (setq new (next-file first-time t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1139 ;; If NEW is non-nil, we got a temp buffer,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1140 ;; and NEW is the file name.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1141 (if (or messaged
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1142 (and (not first-time)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1143 (> baud-rate search-slow-speed)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1144 (setq messaged t)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1145 (message "Scanning file %s..." (or new buffer-file-name)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1146 (setq first-time nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1147 (goto-char (point-min)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1148
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1149 ;; If we visited it in a temp buffer, visit it now for real.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1150 (if new
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1151 (let ((pos (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1152 (erase-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1153 (set-buffer (find-file-noselect new))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1154 (widen)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1155 (goto-char pos)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1156
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1157 (switch-to-buffer (current-buffer))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1158
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1159 ;; Now operate on the file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1160 ;; If value is non-nil, continue to scan the next file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1161 (eval tags-loop-operate)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1162 (and messaged
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1163 (null tags-loop-operate)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1164 (message "Scanning file %s...found" buffer-file-name))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1165 ;;;###autoload (define-key esc-map "," 'tags-loop-continue)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1166
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1167 ;;;###autoload
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1168 (defun tags-search (regexp)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1169 "Search through all files listed in tags table for match for REGEXP.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1170 Stops when a match is found.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1171 To continue searching for next match, use command \\[tags-loop-continue].
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1172
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1173 See documentation of variable `tags-file-name'."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1174 (interactive "sTags search (regexp): ")
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 (if (and (equal regexp "")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1176 (eq (car tags-loop-scan) 're-search-forward)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1177 (null tags-loop-operate))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1178 ;; Continue last tags-search as if by M-,.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1179 (tags-loop-continue nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1180 (setq tags-loop-scan
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1181 (list 're-search-forward regexp nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1182 tags-loop-operate nil)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1183 (tags-loop-continue t)))
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1184
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1185 ;;;###autoload
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1186 (defun tags-query-replace (from to &optional delimited)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1187 "Query-replace-regexp FROM with TO through all files listed in tags table.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1188 Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1189 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1190 with the command \\[tags-loop-continue].
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1191
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1192 See documentation of variable `tags-file-name'."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1193 (interactive
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1194 "sTags query replace (regexp): \nsTags query replace %s by: \nP")
804
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1195 (setq tags-loop-scan (list 'prog1
1816
7fc396d27130 (tags-query-replace): C-t
Roland McGrath <roland@gnu.org>
parents: 1808
diff changeset
1196 (list 'if (list 're-search-forward from nil t)
804
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1197 ;; When we find a match, move back
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1198 ;; to the beginning of it so perform-replace
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1199 ;; will see it.
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1200 '(goto-char (match-beginning 0))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1201 tags-loop-operate (list 'perform-replace from to t t delimited))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202 (tags-loop-continue t))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1203
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1204 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1205 (defun list-tags (file)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1206 "Display list of tags in file FILE.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1207 FILE should not contain a directory specification
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1208 unless it has one in the tags table."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1209 (interactive (list (completing-read "List tags in file: " nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1210 'tags-table-files t nil)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1211 (with-output-to-temp-buffer "*Tags List*"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1212 (princ "Tags in file ")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1213 (princ file)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1214 (terpri)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1215 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1216 (let ((first-time t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1217 (gotany nil))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1218 (while (visit-tags-table-buffer (not first-time))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1219 (if (funcall list-tags-function file)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1220 (setq gotany t)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1221 (or gotany
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1222 (error "File %s not in current tags tables"))))))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1224 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1225 (defun tags-apropos (regexp)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1226 "Display list of all tags in tags table REGEXP matches."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1227 (interactive "sTags apropos (regexp): ")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1228 (with-output-to-temp-buffer "*Tags List*"
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1229 (princ "Tags matching regexp ")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1230 (prin1 regexp)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 (terpri)
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232 (save-excursion
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1233 (let ((first-time t))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1234 (while (visit-tags-table-buffer (not first-time))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1235 (setq first-time nil)
1151
3dd95c0296ef *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1149
diff changeset
1236 (funcall tags-apropos-function regexp))))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1237
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1238 ;;; XXX Kludge interface.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1240 ;; XXX If a file is in multiple tables, selection may get the wrong one.
804
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
1241 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1242 (defun select-tags-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1243 "Select a tags table file from a menu of those you have already used.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1244 The list of tags tables to select from is stored in `tags-table-file-list';
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1245 see the doc of that variable if you want to add names to the list."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1246 (interactive)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1247 (pop-to-buffer "*Tags Table List*")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1248 (setq buffer-read-only nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1249 (erase-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1250 (setq selective-display t
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1251 selective-display-ellipses nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1252 (let ((set-list tags-table-set-list)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1253 (desired-point nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1254 (if tags-table-list
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1255 (progn
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1256 (setq desired-point (point-marker))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1257 (princ tags-table-list (current-buffer))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1258 (insert "\C-m")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1259 (prin1 (car tags-table-list) (current-buffer)) ;invisible
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1260 (insert "\n")))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1261 (while set-list
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1262 (if (eq (car set-list) tags-table-list)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1263 ;; Already printed it.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1264 ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1265 (princ (car set-list) (current-buffer))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1266 (insert "\C-m")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1267 (prin1 (car (car set-list)) (current-buffer)) ;invisible
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1268 (insert "\n"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1269 (setq set-list (cdr set-list)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1270 (if tags-file-name
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1271 (progn
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1272 (or desired-point
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1273 (setq desired-point (point-marker)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1274 (insert tags-file-name "\C-m")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1275 (prin1 tags-file-name (current-buffer)) ;invisible
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1276 (insert "\n")))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1277 (setq set-list (delete tags-file-name
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1278 (apply 'nconc (cons tags-table-list
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1279 (mapcar 'copy-sequence
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1280 tags-table-set-list)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1281 (while set-list
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1282 (insert (car set-list) "\C-m")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1283 (prin1 (car set-list) (current-buffer)) ;invisible
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1284 (insert "\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1285 (setq set-list (delete (car set-list) set-list)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1286 (goto-char 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1287 (insert-before-markers
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1288 "Type `t' to select a tags table or set of tags tables:\n\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1289 (if desired-point
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1290 (goto-char desired-point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1291 (set-window-start (selected-window) 1 t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1292 (set-buffer-modified-p nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1293 (setq buffer-read-only t
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1294 mode-name "Select Tags Table")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1295 (let ((map (make-sparse-keymap)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1296 (define-key map "t" 'select-tags-table-select)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1297 (define-key map " " 'next-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1298 (define-key map "\^?" 'previous-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1299 (define-key map "n" 'next-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1300 (define-key map "p" 'previous-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1301 (define-key map "q" 'select-tags-table-quit)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1302 (use-local-map map)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1303
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1304 (defun select-tags-table-select ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1305 "Select the tags table named on this line."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1306 (interactive)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1307 (search-forward "\C-m")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1308 (let ((name (read (current-buffer))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1309 (visit-tags-table name)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1310 (select-tags-table-quit)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1311 (message "Tags table now %s" name)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1312
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1313 (defun select-tags-table-quit ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1314 "Kill the buffer and delete the selected window."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1315 (interactive)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1316 (kill-buffer (current-buffer))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1317 (or (one-window-p)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1318 (delete-window)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1319
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1320 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1321 (defun complete-tag ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1322 "Perform tags completion on the text around point.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1323 Completes to the set of names listed in the current tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1324 The string to complete is chosen in the same way as the default
981
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1325 for \\[find-tag] (which see)."
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1326 (interactive)
981
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1327 (or tags-table-list
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1328 tags-file-name
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1329 (error (substitute-command-keys
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1330 "No tags table loaded. Try \\[visit-tags-table].")))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1331 (let ((pattern (funcall (or find-tag-default-function
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1332 (get major-mode 'find-tag-default-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1333 'find-tag-default)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1334 beg
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1335 completion)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1336 (or pattern
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1337 (error "Nothing to complete"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1338 (search-backward pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1339 (setq beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1340 (forward-char (length pattern))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1341 (setq completion (try-completion pattern 'tags-complete-tag nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1342 (cond ((eq completion t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1343 ((null completion)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1344 (message "Can't find completion for \"%s\"" pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1345 (ding))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1346 ((not (string= pattern completion))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1347 (delete-region beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1348 (insert completion))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1349 (t
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1350 (message "Making completion list...")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1351 (with-output-to-temp-buffer " *Completions*"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1352 (display-completion-list
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1353 (all-completions pattern 'tags-complete-tag nil)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1354 (message "Making completion list...%s" "done")))))
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1355
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1356 ;;;###autoload (define-key esc-map "\t" 'complete-tag)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1357
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
1358 (provide 'etags)
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
1359
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
1360 ;;; etags.el ends here