diff options
| author | Roland McGrath <roland@gnu.org> | 1993-01-19 21:05:15 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-01-19 21:05:15 +0000 |
| commit | bf349f368718cce5d3122e8b187d6172492997f3 (patch) | |
| tree | fe7433057015013fcb58dbb8ff67e0c40c6dd12e /lisp | |
| parent | 46d3268aa2fd112d7f1768e01d70569dd3cd7f71 (diff) | |
| download | emacs-bf349f368718cce5d3122e8b187d6172492997f3.tar.gz | |
(visit-tags-table-buffer): Error if called with 'same and no current table.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index cf21fa2e2b4..f94c51b467a 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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 |