Mercurial > emacs
comparison lisp/progmodes/etags.el @ 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 | 33f430abc9ed |
| children | 2edce6cd0ef0 |
comparison
equal
deleted
inserted
replaced
| 19734:c4894d8a3310 | 19735:73c2effb07a4 |
|---|---|
| 681 (get major-mode 'find-tag-default-function) | 681 (get major-mode 'find-tag-default-function) |
| 682 'find-tag-default))) | 682 'find-tag-default))) |
| 683 (spec (completing-read (if default | 683 (spec (completing-read (if default |
| 684 (format "%s(default %s) " string default) | 684 (format "%s(default %s) " string default) |
| 685 string) | 685 string) |
| 686 'tags-complete-tag))) | 686 'tags-complete-tag |
| 687 nil nil nil nil default))) | |
| 687 (if (equal spec "") | 688 (if (equal spec "") |
| 688 (or default (error "There is no default tag")) | 689 (or default (error "There is no default tag")) |
| 689 spec))) | 690 spec))) |
| 690 | 691 |
| 691 (defvar last-tag nil | 692 (defvar last-tag nil |