From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 19 Jan 2024 19:02:21 +0000 (+0100)
Subject: ; (crm-change-separator): Enable recursive minibuffers.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Ffeature%2Fminibuffer-completion-enhancements;p=emacs.git

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

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: "))))