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

(tags-complete-tag): Bind enable-recursive-minibuffers to t.

parent 398b666f
......@@ -562,7 +562,9 @@ Assumes the tags table is the current buffer."
;; but builds tags-completion-table on demand.
(defun tags-complete-tag (string predicate what)
(save-excursion
(visit-tags-table-buffer)
;; If we need to ask for the tag table, allow that.
(let ((enable-recursive-minibuffers t))
(visit-tags-table-buffer))
(if (eq what t)
(all-completions string (tags-completion-table) predicate)
(try-completion string (tags-completion-table) predicate))))
......
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