(find-tag-tag): Pass default to completing-read.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e66d12d07f26dbbbb0b92b6b061c367007de2a88..a16cc9749866f6add8a146f8d0eadab98f9fb6a1 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -683,7 +683,8 @@ Assumes the tags table is the current buffer."
         (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)))