Mercurial > emacs

changeset 1806:da47cfb7624e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(visit-tags-table-buffer): Error if called with 'same and no current table.
author Roland McGrath <roland@gnu.org>
date Tue, 19 Jan 1993 21:05:15 +0000
parents 7ba5cfe280eb
children 1059b972916c
files lisp/progmodes/etags.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Tue Jan 19 00:56:45 1993 +0000
+++ b/lisp/progmodes/etags.el	Tue Jan 19 21:05:15 1993 +0000
@@ -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 @@
 
   ;; 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