procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-09-03 22:30:48 +00:00
parent ae302641c2
commit ab685b6b9f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/etags.el
View file

@ -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)))