annotate lisp/progmodes/etags.el @ 67171:35b9e081ceed

Remove useless leading * in defcustom docstrings. (save-completions-file-name): Use ~/.emacs.d if available. (completion-standard-syntax-table): Rename from cmpl-standard-syntax-table and fold initialization into declaration, thus removing cmpl-make-standard-completion-syntax-table. (completion-lisp-syntax-table, completion-c-syntax-table) (completion-fortran-syntax-table, completion-c-def-syntax-table): Idem. (cmpl-saved-syntax, cmpl-saved-point): Remove. (symbol-under-point, symbol-before-point) (symbol-under-or-before-point, symbol-before-point-for-complete) (add-completions-from-c-buffer): Use with-syntax-table. (make-completion): Don't return a list of completion entries. Update callers. (cmpl-prefix-entry-head, cmpl-prefix-entry-tail): Use defalias. (completion-initialize): Rename from initialize-completions. (completion-find-file-hook): Rename from cmpl-find-file-hook. (kill-emacs-save-completions): Collect stats here. (save-completions-to-file, load-completions-from-file): Use with-current-buffer. (completion-def-wrapper): Rename from def-completion-wrapper. Make it into a function. Move all calls to toplevel. (completion-lisp-mode-hook): New fun. (completion-c-mode-hook, completion-setup-fortran-mode): Set the syntax-table here. Use local-set-key. (completion-saved-bindings): New var. (dynamic-completion-mode): Make it into a proper minor mode. (load-completions-from-file): Remove unused var `num-uses'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 28 Nov 2005 01:43:28 +0000
parents 3f62e030a058
children dc49655f57ae 0ca0d9181b5e
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
40255
ad4ee591fe2f Adapt to change in perform-replace.
Gerd Moellmann <gerd@gnu.org>
parents: 37963
diff changeset
2
64699
629afbe74e61 Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents: 64085
diff changeset
3 ;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993, 1994, 1995, 1996, 1998,
629afbe74e61 Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents: 64085
diff changeset
4 ;; 2000, 2001, 2002, 2003, 2004, 2005
1806
da47cfb7624e (visit-tags-table-buffer): Error if called with 'same and no current table.
Roland McGrath <roland@gnu.org>
parents: 1724
diff changeset
5 ;; Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 824
diff changeset
6
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 23561
diff changeset
7 ;; Author: Roland McGrath <roland@gnu.org>
32324
581b490bcb94 Maintainer line updated.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32311
diff changeset
8 ;; Maintainer: FSF
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
9 ;; Keywords: tools
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
10
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;; 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
15 ;; the Free Software Foundation; either version 2, or (at your option)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; any later version.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13731
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 64043
diff changeset
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 64043
diff changeset
26 ;; Boston, MA 02110-1301, USA.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
28 ;;; Commentary:
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
29
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
30 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
31
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
32 (require 'ring)
50419
27e134f43171 Require button.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 49734
diff changeset
33 (require 'button)
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
34
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
35 ;;;###autoload
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
36 (defvar tags-file-name nil
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
37 "*File name of tags table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
38 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
39 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
40 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
41 ;; 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
42 ;;;###autoload (put 'tags-file-name 'variable-interactive "fVisit tags table: ")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
43
64043
ae098eff094f (etags): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents: 62622
diff changeset
44 (defgroup etags nil "Tags tables."
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
45 :group 'tools)
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
46
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
47 ;;;###autoload
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
48 (defcustom tags-case-fold-search 'default
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
49 "*Whether tags operations should be case-sensitive.
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
50 A value of t means case-insensitive, a value of nil means case-sensitive.
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
51 Any other value means use the setting of `case-fold-search'."
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
52 :group 'etags
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
53 :type '(choice (const :tag "Case-sensitive" nil)
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
54 (const :tag "Case-insensitive" t)
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
55 (other :tag "Use default" default))
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
56 :version "21.1")
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
57
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
58 ;;;###autoload
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
59 ;; Use `visit-tags-table-buffer' to cycle through tags tables in this list.
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
60 (defcustom tags-table-list nil
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
61 "*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
62 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
63 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
64 If you set this variable, do not also set `tags-file-name'.
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
65 Use the `etags' program to make a tags table file."
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
66 :group 'etags
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
67 :type '(repeat file))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
68
6140
35fc497c9f4e (tags-add-tables): Change default value to 'ask-user; update doc.
Roland McGrath <roland@gnu.org>
parents: 5892
diff changeset
69 ;;;###autoload
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
70 (defcustom tags-compression-info-list '("" ".Z" ".bz2" ".gz" ".tgz")
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
71 "*List of extensions tried by etags when jka-compr is used.
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
72 An empty string means search the non-compressed file.
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
73 These extensions will be tried only if jka-compr was activated
37963
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
74 \(i.e. via customize of `auto-compression-mode' or by calling the function
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
75 `auto-compression-mode')."
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
76 :type '(repeat string)
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
77 :group 'etags)
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
78
37963
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
79 ;; !!! tags-compression-info-list should probably be replaced by access
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
80 ;; to directory list and matching jka-compr-compression-info-list. Currently,
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
81 ;; this implementation forces each modification of
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
82 ;; jka-compr-compression-info-list to be reflected in this var.
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
83 ;; An alternative could be to say that introducing a special
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
84 ;; element in this list (e.g. t) means : try at this point
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
85 ;; using directory listing and regexp matching using
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
86 ;; jka-compr-compression-info-list.
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
87
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
88
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
89 ;;;###autoload
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
90 (defcustom tags-add-tables 'ask-user
7112
91ba2f787c8f (tags-add-tables): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 6245
diff changeset
91 "*Control whether to add a new tags table to the current list.
91ba2f787c8f (tags-add-tables): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 6245
diff changeset
92 t means do; nil means don't (always start a new list).
91ba2f787c8f (tags-add-tables): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 6245
diff changeset
93 Any other value means ask the user whether to add a new tags table
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
94 to the current list (as opposed to starting a new list)."
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
95 :group 'etags
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
96 :type '(choice (const :tag "Do" t)
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
97 (const :tag "Don't" nil)
22594
d5904b1c89af (tags-add-tables): Use `other' widget type.
Andreas Schwab <schwab@suse.de>
parents: 21669
diff changeset
98 (other :tag "Ask" ask-user)))
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
99
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
100 (defcustom tags-revert-without-query nil
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
101 "*Non-nil means reread a TAGS table without querying, if it has changed."
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
102 :group 'etags
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
103 :type 'boolean)
5174
bb40928e9e47 (tags-add-tables): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5079
diff changeset
104
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
105 (defvar tags-table-computed-list nil
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
106 "List of tags tables to search, computed from `tags-table-list'.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
107 This includes tables implicitly included by other tables. The list is not
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
108 always complete: the included tables of a table are not known until that
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
109 table is read into core. An element that is t is a placeholder
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
110 indicating that the preceding element is a table that has not been read
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
111 into core and might contain included tables to search.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
112 See `tags-table-check-computed-list'.")
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
113
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
114 (defvar tags-table-computed-list-for nil
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
115 "Value of `tags-table-list' that `tags-table-computed-list' corresponds to.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
116 If `tags-table-list' changes, `tags-table-computed-list' is thrown away and
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
117 recomputed; see `tags-table-check-computed-list'.")
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
118
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
119 (defvar tags-table-list-pointer nil
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
120 "Pointer into `tags-table-computed-list' for the current state of searching.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
121 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
122
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
123 (defvar tags-table-list-started-at nil
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
124 "Pointer into `tags-table-computed-list', where the current search started.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
125
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
126 (defvar tags-table-set-list nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
127 "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
128 Each element is a list of strings which are file names.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
130 ;;;###autoload
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
131 (defcustom find-tag-hook nil
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
132 "*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
133 The value in the buffer in which \\[find-tag] is done is used,
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
134 not the value in the buffer \\[find-tag] goes to."
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
135 :group 'etags
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
136 :type 'hook)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
137
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
138 ;;;###autoload
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
139 (defcustom find-tag-default-function nil
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
140 "*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
141 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
142 has a `find-tag-default-function' property (see `put'), that is used.
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
143 Otherwise, `find-tag-default' is used."
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
144 :group 'etags
35961
850d490d87f3 (find-tag-default-function): Fix :type.
Dave Love <fx@gnu.org>
parents: 35649
diff changeset
145 :type '(choice (const nil) function))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
147 (defcustom find-tag-marker-ring-length 16
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
148 "*Length of marker rings `find-tag-marker-ring' and `tags-location-ring'."
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
149 :group 'etags
21669
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21097
diff changeset
150 :type 'integer
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21097
diff changeset
151 :version "20.3")
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
152
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
153 (defcustom tags-tag-face 'default
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
154 "*Face for tags in the output of `tags-apropos'."
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
155 :group 'etags
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
156 :type 'face
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
157 :version "21.1")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
158
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
159 (defcustom tags-apropos-verbose nil
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
160 "If non-nil, print the name of the tags file in the *Tags List* buffer."
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
161 :group 'etags
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
162 :type 'boolean
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
163 :version "21.1")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
164
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
165 (defcustom tags-apropos-additional-actions nil
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
166 "Specify additional actions for `tags-apropos'.
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
167
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
168 If non-nil, value should be a list of triples (TITLE FUNCTION
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
169 TO-SEARCH). For each triple, `tags-apropos' processes TO-SEARCH and
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
170 lists tags from it. TO-SEARCH should be an alist, obarray, or symbol.
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
171 If it is a symbol, the symbol's value is used.
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
172 TITLE, a string, is a title used to label the additional list of tags.
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
173 FUNCTION is a function to call when a symbol is selected in the
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
174 *Tags List* buffer. It will be called with one argument SYMBOL which
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
175 is the symbol being selected.
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
176
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
177 Example value:
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
178
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
179 '((\"Emacs Lisp\" Info-goto-emacs-command-node obarray)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
180 (\"Common Lisp\" common-lisp-hyperspec common-lisp-hyperspec-obarray)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
181 (\"SCWM\" scwm-documentation scwm-obarray))"
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
182 :group 'etags
35181
62f469e476eb (tags-apropos-additional-actions): Fix :type.
Dave Love <fx@gnu.org>
parents: 34190
diff changeset
183 :type '(repeat (list (string :tag "Title")
62f469e476eb (tags-apropos-additional-actions): Fix :type.
Dave Love <fx@gnu.org>
parents: 34190
diff changeset
184 function
62f469e476eb (tags-apropos-additional-actions): Fix :type.
Dave Love <fx@gnu.org>
parents: 34190
diff changeset
185 (sexp :tag "Tags to search")))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
186 :version "21.1")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
187
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
188 (defvar find-tag-marker-ring (make-ring find-tag-marker-ring-length)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
189 "Ring of markers which are locations from which \\[find-tag] was invoked.")
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
190
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
191 (defvar default-tags-table-function nil
5174
bb40928e9e47 (tags-add-tables): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5079
diff changeset
192 "If non-nil, a function to choose a default tags file for a buffer.
bb40928e9e47 (tags-add-tables): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5079
diff changeset
193 This function receives no arguments and should return the default
bb40928e9e47 (tags-add-tables): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5079
diff changeset
194 tags table file to use for the current 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
195
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
196 (defvar tags-location-ring (make-ring find-tag-marker-ring-length)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
197 "Ring of markers which are locations visited by \\[find-tag].
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
198 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
199
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
200 ;; Tags table state.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
201 ;; These variables are local in tags table buffers.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
202
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
203 (defvar tags-table-files nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
204 "List of file names covered by current tags table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
205 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
206
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
207 (defvar tags-completion-table nil
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
208 "Obarray of tag names defined in current tags table.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
209
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
210 (defvar tags-included-tables nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
211 "List of tags tables included by the current tags table.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
212
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
213 (defvar next-file-list nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
214 "List of files for \\[next-file] to process.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
215
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
216 ;; Hooks for file formats.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
217
32324
581b490bcb94 Maintainer line updated.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32311
diff changeset
218 (defvar tags-table-format-functions '(etags-recognize-tags-table
581b490bcb94 Maintainer line updated.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32311
diff changeset
219 tags-recognize-empty-tags-table)
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
220 "Hook to be called in a tags table buffer to identify the type of tags table.
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
221 The functions are called in order, with no arguments,
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
222 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
223 of the format-parsing tags function variables if successful.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
224
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
225 (defvar file-of-tag-function nil
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
226 "Function to do the work of `file-of-tag' (which see).
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
227 One optional argument, a boolean specifying to return complete path (nil) or
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
228 relative path (non-nil).")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
229 (defvar tags-table-files-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
230 "Function to do the work of `tags-table-files' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
231 (defvar tags-completion-table-function nil
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
232 "Function to build the `tags-completion-table'.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
233 (defvar snarf-tag-function nil
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
234 "Function to get info about a matched tag for `goto-tag-location-function'.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
235 One optional argument, specifying to use explicit tag (non-nil) or not (nil).
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
236 The default is nil.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
237 (defvar goto-tag-location-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
238 "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
239 One argument, the tag info returned by `snarf-tag-function'.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
240 (defvar find-tag-regexp-search-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
241 "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
242 (defvar find-tag-regexp-tag-order nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
243 "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
244 (defvar find-tag-regexp-next-line-after-failure-p nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
245 "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
246 (defvar find-tag-search-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
247 "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
248 (defvar find-tag-tag-order nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
249 "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
250 (defvar find-tag-next-line-after-failure-p nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
251 "Flag passed to `find-tag-in-order' for finding a tag.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
252 (defvar list-tags-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
253 "Function to do the work of `list-tags' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
254 (defvar tags-apropos-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
255 "Function to do the work of `tags-apropos' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
256 (defvar tags-included-tables-function nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
257 "Function to do the work of `tags-included-tables' (which see).")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
258 (defvar verify-tags-table-function nil
19358
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
259 "Function to return t iff current buffer contains valid tags file.")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
260
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
261 ;; Initialize the tags table in the current buffer.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
262 ;; 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
263 ;; 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
264 ;; made buffer-local and initialized to nil.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
265 (defun initialize-new-tags-table ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
266 (set (make-local-variable 'tags-table-files) nil)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
267 (set (make-local-variable 'tags-completion-table) nil)
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
268 (set (make-local-variable 'tags-included-tables) nil)
23561
70fafedc3c4c (initialize-new-tags-table):
Richard M. Stallman <rms@gnu.org>
parents: 23415
diff changeset
269 ;; We used to initialize find-tag-marker-ring and tags-location-ring
70fafedc3c4c (initialize-new-tags-table):
Richard M. Stallman <rms@gnu.org>
parents: 23415
diff changeset
270 ;; here, to new empty rings. But that is wrong, because those
70fafedc3c4c (initialize-new-tags-table):
Richard M. Stallman <rms@gnu.org>
parents: 23415
diff changeset
271 ;; are global.
70fafedc3c4c (initialize-new-tags-table):
Richard M. Stallman <rms@gnu.org>
parents: 23415
diff changeset
272
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
273 ;; Value is t if we have found a valid tags table buffer.
32324
581b490bcb94 Maintainer line updated.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32311
diff changeset
274 (run-hook-with-args-until-success 'tags-table-format-functions))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
275
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
276 ;;;###autoload
66277
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
277 (defun tags-table-mode ()
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
278 "Major mode for tags table file buffers."
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
279 (interactive)
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
280 (setq major-mode 'tags-table-mode)
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
281 (setq mode-name "Tags Table")
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
282 (initialize-new-tags-table))
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
283
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
284 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
285 (defun visit-tags-table (file &optional local)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
286 "Tell tags commands to use tags table file FILE.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 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
288 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
289
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
290 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
291 With a prefix arg, set the buffer-local value instead.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
292 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
293 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
294 file the tag was in."
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 64699
diff changeset
295 (interactive (list (read-file-name "Visit tags table (default TAGS): "
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 default-directory
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
297 (expand-file-name "TAGS"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
298 default-directory)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
299 t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
300 current-prefix-arg))
7287
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
301 (or (stringp file) (signal 'wrong-type-argument (list 'stringp file)))
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
302 ;; Bind tags-file-name so we can control below whether the local or
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
303 ;; global value gets set. Calling visit-tags-table-buffer will
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
304 ;; initialize a buffer for the file and set tags-file-name to the
10661
32beb7b6dbf7 Changes to support filenames as tags too and provided
Richard M. Stallman <rms@gnu.org>
parents: 10458
diff changeset
305 ;; Calling visit-tags-table-buffer with tags-file-name set to FILE will
32beb7b6dbf7 Changes to support filenames as tags too and provided
Richard M. Stallman <rms@gnu.org>
parents: 10458
diff changeset
306 ;; initialize a buffer for FILE and set tags-file-name to the
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
307 ;; fully-expanded name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
308 (let ((tags-file-name file))
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
309 (save-excursion
7287
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
310 (or (visit-tags-table-buffer file)
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
311 (signal 'file-error (list "Visiting tags table"
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
312 "file does not exist"
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
313 file)))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
314 ;; Set FILE to the expanded name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
315 (setq file tags-file-name)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
316 (if local
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
317 ;; Set the local value of tags-file-name.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
318 (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
319 ;; Set the global value of tags-file-name.
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
320 (setq-default tags-file-name file)))
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
321
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
322 (defun tags-table-check-computed-list ()
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
323 "Compute `tags-table-computed-list' from `tags-table-list' if necessary."
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
324 (let ((expanded-list (mapcar 'tags-expand-table-name tags-table-list)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
325 (or (equal tags-table-computed-list-for expanded-list)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
326 ;; The list (or default-directory) has changed since last computed.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
327 (let* ((compute-for (mapcar 'copy-sequence expanded-list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
328 (tables (copy-sequence compute-for)) ;Mutated in the loop.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
329 (computed nil)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
330 table-buffer)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
331
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
332 (while tables
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
333 (setq computed (cons (car tables) computed)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
334 table-buffer (get-file-buffer (car tables)))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
335 (if (and table-buffer
9020
857ced7767c0 (tags-table-check-computed-list): Call tags-verify-table on existing
Roland McGrath <roland@gnu.org>
parents: 8973
diff changeset
336 ;; There is a buffer visiting the file. Now make sure
857ced7767c0 (tags-table-check-computed-list): Call tags-verify-table on existing
Roland McGrath <roland@gnu.org>
parents: 8973
diff changeset
337 ;; it is initialized as a tag table buffer.
857ced7767c0 (tags-table-check-computed-list): Call tags-verify-table on existing
Roland McGrath <roland@gnu.org>
parents: 8973
diff changeset
338 (save-excursion
857ced7767c0 (tags-table-check-computed-list): Call tags-verify-table on existing
Roland McGrath <roland@gnu.org>
parents: 8973
diff changeset
339 (tags-verify-table (buffer-file-name table-buffer))))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
340 (save-excursion
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
341 (set-buffer table-buffer)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
342 (if (tags-included-tables)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
343 ;; Insert the included tables into the list we
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
344 ;; are processing.
13165
e5431229a09f (tags-table-check-computed-list): Map tags-expand-table-name over lists of
Roland McGrath <roland@gnu.org>
parents: 12942
diff changeset
345 (setcdr tables (nconc (mapcar 'tags-expand-table-name
e5431229a09f (tags-table-check-computed-list): Map tags-expand-table-name over lists of
Roland McGrath <roland@gnu.org>
parents: 12942
diff changeset
346 (tags-included-tables))
e5431229a09f (tags-table-check-computed-list): Map tags-expand-table-name over lists of
Roland McGrath <roland@gnu.org>
parents: 12942
diff changeset
347 (cdr tables)))))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
348 ;; This table is not in core yet. Insert a placeholder
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
349 ;; saying we must read it into core to check for included
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
350 ;; tables before searching the next table in the list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
351 (setq computed (cons t computed)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
352 (setq tables (cdr tables)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
353
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
354 ;; Record the tags-table-list value (and the context of the
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
355 ;; current directory) we computed from.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
356 (setq tags-table-computed-list-for compute-for
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
357 tags-table-computed-list (nreverse computed))))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
358
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
359 ;; Extend `tags-table-computed-list' to remove the first `t' placeholder.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
360 ;; An element of the list that is `t' is a placeholder indicating that the
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
361 ;; preceding element is a table that has not been read into core and might
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
362 ;; contain included tables to search. On return, the first placeholder
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
363 ;; element will be gone and the element before it read into core and its
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
364 ;; included tables inserted into the list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
365 (defun tags-table-extend-computed-list ()
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
366 (let ((list tags-table-computed-list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
367 (while (not (eq (nth 1 list) t))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
368 (setq list (cdr list)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
369 (save-excursion
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
370 (if (tags-verify-table (car list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
371 ;; We are now in the buffer visiting (car LIST). Extract its
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
372 ;; list of included tables and insert it into the computed list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
373 (let ((tables (tags-included-tables))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
374 (computed nil)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
375 table-buffer)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
376 (while tables
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
377 (setq computed (cons (car tables) computed)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
378 table-buffer (get-file-buffer (car tables)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
379 (if table-buffer
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
380 (save-excursion
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
381 (set-buffer table-buffer)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
382 (if (tags-included-tables)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
383 ;; Insert the included tables into the list we
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
384 ;; are processing.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
385 (setcdr tables (append (tags-included-tables)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
386 tables))))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
387 ;; This table is not in core yet. Insert a placeholder
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
388 ;; saying we must read it into core to check for included
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
389 ;; tables before searching the next table in the list.
8623
428abda49671 (tags-table-extend-computed-list): In loop processing list of included
Roland McGrath <roland@gnu.org>
parents: 8509
diff changeset
390 (setq computed (cons t computed)))
428abda49671 (tags-table-extend-computed-list): In loop processing list of included
Roland McGrath <roland@gnu.org>
parents: 8509
diff changeset
391 (setq tables (cdr tables)))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
392 (setq computed (nreverse computed))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
393 ;; COMPUTED now contains the list of included tables (and
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
394 ;; tables included by them, etc.). Now splice this into the
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
395 ;; current list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
396 (setcdr list (nconc computed (cdr (cdr list)))))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
397 ;; It was not a valid table, so just remove the following placeholder.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
398 (setcdr list (cdr (cdr list)))))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
399
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
400 ;; Expand tags table name FILE into a complete file name.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
401 (defun tags-expand-table-name (file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
402 (setq file (expand-file-name file))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
403 (if (file-directory-p file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
404 (expand-file-name "TAGS" file)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
405 file))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
406
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
407 ;; Like member, but comparison is done after tags-expand-table-name on both
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
408 ;; sides and elements of LIST that are t are skipped.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
409 (defun tags-table-list-member (file list)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
410 (setq file (tags-expand-table-name file))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
411 (while (and list
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
412 (or (eq (car list) t)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
413 (not (string= file (tags-expand-table-name (car list))))))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
414 (setq list (cdr list)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
415 list)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
416
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
417 (defun tags-verify-table (file)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
418 "Read FILE into a buffer and verify that it is a valid tags table.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
419 Sets the current buffer to one visiting FILE (if it exists).
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
420 Returns non-nil iff it is a valid table."
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
421 (if (get-file-buffer file)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
422 ;; The file is already in a buffer. Check for the visited file
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
423 ;; having changed since we last used it.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
424 (let (win)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
425 (set-buffer (get-file-buffer file))
66277
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
426 (setq win (or verify-tags-table-function (tags-table-mode)))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
427 (if (or (verify-visited-file-modtime (current-buffer))
19358
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
428 ;; Decide whether to revert the file.
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
429 ;; revert-without-query can say to revert
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
430 ;; or the user can say to revert.
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
431 (not (or (let ((tail revert-without-query)
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
432 (found nil))
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
433 (while tail
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
434 (if (string-match (car tail) buffer-file-name)
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
435 (setq found t))
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
436 (setq tail (cdr tail)))
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
437 found)
20515
2edce6cd0ef0 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 19735
diff changeset
438 tags-revert-without-query
19358
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
439 (yes-or-no-p
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
440 (format "Tags file %s has changed, read new contents? "
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
441 file)))))
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
442 (and verify-tags-table-function
33f430abc9ed (tags-verify-table): Obey revert-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 18623
diff changeset
443 (funcall verify-tags-table-function))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
444 (revert-buffer t t)
66277
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
445 (tags-table-mode)))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
446 (and (file-exists-p file)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
447 (progn
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
448 (set-buffer (find-file-noselect file))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
449 (or (string= file buffer-file-name)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
450 ;; find-file-noselect has changed the file name.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
451 ;; Propagate the change to tags-file-name and tags-table-list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
452 (let ((tail (member file tags-table-list)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
453 (if tail
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
454 (setcar tail buffer-file-name))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
455 (if (eq file tags-file-name)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
456 (setq tags-file-name buffer-file-name))))
66277
3f62e030a058 (tags-table-mode): New function.
Juri Linkov <juri@jurta.org>
parents: 66114
diff changeset
457 (tags-table-mode)))))
4391
2f181ad12c41 (visit-tags-table-buffer): New local named
Richard M. Stallman <rms@gnu.org>
parents: 4389
diff changeset
458
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
459 ;; Subroutine of visit-tags-table-buffer. Search the current tags tables
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
460 ;; for one that has tags for THIS-FILE (or that includes a table that
8040
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
461 ;; does). Return the name of the first table table listing THIS-FILE; if
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
462 ;; the table is one included by another table, it is the master table that
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
463 ;; we return. If CORE-ONLY is non-nil, check only tags tables that are
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
464 ;; already in buffers--don't visit any new files.
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
465 (defun tags-table-including (this-file core-only)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
466 (let ((tables tags-table-computed-list)
7211
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
467 (found nil))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
468 ;; Loop over the list, looking for a table containing tags for THIS-FILE.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
469 (while (and (not found)
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
470 tables)
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
471
8509
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
472 (if core-only
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
473 ;; Skip tables not in core.
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
474 (while (eq (nth 1 tables) t)
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
475 (setq tables (cdr (cdr tables))))
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
476 (if (eq (nth 1 tables) t)
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
477 ;; This table has not been read into core yet. Read it in now.
be778f8834a5 (tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
Roland McGrath <roland@gnu.org>
parents: 8456
diff changeset
478 (tags-table-extend-computed-list)))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
479
8014
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
480 (if tables
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
481 ;; Select the tags table buffer and get the file list up to date.
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
482 (let ((tags-file-name (car tables)))
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
483 (visit-tags-table-buffer 'same)
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
484 (if (member this-file (mapcar 'expand-file-name
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
485 (tags-table-files)))
8014
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
486 ;; Found it.
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
487 (setq found tables))))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
488 (setq tables (cdr tables)))
8014
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
489 (if found
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
490 ;; Now determine if the table we found was one included by another
9928
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
491 ;; table, not explicitly listed. We do this by checking each
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
492 ;; element of the computed list to see if it appears in the user's
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
493 ;; explicit list; the last element we will check is FOUND itself.
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
494 ;; Then we return the last one which did in fact appear in
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
495 ;; tags-table-list.
8014
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
496 (let ((could-be nil)
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
497 (elt tags-table-computed-list))
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
498 (while (not (eq elt (cdr found)))
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
499 (if (tags-table-list-member (car elt) tags-table-list)
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
500 ;; This table appears in the user's list, so it could be
0d4288705550 (tags-table-including): Don't call tags-table-check-computed-list.
Roland McGrath <roland@gnu.org>
parents: 7934
diff changeset
501 ;; the one which includes the table we found.
9928
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
502 (setq could-be (car elt)))
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
503 (setq elt (cdr elt))
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
504 (if (eq t (car elt))
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
505 (setq elt (cdr elt))))
8015
3d6ee294a710 Fix bits of last change lost in Emacs crash.
Roland McGrath <roland@gnu.org>
parents: 8014
diff changeset
506 ;; The last element we found in the computed list before FOUND
3d6ee294a710 Fix bits of last change lost in Emacs crash.
Roland McGrath <roland@gnu.org>
parents: 8014
diff changeset
507 ;; that appears in the user's list will be the table that
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
508 ;; included the one we found.
9928
d49a23c098df (tags-table-including): Don't gratuitously cons (what was I thinking?).
Roland McGrath <roland@gnu.org>
parents: 9631
diff changeset
509 could-be))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
510
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
511 ;; Subroutine of visit-tags-table-buffer. Move tags-table-list-pointer
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
512 ;; along and set tags-file-name. Returns nil when out of tables.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
513 (defun tags-next-table ()
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
514 ;; If there is a placeholder element next, compute the list to replace it.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
515 (while (eq (nth 1 tags-table-list-pointer) t)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
516 (tags-table-extend-computed-list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
517
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
518 ;; Go to the next table in the list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
519 (setq tags-table-list-pointer (cdr tags-table-list-pointer))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
520 (or tags-table-list-pointer
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
521 ;; Wrap around.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
522 (setq tags-table-list-pointer tags-table-computed-list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
523
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
524 (if (eq tags-table-list-pointer tags-table-list-started-at)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
525 ;; We have come full circle. No more tables.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
526 (setq tags-table-list-pointer nil)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
527 ;; Set tags-file-name to the name from the list. It is already expanded.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
528 (setq tags-file-name (car tags-table-list-pointer))))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
529
51862
fe00d361a905 (visit-tags-table-buffer): Add autoload cookie;
John Paul Wallington <jpw@pobox.com>
parents: 50545
diff changeset
530 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
531 (defun visit-tags-table-buffer (&optional cont)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
532 "Select the buffer containing the current tags table.
7287
0e89007c19c6 (visit-tags-tbale-buffer): If CONT is stringp, use it for tags-file-name.
Roland McGrath <roland@gnu.org>
parents: 7284
diff changeset
533 If optional arg is a string, visit that file as a tags table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
534 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
535 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
536 just select the buffer visiting `tags-file-name'.
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
537 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
538 `tags-file-name', `tags-table-list', `tags-table-list-pointer'.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
539 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
540
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
541 ;; Set tags-file-name to the tags table file we want to visit.
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
542 (cond ((eq cont 'same)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
543 ;; Use the ambient value of tags-file-name.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
544 (or tags-file-name
14420
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
545 (error "%s"
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
546 (substitute-command-keys
18623
fc78e7f26a64 (next-file, tags-loop-scan): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 18324
diff changeset
547 (concat "No tags table in use; "
fc78e7f26a64 (next-file, tags-loop-scan): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 18324
diff changeset
548 "use \\[visit-tags-table] to select one")))))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
549
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
550 ((eq t cont)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
551 ;; Find the next table.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
552 (if (tags-next-table)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
553 ;; Skip over nonexistent files.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
554 (while (and (not (or (get-file-buffer tags-file-name)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
555 (file-exists-p tags-file-name)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
556 (tags-next-table)))))
7211
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
557
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
558 (t
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
559 ;; Pick a table out of our hat.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
560 (tags-table-check-computed-list) ;Get it up to date, we might use it.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
561 (setq tags-file-name
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
562 (or
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
563 ;; If passed a string, use that.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
564 (if (stringp cont)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
565 (prog1 cont
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
566 (setq cont nil)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
567 ;; First, try a local variable.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
568 (cdr (assq 'tags-file-name (buffer-local-variables)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
569 ;; Second, try a user-specified function to guess.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
570 (and default-tags-table-function
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
571 (funcall default-tags-table-function))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
572 ;; Third, look for a tags table that contains tags for the
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
573 ;; current buffer's file. If one is found, the lists will
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
574 ;; be frobnicated, and CONT will be set non-nil so we don't
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
575 ;; do it below.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
576 (and buffer-file-name
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
577 (or
8040
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
578 ;; First check only tables already in buffers.
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
579 (tags-table-including buffer-file-name t)
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
580 ;; Since that didn't find any, now do the
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
581 ;; expensive version: reading new files.
b35d46349f46 (visit-tags-table-buffer): Don't take car of return frmo
Roland McGrath <roland@gnu.org>
parents: 8015
diff changeset
582 (tags-table-including buffer-file-name nil)))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
583 ;; Fourth, use the user variable tags-file-name, if it is
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
584 ;; not already in the current list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
585 (and tags-file-name
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
586 (not (tags-table-list-member tags-file-name
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
587 tags-table-computed-list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
588 tags-file-name)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
589 ;; Fifth, use the user variable giving the table list.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
590 ;; Find the first element of the list that actually exists.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
591 (let ((list tags-table-list)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
592 file)
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
593 (while (and list
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
594 (setq file (tags-expand-table-name (car list)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
595 (not (get-file-buffer file))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
596 (not (file-exists-p file)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
597 (setq list (cdr list)))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
598 (car list))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
599 ;; Finally, prompt the user for a file name.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
600 (expand-file-name
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 64699
diff changeset
601 (read-file-name "Visit tags table (default TAGS): "
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
602 default-directory
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
603 "TAGS"
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
604 t))))))
1138
f2897f71f361 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1136
diff changeset
605
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
606 ;; Expand the table name into a full file name.
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
607 (setq tags-file-name (tags-expand-table-name tags-file-name))
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
608
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
609 (unless (and (eq cont t) (null tags-table-list-pointer))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
610 ;; Verify that tags-file-name names a valid tags table.
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
611 ;; Bind another variable with the value of tags-file-name
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
612 ;; before we switch buffers, in case tags-file-name is buffer-local.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
613 (let ((curbuf (current-buffer))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
614 (local-tags-file-name tags-file-name))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
615 (if (tags-verify-table local-tags-file-name)
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
616
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
617 ;; We have a valid tags table.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
618 (progn
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
619 ;; Bury the tags table buffer so it
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
620 ;; doesn't get in the user's way.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
621 (bury-buffer (current-buffer))
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
622
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
623 ;; If this was a new table selection (CONT is nil), make
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
624 ;; sure tags-table-list includes the chosen table, and
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
625 ;; update the list pointer variables.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
626 (or cont
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
627 ;; Look in the list for the table we chose.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
628 (let ((found (tags-table-list-member
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
629 local-tags-file-name
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
630 tags-table-computed-list)))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
631 (if found
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
632 ;; There it is. Just switch to it.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
633 (setq tags-table-list-pointer found
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
634 tags-table-list-started-at found)
4391
2f181ad12c41 (visit-tags-table-buffer): New local named
Richard M. Stallman <rms@gnu.org>
parents: 4389
diff changeset
635
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
636 ;; The table is not in the current set.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
637 ;; Try to find it in another previously used set.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
638 (let ((sets tags-table-set-list))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
639 (while (and sets
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
640 (not (tags-table-list-member
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
641 local-tags-file-name
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
642 (car sets))))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
643 (setq sets (cdr sets)))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
644 (if sets
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
645 ;; Found in some other set. Switch to that set.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
646 (progn
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
647 (or (memq tags-table-list tags-table-set-list)
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
648 ;; Save the current list.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
649 (setq tags-table-set-list
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
650 (cons tags-table-list
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
651 tags-table-set-list)))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
652 (setq tags-table-list (car sets)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
653
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
654 ;; Not found in any existing set.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
655 (if (and tags-table-list
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
656 (or (eq t tags-add-tables)
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
657 (and tags-add-tables
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
658 (y-or-n-p
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
659 (concat "Keep current list of "
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
660 "tags tables also? ")))))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
661 ;; Add it to the current list.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
662 (setq tags-table-list (cons local-tags-file-name
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
663 tags-table-list))
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
664
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
665 ;; Make a fresh list, and store the old one.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
666 (message "Starting a new list of tags tables")
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
667 (or (null tags-table-list)
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
668 (memq tags-table-list tags-table-set-list)
7211
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
669 (setq tags-table-set-list
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
670 (cons tags-table-list
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
671 tags-table-set-list)))
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
672 ;; Clear out buffers holding old tables.
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
673 (dolist (table tags-table-list)
33418
5908c0927a3e (visit-tags-table-buffer): Beware of `t' in
Dave Love <fx@gnu.org>
parents: 32324
diff changeset
674 ;; The list can contain items `t'.
5908c0927a3e (visit-tags-table-buffer): Beware of `t' in
Dave Love <fx@gnu.org>
parents: 32324
diff changeset
675 (if (stringp table)
5908c0927a3e (visit-tags-table-buffer): Beware of `t' in
Dave Love <fx@gnu.org>
parents: 32324
diff changeset
676 (let ((buffer (find-buffer-visiting table)))
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
677 (if buffer
33418
5908c0927a3e (visit-tags-table-buffer): Beware of `t' in
Dave Love <fx@gnu.org>
parents: 32324
diff changeset
678 (kill-buffer buffer)))))
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
679 (setq tags-table-list (list local-tags-file-name))))
7211
b2485e94101a (tags-table-parent-pointer-list): Doc fix; elts are now 3-elt lists.
Roland McGrath <roland@gnu.org>
parents: 7112
diff changeset
680
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
681 ;; Recompute tags-table-computed-list.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
682 (tags-table-check-computed-list)
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
683 ;; Set the tags table list state variables to start
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
684 ;; over from tags-table-computed-list.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
685 (setq tags-table-list-started-at tags-table-computed-list
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
686 tags-table-list-pointer
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
687 tags-table-computed-list)))))
1156
2a92ddfaf6ba entered into RCS
Roland McGrath <roland@gnu.org>
parents: 1152
diff changeset
688
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
689 ;; Return of t says the tags table is valid.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
690 t)
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
691
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
692 ;; The buffer was not valid. Don't use it again.
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
693 (set-buffer curbuf)
7934
b5e9b6a00f5d (tags-table-computed-list, tags-table-computed-list-for): New variables.
Roland McGrath <roland@gnu.org>
parents: 7904
diff changeset
694 (kill-local-variable 'tags-file-name)
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
695 (if (eq local-tags-file-name tags-file-name)
8116
67c8a970fd4d (visit-tags-table-buffer): Move error call into scope of `file'.
Richard M. Stallman <rms@gnu.org>
parents: 8082
diff changeset
696 (setq tags-file-name nil))
8297
80d4bf018aec (visit-tags-table-buffer): Bind a variable local-tags-file-name with the
Roland McGrath <roland@gnu.org>
parents: 8187
diff changeset
697 (error "File %s is not a valid tags table" local-tags-file-name)))))
9525
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
698
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
699 (defun tags-reset-tags-tables ()
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
700 "Reset tags state to cancel effect of any previous \\[visit-tags-table] or \\[find-tag]."
9525
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
701 (interactive)
23377
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
702 ;; Clear out the markers we are throwing away.
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
703 (let ((i 0))
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
704 (while (< i find-tag-marker-ring-length)
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
705 (if (aref (cddr tags-location-ring) i)
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
706 (set-marker (aref (cddr tags-location-ring) i) nil))
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
707 (if (aref (cddr find-tag-marker-ring) i)
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
708 (set-marker (aref (cddr find-tag-marker-ring) i) nil))
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
709 (setq i (1+ i))))
9525
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
710 (setq tags-file-name nil
23377
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
711 tags-location-ring (make-ring find-tag-marker-ring-length)
acb6d2c4220b (tags-reset-tags-tables): Properly
Karl Heuer <kwzh@gnu.org>
parents: 22594
diff changeset
712 find-tag-marker-ring (make-ring find-tag-marker-ring-length)
9525
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
713 tags-table-list nil
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
714 tags-table-computed-list nil
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
715 tags-table-computed-list-for nil
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
716 tags-table-list-pointer nil
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
717 tags-table-list-started-at nil
6cd679419a9c (tags-reset-tags-tables): New function.
Roland McGrath <roland@gnu.org>
parents: 9152
diff changeset
718 tags-table-set-list nil))
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
719
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
720 (defun file-of-tag (&optional relative)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 "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
722 Assumes the tags table is the current buffer.
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
723 If RELATIVE is non-nil, file name returned is relative to tags
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
724 table file's directory. If RELATIVE is nil, file name returned
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
725 is complete."
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
726 (funcall file-of-tag-function relative))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
728 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
729 (defun tags-table-files ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
730 "Return a list of files in the current tags table.
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
731 Assumes the tags table is the current buffer. The file names are returned
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
732 as they appeared in the `etags' command that created the table, usually
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
733 without directory names."
1397
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
734 (or tags-table-files
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
735 (setq tags-table-files
d469afe703c4 (visit-tags-table-buffer): When trying to pick table, call
Roland McGrath <roland@gnu.org>
parents: 1156
diff changeset
736 (funcall tags-table-files-function))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
737
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
738 (defun tags-included-tables ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
739 "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
740 Assumes the tags table is the current buffer."
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
741 (or tags-included-tables
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
742 (setq tags-included-tables (funcall tags-included-tables-function))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
743
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
744 ;; Build tags-completion-table on demand. The single current tags table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
745 ;; and its included tags tables (and their included tables, etc.) have
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
746 ;; their tags included in the completion table.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
747 (defun tags-completion-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
748 (or tags-completion-table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
749 (condition-case ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
750 (prog2
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
751 (message "Making tags completion table for %s..." buffer-file-name)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
752 (let ((included (tags-included-tables))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
753 (table (funcall tags-completion-table-function)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
754 (save-excursion
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
755 ;; 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
756 ;; included table's completion obarray to the parent obarray.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
757 (while included
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
758 ;; Visit the buffer.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
759 (let ((tags-file-name (car included)))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
760 (visit-tags-table-buffer 'same))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
761 ;; Recurse in that buffer to compute its completion table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
762 (if (tags-completion-table)
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
763 ;; Combine the tables.
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
764 (mapatoms (lambda (sym) (intern (symbol-name sym) table))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
765 tags-completion-table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
766 (setq included (cdr included))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
767 (setq tags-completion-table table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
768 (message "Making tags completion table for %s...done"
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
769 buffer-file-name))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
770 (quit (message "Tags completion table construction aborted.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
771 (setq tags-completion-table nil)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
772
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
773 ;; Completion function for tags. Does normal try-completion,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
774 ;; but builds tags-completion-table on demand.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
775 (defun tags-complete-tag (string predicate what)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
776 (save-excursion
5079
1d253bc912d8 (tags-complete-tag): Bind enable-recursive-minibuffers to t.
Richard M. Stallman <rms@gnu.org>
parents: 4940
diff changeset
777 ;; If we need to ask for the tag table, allow that.
1d253bc912d8 (tags-complete-tag): Bind enable-recursive-minibuffers to t.
Richard M. Stallman <rms@gnu.org>
parents: 4940
diff changeset
778 (let ((enable-recursive-minibuffers t))
1d253bc912d8 (tags-complete-tag): Bind enable-recursive-minibuffers to t.
Richard M. Stallman <rms@gnu.org>
parents: 4940
diff changeset
779 (visit-tags-table-buffer))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
780 (if (eq what t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
781 (all-completions string (tags-completion-table) predicate)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
782 (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
783
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
784 ;; Read a tag name from the minibuffer with defaulting and completion.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 (defun find-tag-tag (string)
47290
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
786 (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
787 tags-case-fold-search
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
788 case-fold-search))
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
789 (default (funcall (or find-tag-default-function
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
790 (get major-mode 'find-tag-default-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
791 'find-tag-default)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
792 (spec (completing-read (if default
49734
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
793 (format "%s (default %s): "
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
794 (substring string 0 (string-match "[ :]+\\'" string))
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
795 default)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
796 string)
19735
73c2effb07a4 (find-tag-tag): Pass default to completing-read.
Richard M. Stallman <rms@gnu.org>
parents: 19358
diff changeset
797 'tags-complete-tag
73c2effb07a4 (find-tag-tag): Pass default to completing-read.
Richard M. Stallman <rms@gnu.org>
parents: 19358
diff changeset
798 nil nil nil nil default)))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
799 (if (equal spec "")
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
800 (or default (error "There is no default tag"))
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
801 spec)))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802
852
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
803 (defvar last-tag nil
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
804 "Last tag found by \\[find-tag].")
06165faefe70 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 846
diff changeset
805
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
806 ;; 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
807 (defun find-tag-interactive (prompt &optional no-default)
35226
e1ba079c4709 (find-tag-interactive): If last-tag is nil,
Eli Zaretskii <eliz@gnu.org>
parents: 35181
diff changeset
808 (if (and current-prefix-arg last-tag)
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
809 (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
810 '-
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
811 t))
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
812 (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
813 (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
814 (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
815
7904
c2259f58ef7e (find-tag-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7843
diff changeset
816 (defvar find-tag-history nil)
c2259f58ef7e (find-tag-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7843
diff changeset
817
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
818 ;; Dynamic bondage:
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
819 (eval-when-compile
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
820 (defvar etags-case-fold-search)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
821 (defvar etags-syntax-table))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
822
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
823 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
824 (defun find-tag-noselect (tagname &optional next-p regexp-p)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
825 "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
826 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
827 but does not select the buffer.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
828 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
829
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
830 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
831 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
832 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
833 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
834 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
835
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
836 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
837
43466
a5aed0eb2cd0 (find-tag-noselect, find-tag)
Eli Zaretskii <eliz@gnu.org>
parents: 42416
diff changeset
838 A marker representing the point when this command is invoked is pushed
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
839 onto a ring and may be popped back to with \\[pop-tag-mark].
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
840 Contrast this with the ring of marks gone to by the command.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
841
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
842 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
843 (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
844
7904
c2259f58ef7e (find-tag-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7843
diff changeset
845 (setq find-tag-history (cons tagname find-tag-history))
35312
2f2f03dac098 (find-tag-noselect): Save the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35226
diff changeset
846 ;; Save the current buffer's value of `find-tag-hook' before
2f2f03dac098 (find-tag-noselect): Save the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35226
diff changeset
847 ;; selecting the tags table buffer. For the same reason, save value
2f2f03dac098 (find-tag-noselect): Save the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35226
diff changeset
848 ;; of `tags-file-name' in case it has a buffer-local value.
35649
3379eca770e2 (find-tag-noselect): Don't bind
Gerd Moellmann <gerd@gnu.org>
parents: 35312
diff changeset
849 (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
850 (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
851 ;; Pop back to a previous location.
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
852 (if (ring-empty-p tags-location-ring)
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
853 (error "No previous tag locations")
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
854 (let ((marker (ring-remove tags-location-ring 0)))
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
855 (prog1
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
856 ;; Move to the saved location.
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
857 (set-buffer (or (marker-buffer marker)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
858 (error "The marked buffer has been deleted")))
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
859 (goto-char (marker-position marker))
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3548
diff changeset
860 ;; Kill that marker so it doesn't slow down editing.
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
861 (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
862 ;; 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
863 (run-hooks 'local-find-tag-hook))))
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
864 ;; Record whence we came.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
865 (ring-insert find-tag-marker-ring (point-marker))
35226
e1ba079c4709 (find-tag-interactive): If last-tag is nil,
Eli Zaretskii <eliz@gnu.org>
parents: 35181
diff changeset
866 (if (and next-p last-tag)
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
867 ;; 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
868 (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
869 ;; 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
870 (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
871 ;; 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
872 (setq last-tag tagname))
8973
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
873 ;; Record the location so we can pop back to it later.
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
874 (let ((marker (make-marker)))
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
875 (save-excursion
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
876 (set-buffer
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
877 ;; find-tag-in-order does the real work.
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
878 (find-tag-in-order
35226
e1ba079c4709 (find-tag-interactive): If last-tag is nil,
Eli Zaretskii <eliz@gnu.org>
parents: 35181
diff changeset
879 (if (and next-p last-tag) last-tag tagname)
8973
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
880 (if regexp-p
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
881 find-tag-regexp-search-function
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
882 find-tag-search-function)
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
883 (if regexp-p
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
884 find-tag-regexp-tag-order
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
885 find-tag-tag-order)
8973
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
886 (if regexp-p
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
887 find-tag-regexp-next-line-after-failure-p
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
888 find-tag-next-line-after-failure-p)
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
889 (if regexp-p "matching" "containing")
35226
e1ba079c4709 (find-tag-interactive): If last-tag is nil,
Eli Zaretskii <eliz@gnu.org>
parents: 35181
diff changeset
890 (or (not next-p) (not last-tag))))
8973
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
891 (set-marker marker (point))
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
892 (run-hooks 'local-find-tag-hook)
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
893 (ring-insert tags-location-ring marker)
8973
99d8538efe2f (find-tag-noselect): Simplify.
Richard M. Stallman <rms@gnu.org>
parents: 8623
diff changeset
894 (current-buffer))))))
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
895
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
896 ;;;###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
897 (defun find-tag (tagname &optional next-p regexp-p)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
898 "Find tag (in current tags table) whose name contains TAGNAME.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
899 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
900 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
901
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
902 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
903 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
904 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
905 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
906 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
907
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
908 If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
909
43466
a5aed0eb2cd0 (find-tag-noselect, find-tag)
Eli Zaretskii <eliz@gnu.org>
parents: 42416
diff changeset
910 A marker representing the point when this command is invoked is pushed
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
911 onto a ring and may be popped back to with \\[pop-tag-mark].
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
912 Contrast this with the ring of marks gone to by the command.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
913
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
914 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
915 (interactive (find-tag-interactive "Find tag: "))
49734
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
916 (let* ((buf (find-tag-noselect tagname next-p regexp-p))
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
917 (pos (with-current-buffer buf (point))))
32311
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
918 (condition-case nil
035ce2227d76 Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29730
diff changeset
919 (switch-to-buffer buf)
49734
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
920 (error (pop-to-buffer buf)))
ee509ddc7a03 (find-tag-tag): Move (default foo) to before `:' in the prompt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48297
diff changeset
921 (goto-char pos)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
922 ;;;###autoload (define-key esc-map "." 'find-tag)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
924 ;;;###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
925 (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
926 "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
927 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
928 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
929 around or before point.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
930
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
931 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
932 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
933 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
934 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
935 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
936
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
937 If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
938
43466
a5aed0eb2cd0 (find-tag-noselect, find-tag)
Eli Zaretskii <eliz@gnu.org>
parents: 42416
diff changeset
939 A marker representing the point when this command is invoked is pushed
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
940 onto a ring and may be popped back to with \\[pop-tag-mark].
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
941 Contrast this with the ring of marks gone to by the command.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
942
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
943 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
944 (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
945
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
946 ;; 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
947 ;; 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
948 ;; 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
949 ;; doing find-tag-noselect, and restore it after.
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
950 (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
951 (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
952 (tagpoint (progn (set-buffer tagbuf) (point))))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
953 (set-window-point (prog1
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
954 (selected-window)
1976
eda7eec8f8ad * etags.el (find-tag-other-window): If another window is already
Jim Blandy <jimb@redhat.com>
parents: 1816
diff changeset
955 (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
956 ;; 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
957 ;; 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
958 ;; 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
959 ;; 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
960 ;; 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
961 (set-window-point (selected-window) tagpoint))
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
962 window-point)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
963 ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
964
804
33aaf4b71a1d *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 800
diff changeset
965 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
966 (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
967 "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
968 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
969 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
970 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
971
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
972 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
973 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
974 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
975 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
976 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
977
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
978 If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
979
43466
a5aed0eb2cd0 (find-tag-noselect, find-tag)
Eli Zaretskii <eliz@gnu.org>
parents: 42416
diff changeset
980 A marker representing the point when this command is invoked is pushed
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
981 onto a ring and may be popped back to with \\[pop-tag-mark].
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
982 Contrast this with the ring of marks gone to by the command.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
983
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
984 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
985 (interactive (find-tag-interactive "Find tag other frame: "))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
986 (let ((pop-up-frames t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
987 (find-tag-other-window tagname next-p)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
988 ;;;###autoload (define-key ctl-x-5-map "." 'find-tag-other-frame)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
990 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
991 (defun find-tag-regexp (regexp &optional next-p other-window)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
992 "Find tag (in current tags table) whose name matches REGEXP.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
993 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
994
2590
9dace03bd76c (find-tag-interactive): New function to read args for find-tag et al.
Roland McGrath <roland@gnu.org>
parents: 2448
diff changeset
995 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
996 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
997 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
998 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
999 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
1000
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1001 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
1002
43466
a5aed0eb2cd0 (find-tag-noselect, find-tag)
Eli Zaretskii <eliz@gnu.org>
parents: 42416
diff changeset
1003 A marker representing the point when this command is invoked is pushed
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1004 onto a ring and may be popped back to with \\[pop-tag-mark].
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1005 Contrast this with the ring of marks gone to by the command.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1006
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1007 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
1008 (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
1009 ;; 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
1010 (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
1011 regexp next-p t))
8187
9120cee6bfab (find-tag-regexp): Bind to C-M-..
Richard M. Stallman <rms@gnu.org>
parents: 8116
diff changeset
1012 ;;;###autoload (define-key esc-map [?\C-.] 'find-tag-regexp)
20799
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1013
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1014 ;;;###autoload (define-key esc-map "*" 'pop-tag-mark)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1015
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1016 ;;;###autoload
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1017 (defun pop-tag-mark ()
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1018 "Pop back to where \\[find-tag] was last invoked.
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1019
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1020 This is distinct from invoking \\[find-tag] with a negative argument
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1021 since that pops a stack of markers at which tags were found, not from
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1022 where they were found."
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1023 (interactive)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1024 (if (ring-empty-p find-tag-marker-ring)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1025 (error "No previous locations for find-tag invocation"))
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1026 (let ((marker (ring-remove find-tag-marker-ring 0)))
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1027 (switch-to-buffer (or (marker-buffer marker)
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1028 (error "The marked buffer has been deleted")))
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1029 (goto-char (marker-position marker))
e244bb966970 (find-tag-marker-ring-length): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20682
diff changeset
1030 (set-marker marker nil nil)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1031
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1032 ;; Internal tag finding function.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1033
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1034 ;; 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
1035 ;; 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
1036 ;; use saved state to continue a previous search.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1037
45920
e475ce899bf1 Comment corrected.
Francesco Potortì <pot@gnu.org>
parents: 45430
diff changeset
1038 ;; Fourth arg NEXT-LINE-AFTER-FAILURE-P is non-nil if after a failed match,
e475ce899bf1 Comment corrected.
Francesco Potortì <pot@gnu.org>
parents: 45430
diff changeset
1039 ;; point should be moved to the next line.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1040
45920
e475ce899bf1 Comment corrected.
Francesco Potortì <pot@gnu.org>
parents: 45430
diff changeset
1041 ;; Fifth arg MATCHING is a string, an English '-ing' word, to be used in
e475ce899bf1 Comment corrected.
Francesco Potortì <pot@gnu.org>
parents: 45430
diff changeset
1042 ;; an error message.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1043
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1044 ;; 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
1045 ;; 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
1046 ;; PATTERN found using SEARCH-FORWARD-FUNC, qualify the naive match using
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1047 ;; 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
1048 ;; specified source file and return. Qualified matches are remembered to
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1049 ;; 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
1050
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1051 (defvar tag-lines-already-matched nil) ;matches remembered here between calls
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1052
1555
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1053 (defun find-tag-in-order (pattern
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1054 search-forward-func
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1055 order
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1056 next-line-after-failure-p
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1057 matching
695c6eb2ff31 * etags.el (find-tag-noselect): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1397
diff changeset
1058 first-search)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1059 (let (file ;name of file containing tag
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1060 tag-info ;where to find the tag in FILE
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1061 (first-table t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1062 (tag-order order)
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1063 (match-marker (make-marker))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1064 goto-func
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1065 (case-fold-search (if (memq tags-case-fold-search '(nil t))
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1066 tags-case-fold-search
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1067 case-fold-search))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1068 )
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1069 (save-excursion
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1070
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1071 (if first-search
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1072 ;; This is the start of a search for a fresh tag.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1073 ;; Clear the list of tags matched by the previous search.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1074 ;; find-tag-noselect has already put us in the first tags table
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1075 ;; buffer before we got called.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1076 (setq tag-lines-already-matched nil)
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1077 ;; Continuing to search for the tag specified last time.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1078 ;; tag-lines-already-matched lists locations matched in previous
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1079 ;; calls so we don't visit the same tag twice if it matches twice
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1080 ;; during two passes with different qualification predicates.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1081 ;; Switch to the current tags table buffer.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1082 (visit-tags-table-buffer 'same))
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1083
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1084 ;; Get a qualified match.
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1085 (catch 'qualified-match-found
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1086
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1087 ;; Iterate over the list of tags tables.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1088 (while (or first-table
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1089 (visit-tags-table-buffer t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1090
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1091 (and first-search first-table
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1092 ;; Start at beginning of tags file.
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1093 (goto-char (point-min)))
10661
32beb7b6dbf7 Changes to support filenames as tags too and provided
Richard M. Stallman <rms@gnu.org>
parents: 10458
diff changeset
1094
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1095 (setq first-table nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1096
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1097 ;; Iterate over the list of ordering predicates.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1098 (while order
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1099 (while (funcall search-forward-func pattern nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1100 ;; Naive match found. Qualify the match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1101 (and (funcall (car order) pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1102 ;; Make sure it is not a previous qualified match.
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1103 (not (member (set-marker match-marker (save-excursion
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1104 (beginning-of-line)
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1105 (point)))
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1106 tag-lines-already-matched))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1107 (throw 'qualified-match-found nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1108 (if next-line-after-failure-p
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1109 (forward-line 1)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1110 ;; Try the next flavor of match.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1111 (setq order (cdr order))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1112 (goto-char (point-min)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1113 (setq order tag-order))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1114 ;; We throw out on match, so only get here if there were no matches.
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1115 ;; Clear out the markers we use to avoid duplicate matches so they
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1116 ;; don't slow down editting and are immediately available for GC.
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1117 (while tag-lines-already-matched
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1118 (set-marker (car tag-lines-already-matched) nil nil)
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1119 (setq tag-lines-already-matched (cdr tag-lines-already-matched)))
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1120 (set-marker match-marker nil nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1121 (error "No %stags %s %s" (if first-search "" "more ")
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1122 matching pattern))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1123
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1124 ;; Found a tag; extract location info.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1125 (beginning-of-line)
15352
e648211d5bac Fri Jun 7 13:06:53 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
Roland McGrath <roland@gnu.org>
parents: 14420
diff changeset
1126 (setq tag-lines-already-matched (cons match-marker
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1127 tag-lines-already-matched))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1128 ;; Expand the filename, using the tags table buffer's default-directory.
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1129 ;; We should be able to search for file-name backwards in file-of-tag:
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1130 ;; the beginning-of-line is ok except when positioned on a "file-name" tag.
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1131 (setq file (expand-file-name
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1132 (if (memq (car order) '(tag-exact-file-name-match-p
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1133 tag-file-name-match-p
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1134 tag-partial-file-name-match-p))
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1135 (save-excursion (next-line 1)
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1136 (file-of-tag))
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1137 (file-of-tag)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1138 tag-info (funcall snarf-tag-function))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1139
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1140 ;; 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
1141 (setq goto-func goto-tag-location-function)
50455
7993414db7f7 * progmodes/etags.el (tag-find-file-of-tag): Renamed from
Masatake YAMATO <jet@gyve.org>
parents: 50435
diff changeset
1142 (tag-find-file-of-tag-noselect file)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1143 (widen)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1144 (push-mark)
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1145 (funcall goto-func tag-info)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1146
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1147 ;; Return the buffer where the tag was found.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1148 (current-buffer))))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1149
50455
7993414db7f7 * progmodes/etags.el (tag-find-file-of-tag): Renamed from
Masatake YAMATO <jet@gyve.org>
parents: 50435
diff changeset
1150 (defun tag-find-file-of-tag-noselect (file)
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1151 ;; Find the right line in the specified file.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1152 ;; If we are interested in compressed-files,
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1153 ;; we search files with extensions.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1154 ;; otherwise only the real file.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1155 (let* ((buffer-search-extensions (if (featurep 'jka-compr)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1156 tags-compression-info-list
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1157 '("")))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1158 the-buffer
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1159 (file-search-extensions buffer-search-extensions))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1160 ;; search a buffer visiting the file with each possible extension
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1161 ;; Note: there is a small inefficiency in find-buffer-visiting :
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1162 ;; truename is computed even if not needed. Not too sure about this
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1163 ;; but I suspect truename computation accesses the disk.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1164 ;; It is maybe a good idea to optimise this find-buffer-visiting.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1165 ;; An alternative would be to use only get-file-buffer
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1166 ;; but this looks less "sure" to find the buffer for the file.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1167 (while (and (not the-buffer) buffer-search-extensions)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1168 (setq the-buffer (find-buffer-visiting (concat file (car buffer-search-extensions))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1169 (setq buffer-search-extensions (cdr buffer-search-extensions)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1170 ;; if found a buffer but file modified, ensure we re-read !
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1171 (if (and the-buffer (not (verify-visited-file-modtime the-buffer)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1172 (find-file-noselect (buffer-file-name the-buffer)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1173 ;; if no buffer found, search for files with possible extensions on disk
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1174 (while (and (not the-buffer) file-search-extensions)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1175 (if (not (file-exists-p (concat file (car file-search-extensions))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1176 (setq file-search-extensions (cdr file-search-extensions))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1177 (setq the-buffer (find-file-noselect (concat file (car file-search-extensions))))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1178 (if (not the-buffer)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1179 (if (featurep 'jka-compr)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1180 (error "File %s (with or without extensions %s) not found" file tags-compression-info-list)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1181 (error "File %s not found" file))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1182 (set-buffer the-buffer))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1183
50455
7993414db7f7 * progmodes/etags.el (tag-find-file-of-tag): Renamed from
Masatake YAMATO <jet@gyve.org>
parents: 50435
diff changeset
1184 (defun tag-find-file-of-tag (file)
7993414db7f7 * progmodes/etags.el (tag-find-file-of-tag): Renamed from
Masatake YAMATO <jet@gyve.org>
parents: 50435
diff changeset
1185 (let ((buf (tag-find-file-of-tag-noselect file)))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1186 (condition-case nil
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1187 (switch-to-buffer buf)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1188 (error (pop-to-buffer buf)))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1189
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1190 ;; `etags' TAGS file format support.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1191
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1192 ;; 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
1193 ;; the tags table format variables, and return non-nil.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1194 (defun etags-recognize-tags-table ()
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1195 (and (etags-verify-tags-table)
1136
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
1196 ;; It is annoying to flash messages on the screen briefly,
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
1197 ;; and this message is not useful. -- rms
4d4c177b980f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1032
diff changeset
1198 ;; (message "%s is an `etags' TAGS file" buffer-file-name)
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1199 (mapc (lambda (elt) (set (make-local-variable (car elt)) (cdr elt)))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1200 '((file-of-tag-function . etags-file-of-tag)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1201 (tags-table-files-function . etags-tags-table-files)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1202 (tags-completion-table-function . etags-tags-completion-table)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1203 (snarf-tag-function . etags-snarf-tag)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1204 (goto-tag-location-function . etags-goto-tag-location)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1205 (find-tag-regexp-search-function . re-search-forward)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1206 (find-tag-regexp-tag-order . (tag-re-match-p))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1207 (find-tag-regexp-next-line-after-failure-p . t)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1208 (find-tag-search-function . search-forward)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1209 (find-tag-tag-order . (tag-exact-file-name-match-p
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1210 tag-file-name-match-p
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1211 tag-exact-match-p
45923
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1212 tag-implicit-name-match-p
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1213 tag-symbol-match-p
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1214 tag-word-match-p
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1215 tag-partial-file-name-match-p
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1216 tag-any-match-p))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1217 (find-tag-next-line-after-failure-p . nil)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1218 (list-tags-function . etags-list-tags)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1219 (tags-apropos-function . etags-tags-apropos)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1220 (tags-included-tables-function . etags-tags-included-tables)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1221 (verify-tags-table-function . etags-verify-tags-table)
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1222 ))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1223
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1224 ;; 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
1225 (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
1226 ;; Use eq instead of = in case char-after returns nil.
44509
92316652b440 (etags-verify-tags-table, etags-snarf-tag, etags-list-tags)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44140
diff changeset
1227 (eq (char-after (point-min)) ?\f))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1228
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1229 (defun etags-file-of-tag (&optional relative)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1230 (save-excursion
16367
168e1370e887 (etags-file-of-tag): Fix looking-at regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16281
diff changeset
1231 (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1232 (let ((str (buffer-substring (match-beginning 1) (match-end 1))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1233 (if relative
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1234 str
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1235 (expand-file-name str
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1236 (file-truename default-directory))))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1237
10680
69cbb0d5671d (etags-file-of-tag): Handle file name used as tag.
Richard M. Stallman <rms@gnu.org>
parents: 10661
diff changeset
1238
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1239 (defun etags-tags-completion-table ()
55715
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1240 (let ((table (make-vector 511 0))
57387
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1241 (progress-reporter
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1242 (make-progress-reporter
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1243 (format "Making tags completion table for %s..." buffer-file-name)
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1244 (point-min) (point-max))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1245 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1246 (goto-char (point-min))
2448
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
1247 ;; 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
1248 ;; \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
1249 ;; \2 is not interesting;
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
1250 ;; \3 is the guessed tag name; XXX guess should be better eg DEFUN
4407
5568d8e60c21 (etags-tags-completion-table): Fixed regexp for today's format.
Roland McGrath <roland@gnu.org>
parents: 4391
diff changeset
1251 ;; \4 is not interesting;
5568d8e60c21 (etags-tags-completion-table): Fixed regexp for today's format.
Roland McGrath <roland@gnu.org>
parents: 4391
diff changeset
1252 ;; \5 is the explicitly-specified tag name.
5568d8e60c21 (etags-tags-completion-table): Fixed regexp for today's format.
Roland McGrath <roland@gnu.org>
parents: 4391
diff changeset
1253 ;; \6 is the line to start searching at;
5568d8e60c21 (etags-tags-completion-table): Fixed regexp for today's format.
Roland McGrath <roland@gnu.org>
parents: 4391
diff changeset
1254 ;; \7 is the char to start searching at.
2448
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
1255 (while (re-search-forward
28738
d53c2c6bc56f (etags-tags-completion-table): Add a `:'
Gerd Moellmann <gerd@gnu.org>
parents: 28704
diff changeset
1256 "^\\(\\([^\177]+[^-a-zA-Z0-9_+*$:\177]+\\)?\
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1257 \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1258 \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n"
2448
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
1259 nil t)
55715
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1260 (intern (prog1 (if (match-beginning 5)
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1261 ;; There is an explicit tag name.
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1262 (buffer-substring (match-beginning 5) (match-end 5))
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1263 ;; No explicit tag name. Best guess.
7c48b959658d (etags-tags-completion-table): Show parsing progress.
Masatake YAMATO <jet@gyve.org>
parents: 55714
diff changeset
1264 (buffer-substring (match-beginning 3) (match-end 3)))
57387
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1265 (progress-reporter-update progress-reporter (point)))
2448
0d7fdb12dcdb (etags-tags-completion-table): Rewritten with a mondo regexp.
Roland McGrath <roland@gnu.org>
parents: 2445
diff changeset
1266 table)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1267 table))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1268
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1269 (defun etags-snarf-tag (&optional use-explicit)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1270 (let (tag-text line startpos explicit-start)
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1271 (if (save-excursion
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1272 (forward-line -1)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1273 (looking-at "\f\n"))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1274 ;; The match was for a source file name, not any tag within a file.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1275 ;; Give text of t, meaning to go exactly to the location we specify,
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1276 ;; the beginning of the file.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1277 (setq tag-text t
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1278 line nil
44509
92316652b440 (etags-verify-tags-table, etags-snarf-tag, etags-list-tags)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44140
diff changeset
1279 startpos (point-min))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1280
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1281 ;; Find the end of the tag and record the whole tag text.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1282 (search-forward "\177")
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1283 (setq tag-text (buffer-substring (1- (point))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1284 (save-excursion (beginning-of-line)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1285 (point))))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1286 ;; If use-explicit is non nil and explicit tag is present, use it as part of
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1287 ;; return value. Else just skip it.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1288 (setq explicit-start (point))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1289 (when (and (search-forward "\001" (save-excursion (forward-line 1) (point)) t)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1290 use-explicit)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1291 (setq tag-text (buffer-substring explicit-start (1- (point)))))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1292
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1293
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1294 (if (looking-at "[0-9]")
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1295 (setq line (string-to-number (buffer-substring
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1296 (point)
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1297 (progn (skip-chars-forward "0-9")
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1298 (point))))))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1299 (search-forward ",")
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1300 (if (looking-at "[0-9]")
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1301 (setq startpos (string-to-number (buffer-substring
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1302 (point)
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1303 (progn (skip-chars-forward "0-9")
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 57387
diff changeset
1304 (point)))))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1305 ;; Leave point on the next line of the tags file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1306 (forward-line 1)
6244
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1307 (cons tag-text (cons line startpos))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1308
6244
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1309 ;; TAG-INFO is a cons (TEXT LINE . POSITION) where TEXT is the initial part
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1310 ;; of a line containing the tag and POSITION is the character position of
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1311 ;; TEXT within the file (starting from 1); LINE is the line number. If
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1312 ;; TEXT is t, it means the tag refers to exactly LINE or POSITION
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1313 ;; (whichever is present, LINE having preference, no searching. Either
6244
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1314 ;; LINE or POSITION may be nil; POSITION is used if present. If the tag
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1315 ;; isn't exactly at the given position then look around that position using
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1316 ;; a search window which expands until it hits the start of file.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1317 (defun etags-goto-tag-location (tag-info)
6244
3ad3a0150b6d (etags-tags-completion-table): Let the line number or char pos be empty.
Roland McGrath <roland@gnu.org>
parents: 6140
diff changeset
1318 (let ((startpos (cdr (cdr tag-info)))
15770
17158dfe7765 (etags-goto-tag-location): New local variable LINE; use it.
Roland McGrath <roland@gnu.org>
parents: 15360
diff changeset
1319 (line (car (cdr tag-info)))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1320 offset found pat)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1321 (if (eq (car tag-info) t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1322 ;; Direct file tag.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1323 (cond (line (goto-line line))
15770
17158dfe7765 (etags-goto-tag-location): New local variable LINE; use it.
Roland McGrath <roland@gnu.org>
parents: 15360
diff changeset
1324 (startpos (goto-char startpos))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1325 (t (error "etags.el BUG: bogus direct file tag")))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1326 ;; This constant is 1/2 the initial search window.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1327 ;; There is no sense in making it too small,
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1328 ;; since just going around the loop once probably
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1329 ;; costs about as much as searching 2000 chars.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1330 (setq offset 1000
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1331 found nil
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1332 pat (concat (if (eq selective-display t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1333 "\\(^\\|\^m\\)" "^")
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1334 (regexp-quote (car tag-info))))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1335 ;; The character position in the tags table is 0-origin.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1336 ;; Convert it to a 1-origin Emacs character position.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1337 (if startpos (setq startpos (1+ startpos)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1338 ;; If no char pos was given, try the given line number.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1339 (or startpos
15770
17158dfe7765 (etags-goto-tag-location): New local variable LINE; use it.
Roland McGrath <roland@gnu.org>
parents: 15360
diff changeset
1340 (if line
17158dfe7765 (etags-goto-tag-location): New local variable LINE; use it.
Roland McGrath <roland@gnu.org>
parents: 15360
diff changeset
1341 (setq startpos (progn (goto-line line)
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1342 (point)))))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1343 (or startpos
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1344 (setq startpos (point-min)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1345 ;; First see if the tag is right at the specified location.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1346 (goto-char startpos)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1347 (setq found (looking-at pat))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1348 (while (and (not found)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1349 (progn
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1350 (goto-char (- startpos offset))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1351 (not (bobp))))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1352 (setq found
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1353 (re-search-forward pat (+ startpos offset) t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1354 offset (* 3 offset))) ; expand search window
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1355 (or found
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1356 (re-search-forward pat nil t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1357 (error "Rerun etags: `%s' not found in %s"
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1358 pat buffer-file-name)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1359 ;; Position point at the right place
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1360 ;; if the search string matched an extra Ctrl-m at the beginning.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1361 (and (eq selective-display t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1362 (looking-at "\^m")
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1363 (forward-char 1))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1364 (beginning-of-line)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1365
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1366 (defun etags-list-tags (file)
44509
92316652b440 (etags-verify-tags-table, etags-snarf-tag, etags-list-tags)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44140
diff changeset
1367 (goto-char (point-min))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1368 (when (re-search-forward (concat "\f\n" "\\(" file "\\)" ",") nil t)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1369 (let ((path (save-excursion (forward-line 1) (file-of-tag)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1370 ;; Get the local value in the tags table
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1371 ;; buffer before switching buffers.
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1372 (goto-func goto-tag-location-function)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1373 tag tag-info pt)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1374 (forward-line 1)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1375 (while (not (or (eobp) (looking-at "\f")))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1376 (setq tag-info (save-excursion (funcall snarf-tag-function t))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1377 tag (car tag-info)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1378 pt (with-current-buffer standard-output (point)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1379 (princ tag)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1380 (when (= (aref tag 0) ?\() (princ " ...)"))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1381 (with-current-buffer standard-output
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1382 (make-text-button pt (point)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1383 'tag-info tag-info
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1384 'file-path path
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1385 'goto-func goto-func
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1386 'action (lambda (button)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1387 (let ((tag-info (button-get button 'tag-info))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1388 (goto-func (button-get button 'goto-func)))
50455
7993414db7f7 * progmodes/etags.el (tag-find-file-of-tag): Renamed from
Masatake YAMATO <jet@gyve.org>
parents: 50435
diff changeset
1389 (tag-find-file-of-tag (button-get button 'file-path))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1390 (widen)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1391 (funcall goto-func tag-info)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1392 'face 'tags-tag-face
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1393 'type 'button))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1394 (terpri)
4940
2f65b0f9c6fc (etags-list-tags): Return t if found the file.
Richard M. Stallman <rms@gnu.org>
parents: 4857
diff changeset
1395 (forward-line 1))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1396 t)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1397
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1398 (defmacro tags-with-face (face &rest body)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1399 "Execute BODY, give output to `standard-output' face FACE."
41772
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1400 (let ((pp (make-symbol "start")))
29086
a4b321043588 Fix last change.
Dave Love <fx@gnu.org>
parents: 29080
diff changeset
1401 `(let ((,pp (with-current-buffer standard-output (point))))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1402 ,@body
29086
a4b321043588 Fix last change.
Dave Love <fx@gnu.org>
parents: 29080
diff changeset
1403 (put-text-property ,pp (with-current-buffer standard-output (point))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1404 'face ,face standard-output))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1405
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1406 (defun etags-tags-apropos-additional (regexp)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1407 "Display tags matching REGEXP from `tags-apropos-additional-actions'."
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1408 (with-current-buffer standard-output
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1409 (dolist (oba tags-apropos-additional-actions)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1410 (princ "\n\n")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1411 (tags-with-face 'highlight (princ (car oba)))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1412 (princ":\n\n")
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1413 (let* ((beg (point))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1414 (symbs (car (cddr oba)))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1415 (ins-symb (lambda (sy)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1416 (let ((sn (symbol-name sy)))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1417 (when (string-match regexp sn)
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1418 (make-text-button (point)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1419 (progn (princ sy) (point))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1420 'action-internal(cadr oba)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1421 'action (lambda (button) (funcall
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1422 (button-get button 'action-internal)
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1423 (button-get button 'item)))
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1424 'item sn
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1425 'face tags-tag-face
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1426 'type 'button)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1427 (terpri))))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1428 (when (symbolp symbs)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1429 (if (boundp symbs)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1430 (setq symbs (symbol-value symbs))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1431 (insert "symbol `" (symbol-name symbs) "' has no value\n")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1432 (setq symbs nil)))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1433 (if (vectorp symbs)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1434 (mapatoms ins-symb symbs)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1435 (dolist (sy symbs)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1436 (funcall ins-symb (car sy))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1437 (sort-lines nil beg (point))))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1438
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1439 (defun etags-tags-apropos (string)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1440 (when tags-apropos-verbose
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1441 (princ "Tags in file `")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1442 (tags-with-face 'highlight (princ buffer-file-name))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1443 (princ "':\n\n"))
44509
92316652b440 (etags-verify-tags-table, etags-snarf-tag, etags-list-tags)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44140
diff changeset
1444 (goto-char (point-min))
57387
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1445 (let ((progress-reporter (make-progress-reporter
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1446 (format "Making tags apropos buffer for `%s'..."
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1447 string)
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1448 (point-min) (point-max))))
56556
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1449 (while (re-search-forward string nil t)
57387
55eb88327d84 (etags-tags-completion-table): Use progress reporter.
Eli Zaretskii <eliz@gnu.org>
parents: 56827
diff changeset
1450 (progress-reporter-update progress-reporter (point))
56556
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1451 (beginning-of-line)
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1452
56556
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1453 (let* ( ;; Get the local value in the tags table
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1454 ;; buffer before switching buffers.
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1455 (goto-func goto-tag-location-function)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1456 (tag-info (save-excursion (funcall snarf-tag-function)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1457 (tag (if (eq t (car tag-info)) nil (car tag-info)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1458 (file-path (save-excursion (if tag (file-of-tag)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1459 (save-excursion (next-line 1)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1460 (file-of-tag)))))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1461 (file-label (if tag (file-of-tag t)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1462 (save-excursion (next-line 1)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1463 (file-of-tag t))))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1464 (pt (with-current-buffer standard-output (point))))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1465 (if tag
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1466 (progn
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1467 (princ (format "[%s]: " file-label))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1468 (princ tag)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1469 (when (= (aref tag 0) ?\() (princ " ...)"))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1470 (with-current-buffer standard-output
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1471 (make-text-button pt (point)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1472 'tag-info tag-info
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1473 'file-path file-path
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1474 'goto-func goto-func
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1475 'action (lambda (button)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1476 (let ((tag-info (button-get button 'tag-info))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1477 (goto-func (button-get button 'goto-func)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1478 (tag-find-file-of-tag (button-get button 'file-path))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1479 (widen)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1480 (funcall goto-func tag-info)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1481 'face 'tags-tag-face
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1482 'type 'button)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1483 (princ (format "- %s" file-label))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1484 (with-current-buffer standard-output
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1485 (make-text-button pt (point)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1486 'file-path file-path
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1487 'action (lambda (button)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1488 (tag-find-file-of-tag (button-get button 'file-path))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1489 ;; Get the local value in the tags table
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1490 ;; buffer before switching buffers.
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1491 (goto-char (point-min)))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1492 'face 'tags-tag-face
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1493 'type 'button))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1494 ))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1495 (terpri)
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1496 (forward-line 1))
8699eccc1a33 (etags-tags-apropos): Show building progress.
Masatake YAMATO <jet@gyve.org>
parents: 55715
diff changeset
1497 (message nil))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1498 (when tags-apropos-verbose (princ "\n")))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1499
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1500 (defun etags-tags-table-files ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1501 (let ((files nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1502 beg)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1503 (goto-char (point-min))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1504 (while (search-forward "\f\n" nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1505 (setq beg (point))
9579
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1506 (end-of-line)
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1507 (skip-chars-backward "^," beg)
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1508 (or (looking-at "include$")
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1509 (setq files (cons (buffer-substring beg (1- (point))) files))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1510 (nreverse files)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1511
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1512 (defun etags-tags-included-tables ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1513 (let ((files nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1514 beg)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1515 (goto-char (point-min))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1516 (while (search-forward "\f\n" nil t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1517 (setq beg (point))
9579
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1518 (end-of-line)
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1519 (skip-chars-backward "^," beg)
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1520 (if (looking-at "include$")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1521 ;; Expand in the default-directory of the tags table buffer.
9579
2a5d9c96525f (etags-tags-table-files, etags-tags-included-tables):
Richard M. Stallman <rms@gnu.org>
parents: 9525
diff changeset
1522 (setq files (cons (expand-file-name (buffer-substring beg (1- (point))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1523 files))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1524 (nreverse files)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1525
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1526 ;; Empty tags file support.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1527
1696
cceb5375ce40 Many comments added and docstrings fixed.
Roland McGrath <roland@gnu.org>
parents: 1555
diff changeset
1528 ;; 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
1529 ;; variables which do nothing.
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1530 (defun tags-recognize-empty-tags-table ()
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1531 (and (zerop (buffer-size))
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1532 (mapc (lambda (sym) (set (make-local-variable sym) 'ignore))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1533 '(tags-table-files-function
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1534 tags-completion-table-function
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1535 find-tag-regexp-search-function
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1536 find-tag-search-function
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1537 tags-apropos-function
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
1538 tags-included-tables-function))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1539 (set (make-local-variable 'verify-tags-table-function)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1540 (lambda () (zerop (buffer-size))))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1541
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1542 ;; Match qualifier functions for tagnames.
45921
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1543 ;; These functions assume the etags file format defined in etc/ETAGS.EBNF.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1544
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1545 ;; 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
1546 ;;(defmacro tags-with-syntax (&rest body)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1547 ;; `(let ((current (current-buffer))
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1548 ;; (otable (syntax-table))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1549 ;; (buffer (find-file-noselect (file-of-tag)))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1550 ;; table)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1551 ;; (unwind-protect
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1552 ;; (progn
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1553 ;; (set-buffer buffer)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1554 ;; (setq table (syntax-table))
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1555 ;; (set-buffer current)
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1556 ;; (set-syntax-table table)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1557 ;; ,@body)
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1558 ;; (set-syntax-table otable))))
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1559 ;;(put 'tags-with-syntax 'edebug-form-spec '(&rest form))
877
e0dde8b90613 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 852
diff changeset
1560
45921
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1561 ;; exact file name match, i.e. searched tag must match complete file
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1562 ;; name including directories parts if there are some.
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1563 (defun tag-exact-file-name-match-p (tag)
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1564 (and (looking-at ",[0-9\n]")
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1565 (save-excursion (backward-char (+ 2 (length tag)))
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1566 (looking-at "\f\n"))))
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1567 ;; file name match as above, but searched tag must match the file
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1568 ;; name not including the directories if there are some.
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1569 (defun tag-file-name-match-p (tag)
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1570 (and (looking-at ",[0-9\n]")
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1571 (save-excursion (backward-char (1+ (length tag)))
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1572 (looking-at "/"))))
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1573 ;; this / to detect we are after a directory separator is ok for unix,
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1574 ;; is there a variable that contains the regexp for directory separator
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1575 ;; on whatever operating system ?
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1576 ;; Looks like ms-win will lose here :).
d10f7a8678bc Rearranged the order in which the tag-*-match-p functions are defined,
Francesco Potortì <pot@gnu.org>
parents: 45920
diff changeset
1577
9021
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1578 ;; t if point is at a tag line that matches TAG exactly.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1579 ;; point should be just after a string that matches TAG.
884
93a935b7a479 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 878
diff changeset
1580 (defun tag-exact-match-p (tag)
4666
674082454a0c (tag-exact-match-p): Return true if TAG is the explicit tag name.
Roland McGrath <roland@gnu.org>
parents: 4661
diff changeset
1581 ;; The match is really exact if there is an explicit tag name.
8081
6099d3d43685 (tag-exact-match-p): Test for point sitting after the explicit tag name
Roland McGrath <roland@gnu.org>
parents: 8040
diff changeset
1582 (or (and (eq (char-after (point)) ?\001)
8082
215cfbab6d72 (tag-exact-match-p): Fix typo in last change.
Roland McGrath <roland@gnu.org>
parents: 8081
diff changeset
1583 (eq (char-after (- (point) (length tag) 1)) ?\177))
8081
6099d3d43685 (tag-exact-match-p): Test for point sitting after the explicit tag name
Roland McGrath <roland@gnu.org>
parents: 8040
diff changeset
1584 ;; We are not on the explicit tag name, but perhaps it follows.
9021
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1585 (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))))
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1586
45923
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1587 ;; t if point is at a tag line that has an implicit name.
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1588 ;; point should be just after a string that matches TAG.
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1589 (defun tag-implicit-name-match-p (tag)
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1590 ;; Look at the comment of the make_tag function in lib-src/etags.c for
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1591 ;; a textual description of the four rules.
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1592 (and (string-match "^[^ \t()=,;]+$" tag) ;rule #1
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1593 (looking-at "[ \t()=,;]?\177") ;rules #2 and #4
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1594 (save-excursion
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1595 (backward-char (1+ (length tag)))
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1596 (looking-at "[\n \t()=,;]")))) ;rule #3
fe953746c5e8 (tag-implicit-name-match-p): New function.
Francesco Potortì <pot@gnu.org>
parents: 45921
diff changeset
1597
9021
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1598 ;; t if point is at a tag line that matches TAG as a symbol.
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1599 ;; point should be just after a string that matches TAG.
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1600 (defun tag-symbol-match-p (tag)
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1601 (and (looking-at "\\Sw.*\177") (looking-at "\\S_.*\177")
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1602 (save-excursion
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1603 (backward-char (1+ (length tag)))
e0709ca0418a (tag-symbol-match-p): New function.
Roland McGrath <roland@gnu.org>
parents: 9020
diff changeset
1604 (and (looking-at "\\Sw") (looking-at "\\S_")))))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1605
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1606 ;; 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
1607 ;; point should be just after a string that matches TAG.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1608 (defun tag-word-match-p (tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1609 (and (looking-at "\\b.*\177")
15770
17158dfe7765 (etags-goto-tag-location): New local variable LINE; use it.
Roland McGrath <roland@gnu.org>
parents: 15360
diff changeset
1610 (save-excursion (backward-char (length tag))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1611 (looking-at "\\b"))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1612
37963
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
1613 ;; partial file name match, i.e. searched tag must match a substring
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
1614 ;; of the file name (potentially including a directory separator).
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1615 (defun tag-partial-file-name-match-p (tag)
43881
e9654452ad5e * progmodes/etags.el (tag-exact-file-name-match-p)
Francesco Potortì <pot@gnu.org>
parents: 43853
diff changeset
1616 (and (looking-at ".*,[0-9\n]")
34190
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1617 (save-excursion (beginning-of-line)
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1618 (backward-char 2)
e624fa36b252 (tag-partial-file-name-match-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33418
diff changeset
1619 (looking-at "\f\n"))))
10661
32beb7b6dbf7 Changes to support filenames as tags too and provided
Richard M. Stallman <rms@gnu.org>
parents: 10458
diff changeset
1620
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1621 ;; 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
1622 (defun tag-any-match-p (tag)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1623 (looking-at ".*\177"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1624
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1625 ;; 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
1626 (defun tag-re-match-p (re)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1627 (save-excursion
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1628 (beginning-of-line)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1629 (let ((bol (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1630 (and (search-forward "\177" (save-excursion (end-of-line) (point)) t)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1631 (re-search-backward re bol t)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1632
23415
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1633 (defcustom tags-loop-revert-buffers nil
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1634 "*Non-nil means tags-scanning loops should offer to reread changed files.
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1635 These loops normally read each file into Emacs, but when a file
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1636 is already visited, they use the existing buffer.
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1637 When this flag is non-nil, they offer to revert the existing buffer
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1638 in the case where the file has changed since you visited it."
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1639 :type 'boolean
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1640 :group 'etags)
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1641
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1642 ;;;###autoload
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1643 (defun next-file (&optional initialize novisit)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1644 "Select next file among files in current tags table.
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1645
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1646 A first argument of t (prefix arg, if interactive) initializes to the
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1647 beginning of the list of files in the tags table. If the argument is
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1648 neither nil nor t, it is evalled to initialize the list of files.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1649
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1650 Non-nil second argument NOVISIT means use a temporary buffer
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1651 to save time and avoid uninteresting warnings.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1652
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1653 Value is nil if the file was already visited;
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1654 if the file was newly read in, the value is the filename."
13576
38c6a718abb8 (next-file): Make interactive arg t if had any prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 13341
diff changeset
1655 ;; Make the interactive arg t if there was any prefix arg.
38c6a718abb8 (next-file): Make interactive arg t if had any prefix arg.
Richard M. Stallman <rms@gnu.org>
parents: 13341
diff changeset
1656 (interactive (list (if current-prefix-arg t)))
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1657 (cond ((not initialize)
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1658 ;; Not the first run.
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1659 )
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1660 ((eq initialize t)
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1661 ;; Initialize the list from the tags table.
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1662 (save-excursion
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1663 ;; Visit the tags table buffer to get its list of files.
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1664 (visit-tags-table-buffer)
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1665 ;; Copy the list so we can setcdr below, and expand the file
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1666 ;; names while we are at it, in this buffer's default directory.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1667 (setq next-file-list (mapcar 'expand-file-name (tags-table-files)))
9631
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1668 ;; Iterate over all the tags table files, collecting
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1669 ;; a complete list of referenced file names.
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1670 (while (visit-tags-table-buffer t)
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1671 ;; Find the tail of the working list and chain on the new
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1672 ;; sublist for this tags table.
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1673 (let ((tail next-file-list))
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1674 (while (cdr tail)
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1675 (setq tail (cdr tail)))
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1676 ;; Use a copy so the next loop iteration will not modify the
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1677 ;; list later returned by (tags-table-files).
11316
72f527d22fe1 (next-file): Handle empty list returned by (tags-table-files).
Roland McGrath <roland@gnu.org>
parents: 10680
diff changeset
1678 (if tail
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1679 (setcdr tail (mapcar 'expand-file-name (tags-table-files)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1680 (setq next-file-list (mapcar 'expand-file-name
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1681 (tags-table-files))))))))
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1682 (t
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1683 ;; Initialize the list by evalling the argument.
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1684 (setq next-file-list (eval initialize))))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1685 (unless next-file-list
9631
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1686 (and novisit
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1687 (get-buffer " *next-file*")
a5bd0b6b080e (next-file): Initialize next-file-list all at once from all tables.
Roland McGrath <roland@gnu.org>
parents: 9579
diff changeset
1688 (kill-buffer " *next-file*"))
18623
fc78e7f26a64 (next-file, tags-loop-scan): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 18324
diff changeset
1689 (error "All files processed"))
12942
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1690 (let* ((next (car next-file-list))
23415
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1691 (buffer (get-file-buffer next))
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1692 (new (not buffer)))
12942
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1693 ;; Advance the list before trying to find the file.
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1694 ;; If we get an error finding the file, don't get stuck on it.
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1695 (setq next-file-list (cdr next-file-list))
23415
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1696 ;; Optionally offer to revert buffers
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1697 ;; if the files have changed on disk.
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1698 (and buffer tags-loop-revert-buffers
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1699 (not (verify-visited-file-modtime buffer))
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1700 (with-current-buffer buffer
b511a32c37fd (tags-loop-revert-buffers): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 23377
diff changeset
1701 (revert-buffer t)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1702 (if (not (and new novisit))
12942
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1703 (set-buffer (find-file-noselect next novisit))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1704 ;; Like find-file, but avoids random warning messages.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1705 (set-buffer (get-buffer-create " *next-file*"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1706 (kill-all-local-variables)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1707 (erase-buffer)
12942
3685b0e52d2a (next-file): Advance next-file-list before finding the file named in its
Roland McGrath <roland@gnu.org>
parents: 11792
diff changeset
1708 (setq new next)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1709 (insert-file-contents new nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1710 new))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1712 (defvar tags-loop-operate nil
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1713 "Form for `tags-loop-continue' to eval to change one file.")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1714
1808
60685747963c (tags-loop-scan): Set default value to an error form.
Roland McGrath <roland@gnu.org>
parents: 1807
diff changeset
1715 (defvar tags-loop-scan
14420
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
1716 '(error "%s"
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
1717 (substitute-command-keys
18623
fc78e7f26a64 (next-file, tags-loop-scan): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 18324
diff changeset
1718 "No \\[tags-search] or \\[tags-query-replace] in progress"))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1719 "Form for `tags-loop-continue' to eval to scan one file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1720 If it returns non-nil, this file needs processing by evalling
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1721 \`tags-loop-operate'. Otherwise, move on to the next file.")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1723 (defun tags-loop-eval (form)
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1724 "Evaluate FORM and return its result.
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1725 Bind `case-fold-search' during the evaluation, depending on the value of
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1726 `tags-case-fold-search'."
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1727 (let ((case-fold-search (if (memq tags-case-fold-search '(t nil))
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1728 tags-case-fold-search
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1729 case-fold-search)))
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1730 (eval form)))
36736
2eea125a1272 2001-03-12 Philippe Waroquiers <wao@gull.tact.cfmu.eurocontrol.be>
Francesco Potortì <pot@gnu.org>
parents: 35961
diff changeset
1731
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1732
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1733 ;;;###autoload
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1734 (defun tags-loop-continue (&optional first-time)
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1735 "Continue last \\[tags-search] or \\[tags-query-replace] command.
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1736 Used noninteractively with non-nil argument to begin such a command (the
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1737 argument is passed to `next-file', which see).
11792
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1738
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1739 Two variables control the processing we do on each file: the value of
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1740 `tags-loop-scan' is a form to be executed on each file to see if it is
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1741 interesting (it returns non-nil if so) and `tags-loop-operate' is a form to
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1742 evaluate to operate on an interesting file. If the latter evaluates to
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1743 nil, we exit; otherwise we scan the next file."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1744 (interactive)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1745 (let (new
25438
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1746 ;; Non-nil means we have finished one file
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1747 ;; and should not scan it again.
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1748 file-finished
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1749 original-point
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1750 (messaged nil))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1751 (while
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1752 (progn
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1753 ;; Scan files quickly for the first or next interesting one.
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1754 ;; This starts at point in the current buffer.
25438
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1755 (while (or first-time file-finished
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1756 (save-restriction
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1757 (widen)
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1758 (not (tags-loop-eval tags-loop-scan))))
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1759 ;; If nothing was found in the previous file, and
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1760 ;; that file isn't in a temp buffer, restore point to
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1761 ;; where it was.
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1762 (when original-point
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1763 (goto-char original-point))
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1764
25438
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1765 (setq file-finished nil)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1766 (setq new (next-file first-time t))
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1767
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1768 ;; If NEW is non-nil, we got a temp buffer,
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1769 ;; and NEW is the file name.
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1770 (when (or messaged
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1771 (and (not first-time)
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1772 (> baud-rate search-slow-speed)
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1773 (setq messaged t)))
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1774 (message "Scanning file %s..." (or new buffer-file-name)))
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1775
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1776 (setq first-time nil)
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1777 (setq original-point (if new nil (point)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1778 (goto-char (point-min)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1779
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1780 ;; 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
1781 (if new
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1782 (let ((pos (point)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1783 (erase-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1784 (set-buffer (find-file-noselect new))
11792
4284a0c7971a (tags-loop-continue): Doc fix.
Roland McGrath <roland@gnu.org>
parents: 11482
diff changeset
1785 (setq new nil) ;No longer in a temp buffer.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1786 (widen)
36748
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1787 (goto-char pos))
1e71d38a27df (tags-loop-continue): Don't change point in a
Gerd Moellmann <gerd@gnu.org>
parents: 36736
diff changeset
1788 (push-mark original-point t))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1789
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1790 (switch-to-buffer (current-buffer))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1791
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1792 ;; Now operate on the file.
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1793 ;; If value is non-nil, continue to scan the next file.
28243
9669a6691caa (tags-case-fold-search): New user-option.
Gerd Moellmann <gerd@gnu.org>
parents: 26720
diff changeset
1794 (tags-loop-eval tags-loop-operate))
25438
4868ac7f6a3f (tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Richard M. Stallman <rms@gnu.org>
parents: 25278
diff changeset
1795 (setq file-finished t))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1796 (and messaged
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1797 (null tags-loop-operate)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1798 (message "Scanning file %s...found" buffer-file-name))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1799 ;;;###autoload (define-key esc-map "," 'tags-loop-continue)
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1801 ;;;###autoload
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1802 (defun tags-search (regexp &optional file-list-form)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1803 "Search through all files listed in tags table for match for REGEXP.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804 Stops when a match is found.
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805 To continue searching for next match, use command \\[tags-loop-continue].
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1806
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1807 See documentation of variable `tags-file-name'."
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 (interactive "sTags search (regexp): ")
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809 (if (and (equal regexp "")
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1810 (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
1811 (null tags-loop-operate))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1812 ;; Continue last tags-search as if by M-,.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813 (tags-loop-continue nil)
41772
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1814 (setq tags-loop-scan `(re-search-forward ',regexp nil t)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1815 tags-loop-operate nil)
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1816 (tags-loop-continue (or file-list-form t))))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1818 ;;;###autoload
29730
8b7b0c7c65db (tags-query-replace): Put new parameters
Andreas Schwab <schwab@suse.de>
parents: 29086
diff changeset
1819 (defun tags-query-replace (from to &optional delimited file-list-form start end)
42416
36dc6c5f8b28 (tags-query-replace): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41772
diff changeset
1820 "Do `query-replace-regexp' of FROM with TO on all files listed in tags table.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
42416
36dc6c5f8b28 (tags-query-replace): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41772
diff changeset
1822 If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 with the command \\[tags-loop-continue].
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1825 See documentation of variable `tags-file-name'."
44140
43143e459aae (tags-query-replace): Pass t for NOERROR to query-replace-read-args.
Richard M. Stallman <rms@gnu.org>
parents: 43881
diff changeset
1826 (interactive (query-replace-read-args "Tags query replace (regexp)" t t))
41772
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1827 (setq tags-loop-scan `(let ,(unless (equal from (downcase from))
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1828 '((case-fold-search nil)))
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1829 (if (re-search-forward ',from nil t)
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1830 ;; When we find a match, move back
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1831 ;; to the beginning of it so perform-replace
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1832 ;; will see it.
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1833 (goto-char (match-beginning 0))))
647a7868ae38 (tags-with-face): Use make-symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40309
diff changeset
1834 tags-loop-operate `(perform-replace ',from ',to t t ',delimited))
4661
8ca17ed2aeb8 (next-file): If arg is neither t nor nil, then eval it to return initial
Roland McGrath <roland@gnu.org>
parents: 4486
diff changeset
1835 (tags-loop-continue (or file-list-form t)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1836
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1837 (defun tags-complete-tags-table-file (string predicate what)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1838 (save-excursion
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1839 ;; If we need to ask for the tag table, allow that.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1840 (let ((enable-recursive-minibuffers t))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1841 (visit-tags-table-buffer))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1842 (if (eq what t)
45430
d207a1784c9e (tags-complete-tags-table-file): Don't cons unnecessarily.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44509
diff changeset
1843 (all-completions string (tags-table-files) predicate)
d207a1784c9e (tags-complete-tags-table-file): Don't cons unnecessarily.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44509
diff changeset
1844 (try-completion string (tags-table-files) predicate))))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1845
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1846 ;;;###autoload
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1847 (defun list-tags (file &optional next-match)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1848 "Display list of tags in file FILE.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1849 This searches only the first table in the list, and no included tables.
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1850 FILE should be as it appeared in the `etags' command, usually without a
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1851 directory specification."
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1852 (interactive (list (completing-read "List tags in file: "
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1853 'tags-complete-tags-table-file
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1854 nil t nil)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1855 (with-output-to-temp-buffer "*Tags List*"
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1856 (princ "Tags in file `")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1857 (tags-with-face 'highlight (princ file))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1858 (princ "':\n\n")
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1859 (save-excursion
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1860 (let ((first-time t)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1861 (gotany nil))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1862 (while (visit-tags-table-buffer (not first-time))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1863 (setq first-time nil)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1864 (if (funcall list-tags-function file)
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1865 (setq gotany t)))
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1866 (or gotany
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1867 (error "File %s not in current tags tables" file)))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1868 (with-current-buffer "*Tags List*"
55714
7b91de4a810f * progmodes/etags.el (tags-apropos, list-tags): Require apropos.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
1869 (require 'apropos)
62622
d27edfeb78fa (list-tags): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 62402
diff changeset
1870 (with-no-warnings
d27edfeb78fa (list-tags): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 62402
diff changeset
1871 (apropos-mode))
50435
2c804de1a942 (find-file-of-tag-noselect, find-file-of-tag): New helper functions.
Juanma Barranquero <lekktu@gmail.com>
parents: 50419
diff changeset
1872 (setq buffer-read-only t)))
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1873
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1874 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1875 (defun tags-apropos (regexp)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1876 "Display list of all tags in tags table REGEXP matches."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1877 (interactive "sTags apropos (regexp): ")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878 (with-output-to-temp-buffer "*Tags List*"
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1879 (princ "Click mouse-2 to follow tags.\n\nTags matching regexp `")
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1880 (tags-with-face 'highlight (princ regexp))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1881 (princ "':\n\n")
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 (save-excursion
1149
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1883 (let ((first-time t))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1884 (while (visit-tags-table-buffer (not first-time))
283fa748ba99 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 1138
diff changeset
1885 (setq first-time nil)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1886 (funcall tags-apropos-function regexp))))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1887 (etags-tags-apropos-additional regexp))
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1888 (with-current-buffer "*Tags List*"
55714
7b91de4a810f * progmodes/etags.el (tags-apropos, list-tags): Require apropos.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
1889 (require 'apropos)
50419
27e134f43171 Require button.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 49734
diff changeset
1890 (apropos-mode)
27e134f43171 Require button.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 49734
diff changeset
1891 ;; apropos-mode is derived from fundamental-mode and it kills
27e134f43171 Require button.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 49734
diff changeset
1892 ;; all local variables.
27e134f43171 Require button.el.
Juanma Barranquero <lekktu@gmail.com>
parents: 49734
diff changeset
1893 (setq buffer-read-only t)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1894
37963
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
1895 ;; XXX Kludge interface.
342
8bfd98a0dcdd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1896
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1897 (define-button-type 'tags-select-tags-table
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1898 'action 'select-tags-table-select
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1899 'help-echo "RET, t or mouse-2: select tags table")
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1900
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1901 ;; 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
1902 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1903 (defun select-tags-table ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1904 "Select a tags table file from a menu of those you have already used.
8456
2ca3b54b45b1 (select-tags-table): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8297
diff changeset
1905 The list of tags tables to select from is stored in `tags-table-set-list';
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1906 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
1907 (interactive)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1908 (pop-to-buffer "*Tags Table List*")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1909 (setq buffer-read-only nil)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1910 (erase-buffer)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1911 (let ((set-list tags-table-set-list)
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1912 (desired-point nil)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1913 b)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1914 (when tags-table-list
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1915 (setq desired-point (point-marker))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1916 (setq b (point))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1917 (princ (mapcar 'abbreviate-file-name tags-table-list) (current-buffer))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1918 (make-text-button b (point) 'type 'tags-select-tags-table
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1919 'etags-table (car tags-table-list))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1920 (insert "\n"))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1921 (while set-list
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1922 (unless (eq (car set-list) tags-table-list)
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1923 (setq b (point))
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1924 (princ (mapcar 'abbreviate-file-name (car set-list)) (current-buffer))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1925 (make-text-button b (point) 'type 'tags-select-tags-table
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1926 'etags-table (car (car set-list)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1927 (insert "\n"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1928 (setq set-list (cdr set-list)))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1929 (when tags-file-name
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1930 (or desired-point
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1931 (setq desired-point (point-marker)))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1932 (setq b (point))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1933 (insert (abbreviate-file-name tags-file-name))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1934 (make-text-button b (point) 'type 'tags-select-tags-table
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1935 'etags-table tags-file-name)
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
1936 (insert "\n"))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1937 (setq set-list (delete tags-file-name
13341
c26492df6218 (select-tags-table): Don't modify the value of tags-table-list.
Richard M. Stallman <rms@gnu.org>
parents: 13165
diff changeset
1938 (apply 'nconc (cons (copy-sequence tags-table-list)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1939 (mapcar 'copy-sequence
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1940 tags-table-set-list)))))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1941 (while set-list
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1942 (setq b (point))
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1943 (insert (abbreviate-file-name (car set-list)))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1944 (make-text-button b (point) 'type 'tags-select-tags-table
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1945 'etags-table (car set-list))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1946 (insert "\n")
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1947 (setq set-list (delete (car set-list) set-list)))
44509
92316652b440 (etags-verify-tags-table, etags-snarf-tag, etags-list-tags)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44140
diff changeset
1948 (goto-char (point-min))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1949 (insert-before-markers
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1950 "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
1951 (if desired-point
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1952 (goto-char desired-point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1953 (set-window-start (selected-window) 1 t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1954 (set-buffer-modified-p nil)
7645
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1955 (select-tags-table-mode))
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1956
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1957 (defvar select-tags-table-mode-map
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1958 (let ((map (make-sparse-keymap)))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1959 (set-keymap-parent map button-buffer-map)
50545
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1960 (define-key map "t" 'push-button)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1961 (define-key map " " 'next-line)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1962 (define-key map "\^?" 'previous-line)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1963 (define-key map "n" 'next-line)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1964 (define-key map "p" 'previous-line)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1965 (define-key map "q" 'select-tags-table-quit)
f1c99baf3a4f 2003-04-11 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents: 50455
diff changeset
1966 map))
7645
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1967
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1968 (define-derived-mode select-tags-table-mode fundamental-mode "Select Tags Table"
7645
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1969 "Major mode for choosing a current tags table among those already loaded.
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1970
202339c81fa4 (select-tags-table-mode): New function, a major mode.
Richard M. Stallman <rms@gnu.org>
parents: 7287
diff changeset
1971 \\{select-tags-table-mode-map}"
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1972 (setq buffer-read-only t))
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1973
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1974 (defun select-tags-table-select (button)
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1975 "Select the tags table named on this line."
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1976 (interactive (list (or (button-at (line-beginning-position))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1977 (error "No tags table on current line"))))
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
1978 (let ((name (button-get button 'etags-table)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1979 (visit-tags-table name)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1980 (select-tags-table-quit)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1981 (message "Tags table now %s" name)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1982
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1983 (defun select-tags-table-quit ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1984 "Kill the buffer and delete the selected window."
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1985 (interactive)
21097
eb3dc7ea93c2 (select-tags-table-quit): Use quit-window.
Richard M. Stallman <rms@gnu.org>
parents: 20836
diff changeset
1986 (quit-window t (selected-window)))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1987
37963
c801f5d17c89 (tags-compression-info-list): Fix docstring
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36748
diff changeset
1988 ;; Note, there is another definition of this function in bindings.el.
360
066d9d0dd901 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 342
diff changeset
1989 ;;;###autoload
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1990 (defun complete-tag ()
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1991 "Perform tags completion on the text around point.
13731
f9bffca29486 Fix completely broken changes of 4 Feb 95 by brat@htilbom.ernet.in,
Roland McGrath <roland@gnu.org>
parents: 13576
diff changeset
1992 Completes to the set of names listed in the current tags table.
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1993 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
1994 for \\[find-tag] (which see)."
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
1995 (interactive)
981
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1996 (or tags-table-list
49a539ef702f *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 895
diff changeset
1997 tags-file-name
14420
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
1998 (error "%s"
071f9717597f (visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
1999 (substitute-command-keys
18623
fc78e7f26a64 (next-file, tags-loop-scan): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 18324
diff changeset
2000 "No tags table loaded; try \\[visit-tags-table]")))
47290
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
2001 (let ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
2002 tags-case-fold-search
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
2003 case-fold-search))
eb2e18d1144b (find-tag-tag, complete-tag): Bind
Francesco Potortì <pot@gnu.org>
parents: 45923
diff changeset
2004 (pattern (funcall (or find-tag-default-function
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2005 (get major-mode 'find-tag-default-function)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2006 'find-tag-default)))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2007 beg
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2008 completion)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2009 (or pattern
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2010 (error "Nothing to complete"))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2011 (search-backward pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2012 (setq beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2013 (forward-char (length pattern))
26720
32e893b03ad2 (etags-tags-completion-table): Modified the
Gerd Moellmann <gerd@gnu.org>
parents: 25438
diff changeset
2014 (setq completion (tags-complete-tag pattern nil nil))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2015 (cond ((eq completion t))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2016 ((null completion)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2017 (message "Can't find completion for \"%s\"" pattern)
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2018 (ding))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2019 ((not (string= pattern completion))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2020 (delete-region beg (point))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2021 (insert completion))
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2022 (t
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2023 (message "Making completion list...")
7843
38d89820ab47 (complete-tag): Likewise.
Richard M. Stallman <rms@gnu.org>
parents: 7645
diff changeset
2024 (with-output-to-temp-buffer "*Completions*"
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2025 (display-completion-list
66114
13abee3a9bc6 * message.el (message-expand-group): Pass the common
Masatake YAMATO <jet@gyve.org>
parents: 65983
diff changeset
2026 (all-completions pattern 'tags-complete-tag nil)
13abee3a9bc6 * message.el (message-expand-group): Pass the common
Masatake YAMATO <jet@gyve.org>
parents: 65983
diff changeset
2027 pattern))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2028 (message "Making completion list...%s" "done")))))
29080
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2029
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2030 (dolist (x '("^No tags table in use; use .* to select one$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2031 "^There is no default tag$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2032 "^No previous tag locations$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2033 "^File .* is not a valid tags table$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2034 "^No \\(more \\|\\)tags \\(matching\\|containing\\) "
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2035 "^Rerun etags: `.*' not found in "
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2036 "^All files processed$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2037 "^No .* or .* in progress$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2038 "^File .* not in current tags tables$"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2039 "^No tags table loaded"
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2040 "^Nothing to complete$"))
3b2040b6030a Add to debug-ignored-errors.
Dave Love <fx@gnu.org>
parents: 28738
diff changeset
2041 (add-to-list 'debug-ignored-errors x))
799
f9874f408ddf *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 747
diff changeset
2042
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
2043 (provide 'etags)
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
2044
65983
8851b98e9a29 (select-tags-table-mode): Don't use selective-display.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65680
diff changeset
2045 ;; arch-tag: b897c2b5-08f3-4837-b2d3-0e7d6db1b63e
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 804
diff changeset
2046 ;;; etags.el ends here