(visit-tags-table-buffer): Move error call into scope of `file'.

e98cc0af · Richard M. Stallman · b3848c28 · e98cc0af
Commit e98cc0af authored Jul 02, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/progmodes/etags.el lisp/progmodes/etags.el +2 -2

No files found.
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -548,8 +548,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
      (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.