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

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e66d12d07f2..a16cc974986 100644
--- 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)))