From: Roland McGrath <roland@gnu.org>
Date: Thu, 23 Jun 1994 01:30:12 +0000 (+0000)
Subject: Fix bits of last change lost in Emacs crash.
X-Git-Tag: emacs-19.34~7838
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec623f1b77f8b0ea81b7d5ce5b1389d47184c29e;p=emacs.git

Fix bits of last change lost in Emacs crash.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 08eb0b5dd45..517e6d71154 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -369,9 +369,11 @@ Returns non-nil iff it is a valid table."
 		;; the one which includes the table we found.
 		(setq could-be (cons (car elt) could-be)))
 	    (setq elt (cdr elt)))
-	  ;; The last element we found in the computed list before
-	  ;; FOUND that appears in the 
-    found))
+	  ;; The last element we found in the computed list before FOUND
+	  ;; that appears in the user's list will be the table that
+	  ;; included the one we found.  This will be the head of the
+	  ;; COULD-BE list.
+	  (car could-be)))))
 
 ;; Subroutine of visit-tags-table-buffer.  Move tags-table-list-pointer
 ;; along and set tags-file-name.  Returns nil when out of tables.