Enable recursive minibuffers in dict-read-word

diff --git a/dict.el b/dict.el
index 16f20d56392882df0fbce37f072e8a2feb4947ad..3c01d95e7d3a37a14f32daaa20ed823e3989211b 100644 (file)
--- a/dict.el
+++ b/dict.el
@@ -252,7 +252,8 @@ option to it first."
 
 (defun dict-read-word ()
   "Prompt for a word defined in the dictionary server."
-  (let* ((completion-ignore-case t)
+  (let* ((enable-recursive-minibuffers t)
+         (completion-ignore-case t)
          (word-at-point (thing-at-point 'word t))
          (default (car (dict-match-word word-at-point))))
     (completing-read (format-prompt "Word" default)