# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773109949 0
# Node ID 67c8a970fd4db3c2640c1582d0b7088e2a469451
# Parent  e45d541e55cf06ac4688c2056bc67625e4b9768c
(visit-tags-table-buffer): Move error call into scope of `file'.

diff -r e45d541e55cf -r 67c8a970fd4d lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sat Jul 02 00:41:28 1994 +0000
+++ b/lisp/progmodes/etags.el	Sat Jul 02 00:45:49 1994 +0000
@@ -548,8 +548,8 @@
       (let ((file tags-file-name))
 	(kill-local-variable 'tags-file-name)
 	(if (eq file tags-file-name)
-	    (setq tags-file-name nil)))
-      (error "File %s is not a valid tags table" file))))
+	    (setq tags-file-name nil))
+	(error "File %s is not a valid tags table" file)))))
 
 (defun file-of-tag ()
   "Return the file name of the file whose tags point is within.