From ab685b6b9f8768aeae44bdd764d8e22c2944134e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 3 Sep 1997 22:30:48 +0000 Subject: [PATCH] (find-tag-tag): Pass default to completing-read. --- lisp/progmodes/etags.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.2