# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753774601 0
# Node ID 1d253bc912d893b1d6c9b5134a7f772d63a079b7
# Parent  698acfd3faa328aa1d0875d6ff6e25feac712e3b
(tags-complete-tag): Bind enable-recursive-minibuffers to t.

diff -r 698acfd3faa3 -r 1d253bc912d8 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sat Nov 20 05:17:44 1993 +0000
+++ b/lisp/progmodes/etags.el	Sat Nov 20 05:50:01 1993 +0000
@@ -562,7 +562,9 @@
 ;; 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))))