diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-02 00:45:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-02 00:45:49 +0000 |
| commit | e0cab6afcf90184ef0514e6dc5d865a1f2810297 (patch) | |
| tree | e4b7f0402f0d73bc00211e49a4866fa0bc95933a /lisp | |
| parent | b09cf097809c74d08ef07c1f6d5afb618c534476 (diff) | |
| download | emacs-e0cab6afcf90184ef0514e6dc5d865a1f2810297.tar.gz | |
(visit-tags-table-buffer): Move error call into scope of `file'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files 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. |