Mercurial > emacs
comparison lisp/progmodes/etags.el @ 5079:1d253bc912d8
(tags-complete-tag): Bind enable-recursive-minibuffers to t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 20 Nov 1993 05:50:01 +0000 |
| parents | 2f65b0f9c6fc |
| children | bb40928e9e47 |
comparison
equal
deleted
inserted
replaced
| 5078:698acfd3faa3 | 5079:1d253bc912d8 |
|---|---|
| 560 | 560 |
| 561 ;; Completion function for tags. Does normal try-completion, | 561 ;; Completion function for tags. Does normal try-completion, |
| 562 ;; but builds tags-completion-table on demand. | 562 ;; but builds tags-completion-table on demand. |
| 563 (defun tags-complete-tag (string predicate what) | 563 (defun tags-complete-tag (string predicate what) |
| 564 (save-excursion | 564 (save-excursion |
| 565 (visit-tags-table-buffer) | 565 ;; If we need to ask for the tag table, allow that. |
| 566 (let ((enable-recursive-minibuffers t)) | |
| 567 (visit-tags-table-buffer)) | |
| 566 (if (eq what t) | 568 (if (eq what t) |
| 567 (all-completions string (tags-completion-table) predicate) | 569 (all-completions string (tags-completion-table) predicate) |
| 568 (try-completion string (tags-completion-table) predicate)))) | 570 (try-completion string (tags-completion-table) predicate)))) |
| 569 | 571 |
| 570 ;; Return a default tag to search for, based on the text at point. | 572 ;; Return a default tag to search for, based on the text at point. |