mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(visit-tags-table-buffer): Error if called with 'same and no current table.

Browse Source
This commit is contained in:
Roland McGrath 1993-01-19 21:05:15 +00:00
parent 46d3268aa2
commit bf349f3687
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/etags.el
View File

@ -1,6 +1,7 @@
;; etags.el --- etags facility for Emacs
;; Copyright (C) 1985, 1986, 1988, 1989, 1992 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993
;; Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Keywords: tools
@ -335,8 +336,13 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
;; Set tags-file-name to the tags table file we want to visit.
(cond ((eq cont 'same)
;; Use the ambient value of tags-file-name. Set CONT to nil so the
;; code below will make sure tags-file-name is in tags-table-list.
;; Use the ambient value of tags-file-name.
(or tags-file-name
(error (substitute-command-keys
(concat "No tags table in use! "
"Use \\[visit-tags-table] to select one."))))
;; Set CONT to nil so the code below will make sure tags-file-name
;; is in tags-table-list.
(setq cont nil))
(cont