changeset 1152:d9733ad5643a

*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Tue, 15 Sep 1992 22:52:46 +0000
parents 3dd95c0296ef
children 49e9dffbb2dc
files lisp/progmodes/etags.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Tue Sep 15 21:35:53 1992 +0000
+++ b/lisp/progmodes/etags.el	Tue Sep 15 22:52:46 1992 +0000
@@ -305,7 +305,10 @@
 If arg is nil or absent, choose a first buffer from information in
 `tags-file-name', `tags-table-list', `tags-table-list-pointer'.
 Returns t if it visits a tags table, or nil if there are no more in the list."
-  (cond ((eq cont 'same))
+  (cond ((eq cont 'same)
+	 ;; We don't need to look for a setting for tags-file-name,
+	 ;; but other than that we should behave just as if passed nil.
+	 (setq cont nil))
 
 	(cont
 	 (if (tags-next-table)
@@ -937,7 +940,7 @@
 	 (setq next-file-list (tags-table-files))))
   (or next-file-list
       (save-excursion
-	;; When doing (visit-tag-table-buffer t),
+	;; When doing (visit-tags-table-buffer t),
 	;; the tags table buffer must be current.
 	(if (and (visit-tags-table-buffer 'same)
 		 (visit-tags-table-buffer t))