feature/minibuffer-completion-enhancements bc5c729d69f 33/35: ; (crm-change-separator): Enable recursive minibuffers.

[Eshel Yaron]

branch: feature/minibuffer-completion-enhancements
commit bc5c729d69ff334f35fc56d6444445dd4f116cff
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; (crm-change-separator): Enable recursive minibuffers.
---
 lisp/emacs-lisp/crm.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index f9a2a1f049c..ebea8b060e1 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -183,9 +183,10 @@ old `crm-separator' in the current minibuffer contents 
with REP.
 Interactively, prompt for SEP.  With a prefix argument, prompt
 for REP as well."
   (interactive
-   (let ((sep (read-regexp
-               (format-prompt "New separator" crm-current-separator)
-               crm-current-separator)))
+   (let* ((enable-recursive-minibuffers t)
+          (sep (read-regexp
+                (format-prompt "New separator" crm-current-separator)
+                crm-current-separator)))
      (list sep
            (when current-prefix-arg
              (read-string-matching sep "Replace existing separators with: "))))