Commit 33633b28 authored by Roland McGrath's avatar Roland McGrath

(tags-add-tables): Change default value to 'ask-user; update doc.

(visit-tags-table-buffer): If tags-add-tables is nil, never add to current
list; if t, always; if non-nil, non-t, ask user.
parent 7492978d
......@@ -42,9 +42,11 @@ To switch to a new list of tags tables, setting this variable is sufficient.
If you set this variable, do not also set `tags-file-name'.
Use the `etags' program to make a tags table file.")
(defvar tags-add-tables nil
"*Non-nil means always add a new tags table to the current list.
This eliminates the need to ask the user whether to add a new tags table
;;;###autoload
(defvar tags-add-tables 'ask-user
"*T means always add a new tags table to the current list.
Nil means never add to the current list; always start a new list.
Non-nil but not t says to ask the user whether to add a new tags table
to the current list (as opposed to starting a new list).")
(defvar tags-table-list-pointer nil
......@@ -480,10 +482,11 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
;; Not found in any existing set.
(if (and tags-table-list
(or tags-add-tables
(or (eq t tags-add-tables)
(and tags-add-tables
(y-or-n-p
(concat "Keep current list of "
"tags tables also? "))))
"tags tables also? ")))))
;; Add it to the current list.
(setq tags-table-list (cons tags-file-name
tags-table-list))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment