Add command to temporarily change separator

2 files changed, 30 insertions, 0 deletions

diff --git a/README.org b/README.org
index f60df15..758a3a6 100644
--- a/README.org
+++ b/README.org
@@ -33,6 +33,16 @@ If you are implementing a command for which you know you want a
 different separator for the components, bind
 =orderless-regexp-separator= in a =let= form.
 
+The package also provides a command
+=orderless-temporarily-change-separator= to change it for the rest of
+the current completion session. If you want to use it, bind it to a
+key in a keymap that will be active during your completion session:
+
+- Icomplete users should bind it in =icomplete-minibuffer-map=.
+- Users of the default completion should bind it in both
+  =minibuffer-local-completion-map= and
+  =minibuffer-local-filename-completion-map=.
+
 ** Faces for component matches 
 
 The portions of a candidate matching each component get highlighted in
diff --git a/orderless.el b/orderless.el
index 67f71a7..0d5bbdd 100644
--- a/orderless.el
+++ b/orderless.el
@@ -159,5 +159,25 @@ This function is part of the `orderless' completion style."
             completion-styles-alist
             :test #'equal)
 
+(defvar orderless-old-regexp-separator nil
+  "Stores the old value of `orderless-regexp-separator'.")
+
+(defun orderless--restore-regexp-separator ()
+  "Restore old value of `orderless-regexp-separator'."
+  (when orderless-old-regexp-separator
+    (setq orderless-regexp-separator orderless-old-regexp-separator
+          orderless-old-regexp-separator nil))
+  (remove-hook 'minibuffer-exit-hook #'orderless--restore-regexp-separator))
+
+(defun orderless-temporarily-change-separator (separator)
+  "Change `orderless-regexp-separator' for the current completion session."
+  (interactive
+   (list (let ((enable-recursive-minibuffers t))
+           (read-string "Orderless regexp separator: "))))
+  (unless orderless-old-regexp-separator
+    (setq orderless-old-regexp-separator orderless-regexp-separator))
+  (setq orderless-regexp-separator separator)
+  (add-to-list 'minibuffer-exit-hook #'orderless--restore-regexp-separator))
+
 (provide 'orderless)
 ;;; orderless.el ends here