# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752829180 0
# Node ID 2f65b0f9c6fc4d057a4321549e80a37df335d4a9
# Parent  d9ad390ef4e336063a4a4aa720372aea04dfa3e8
(etags-list-tags): Return t if found the file.
(list-tags): Clear first-time when we go around the loop.
Supply file name in error message.
Remove dir names from files when preparing for completion.

diff -r d9ad390ef4e3 -r 2f65b0f9c6fc lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Mon Nov 08 23:55:50 1993 +0000
+++ b/lisp/progmodes/etags.el	Tue Nov 09 07:13:00 1993 +0000
@@ -386,8 +386,8 @@
 		  (car (or 
 			;; First check only tables already in buffers.
 			(save-excursion (tags-table-including buffer-file-name
-								 tags-table-list
-								 t))
+							      tags-table-list
+							      t))
 			;; Since that didn't find any, now do the
 			;; expensive version: reading new files.
 			(save-excursion (tags-table-including buffer-file-name
@@ -992,7 +992,8 @@
 			       (progn (skip-chars-forward "^\177")
 				      (point))))
       (terpri)
-      (forward-line 1))))
+      (forward-line 1))
+    t))
 
 (defun etags-tags-apropos (string)
   (goto-char 1)
@@ -1247,12 +1248,13 @@
 ;;;###autoload
 (defun list-tags (file)
   "Display list of tags in file FILE.
-FILE should not contain a directory specification
-unless it has one in the tags table."
+FILE should not contain a directory specification."
   (interactive (list (completing-read "List tags in file: "
 				      (save-excursion
 					(visit-tags-table-buffer)
-					(mapcar 'list (tags-table-files)))
+					(mapcar 'list
+						(mapcar 'file-name-nondirectory
+							(tags-table-files))))
 				      nil t nil)))
   (with-output-to-temp-buffer "*Tags List*"
     (princ "Tags in file ")
@@ -1262,10 +1264,11 @@
       (let ((first-time t)
 	    (gotany nil))
 	(while (visit-tags-table-buffer (not first-time))
+	  (setq first-time nil)
 	  (if (funcall list-tags-function file)
 	      (setq gotany t)))
 	(or gotany
-	    (error "File %s not in current tags tables"))))))
+	    (error "File %s not in current tags tables" file))))))
 
 ;;;###autoload
 (defun tags-apropos (regexp)