Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-02 00:45:49 +00:00
parent b3848c2851
commit e98cc0af19
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/etags.el
View file

@ -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.