[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el

[Juri Linkov]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.190 emacs/lisp/progmodes/etags.el:1.191
*** emacs/lisp/progmodes/etags.el:1.190 Sun Oct 16 09:31:44 2005
--- emacs/lisp/progmodes/etags.el       Fri Oct 21 08:48:04 2005
***************
*** 274,279 ****
--- 274,287 ----
    (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.
  FILE should be the name of a file created with the `etags' program.
***************
*** 415,421 ****
        ;; 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)))
        (if (or (verify-visited-file-modtime (current-buffer))
                ;; Decide whether to revert the file.
                ;; revert-without-query can say to revert
--- 423,429 ----
        ;; having changed since we last used it.
        (let (win)
        (set-buffer (get-file-buffer file))
!       (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,440 ****
            (and verify-tags-table-function
                 (funcall verify-tags-table-function))
          (revert-buffer t t)
!         (initialize-new-tags-table)))
      (and (file-exists-p file)
         (progn
           (set-buffer (find-file-noselect file))
--- 442,448 ----
            (and verify-tags-table-function
                 (funcall verify-tags-table-function))
          (revert-buffer t t)
!         (tags-table-mode)))
      (and (file-exists-p file)
         (progn
           (set-buffer (find-file-noselect file))
***************
*** 446,452 ****
                     (setcar tail buffer-file-name))
                 (if (eq file tags-file-name)
                     (setq tags-file-name buffer-file-name))))
!          (initialize-new-tags-table)))))
  
  ;; 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
--- 454,460 ----
                     (setcar tail buffer-file-name))
                 (if (eq file tags-file-name)
                     (setq tags-file-name buffer-file-name))))
!          (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