# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873325848 0
# Node ID 73c2effb07a43aca0c18dc83bbc1ab28ad48128b
# Parent  c4894d8a3310330241bbd0fe675724ca2963b452
(find-tag-tag): Pass default to completing-read.

diff -r c4894d8a3310 -r 73c2effb07a4 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Sep 03 22:29:06 1997 +0000
+++ b/lisp/progmodes/etags.el	Wed Sep 03 22:30:48 1997 +0000
@@ -683,7 +683,8 @@
 	 (spec (completing-read (if default
 				    (format "%s(default %s) " string default)
 				  string)
-				'tags-complete-tag)))
+				'tags-complete-tag
+				nil nil nil nil default)))
     (if (equal spec "")
 	(or default (error "There is no default tag"))
       spec)))