Mercurial > emacs
changeset 6140:35fc497c9f4e
(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.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 05:24:33 +0000 |
| parents | 120970aa0d16 |
| children | fefa088fc7f9 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Wed Mar 02 04:57:23 1994 +0000 +++ b/lisp/progmodes/etags.el Wed Mar 02 05:24:33 1994 +0000 @@ -42,9 +42,11 @@ 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 @@ ;; Not found in any existing set. (if (and tags-table-list - (or tags-add-tables - (y-or-n-p - (concat "Keep current list of " - "tags tables also? ")))) + (or (eq t tags-add-tables) + (and tags-add-tables + (y-or-n-p + (concat "Keep current list of " + "tags tables also? "))))) ;; Add it to the current list. (setq tags-table-list (cons tags-file-name tags-table-list))