Mercurial > emacs

changeset 1156:2a92ddfaf6ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Roland McGrath <roland@gnu.org>
date Thu, 17 Sep 1992 01:12:50 +0000
parents e356f6701b9e
children a4a446feb297
files lisp/progmodes/etags.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Wed Sep 16 14:52:41 1992 +0000
+++ b/lisp/progmodes/etags.el	Thu Sep 17 01:12:50 1992 +0000
@@ -305,10 +305,7 @@
 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)
-	 ;; 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))
+  (cond ((eq cont 'same))
 
 	(cont
 	 (if (tags-next-table)
@@ -340,7 +337,7 @@
 
   (setq tags-file-name (tags-expand-table-name tags-file-name))
 
-  (if (and cont (null tags-table-list-pointer))
+  (if (and (eq cont t) (null tags-table-list-pointer))
       ;; All out of tables.
       nil
 
@@ -411,7 +408,10 @@
 		      (setq elt tags-table-list))))
 
 	      (setq tags-table-list-started-at elt
-		    tags-table-list-pointer elt))))
+		    tags-table-list-pointer elt)))
+
+	  ;; Return of t says the tags table is valid.
+	  t)
 
       ;; The buffer was not valid.  Don't use it again.
       (kill-local-variable 'tags-file-name)