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. |