Commit e98cc0af authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent b3848c28
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment