Commit 0f518b6b authored by Juri Linkov's avatar Juri Linkov
Browse files

(tags-table-mode): New function.

(tags-verify-table): Replace initialize-new-tags-table with tags-table-mode.
parent bb9404d6
......@@ -273,6 +273,14 @@ One argument, the tag info returned by `snarf-tag-function'.")
;; Value is t if we have found a valid tags table buffer.
(run-hook-with-args-until-success 'tags-table-format-functions))
;;;###autoload
(defun tags-table-mode ()
"Major mode for tags table file buffers."
(interactive)
(setq major-mode 'tags-table-mode)
(setq mode-name "Tags Table")
(initialize-new-tags-table))
;;;###autoload
(defun visit-tags-table (file &optional local)
"Tell tags commands to use tags table file FILE.
......@@ -415,7 +423,7 @@ Returns non-nil iff it is a valid table."
;; having changed since we last used it.
(let (win)
(set-buffer (get-file-buffer file))
(setq win (or verify-tags-table-function (initialize-new-tags-table)))
(setq win (or verify-tags-table-function (tags-table-mode)))
(if (or (verify-visited-file-modtime (current-buffer))
;; Decide whether to revert the file.
;; revert-without-query can say to revert
......@@ -434,7 +442,7 @@ Returns non-nil iff it is a valid table."
(and verify-tags-table-function
(funcall verify-tags-table-function))
(revert-buffer t t)
(initialize-new-tags-table)))
(tags-table-mode)))
(and (file-exists-p file)
(progn
(set-buffer (find-file-noselect file))
......@@ -446,7 +454,7 @@ Returns non-nil iff it is a valid table."
(setcar tail buffer-file-name))
(if (eq file tags-file-name)
(setq tags-file-name buffer-file-name))))
(initialize-new-tags-table)))))
(tags-table-mode)))))
;; Subroutine of visit-tags-table-buffer. Search the current tags tables
;; for one that has tags for THIS-FILE (or that includes a table that
......
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