[elpa] externals/orderless 9218343171 043/204: Add command to temporarily change separator

[ELPA Syncer]

branch: externals/orderless
commit 92183431712f94b042c6b6caba2b6c2415db3c66
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Add command to temporarily change separator
---
 README.org   | 10 ++++++++++
 orderless.el | 20 ++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/README.org b/README.org
index f60df15765..758a3a62fb 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 67f71a7e16..0d5bbddd94 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