# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 727477515 0
# Node ID da47cfb7624ef744060ef01a31861dee988dcbbe
# Parent  7ba5cfe280ebee10f370959eb42f2f96de5b4651
(visit-tags-table-buffer): Error if called with 'same and no current table.

diff -r 7ba5cfe280eb -r da47cfb7624e lisp/progmodes/etags.el
--- 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