; (crm-change-separator): Enable recursive minibuffers.

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index f9a2a1f049c864a998c9944fcb5b9a8433b1194e..ebea8b060e16e73a2a7133cb2bcdb2d371aa33f6 100644 (file)
--- 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: "))))