Mercurial > emacs
changeset 19735:73c2effb07a4
(find-tag-tag): Pass default to completing-read.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Sep 1997 22:30:48 +0000 |
| parents | c4894d8a3310 |
| children | ca5e30c4e578 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))