Skip to content

GitLab

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
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
lisp/progmodes/etags.el
View file @ e98cc0af
...@@ -548,8 +548,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list." ...@@ -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)) (let ((file tags-file-name))
(kill-local-variable 'tags-file-name) (kill-local-variable 'tags-file-name)
(if (eq file tags-file-name) (if (eq file tags-file-name)
(setq tags-file-name nil))) (setq tags-file-name nil))
(error "File %s is not a valid tags table" file)))) (error "File %s is not a valid tags table" file)))))
(defun file-of-tag () (defun file-of-tag ()
"Return the file name of the file whose tags point is within. "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