(tags-table-check-computed-list): Call tags-verify-table on existing

buffers.

(tags-table-check-computed-list): Call tags-verify-table on existing
buffers.
c49a777a · Roland McGrath · 2687aeb3 · c49a777a
Commit c49a777a authored Sep 23, 1994 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/progmodes/etags.el lisp/progmodes/etags.el +5 -1

No files found.
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -223,7 +223,11 @@ file the tag was in."
 	  (while tables
 	    (setq computed (cons (car tables) computed)
 		  table-buffer (get-file-buffer (car tables)))
-	    (if table-buffer
+	    (if (and table-buffer 
+		     ;; There is a buffer visiting the file.  Now make sure
+		     ;; it is initialized as a tag table buffer.
+		     (save-excursion
+		       (tags-verify-table (buffer-file-name table-buffer))))
 		(save-excursion
 		  (set-buffer table-buffer)
 		  (if (tags-included-tables)