Commit ab685b6b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ae302641
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment