From e98cc0af19730ea6a2b08f77d263151e0da44962 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 2 Jul 1994 00:45:49 +0000 Subject: [PATCH] (visit-tags-table-buffer): Move error call into scope of `file'. --- lisp/progmodes/etags.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 5f4889477f9..63ef96a397f 100644 --- 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. -- 2.39.5