Add minibuffer history to 'C-x /' in minibuffer

* lisp/minibuffer.el (minibuffer-completion-styles-history): New var.
(minibuffer-set-completion-styles): Use it.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index daee432b04d4f96c08dfda013d2082c1a86ffe0b..7045c37633ee33ef3254f4637d4a4f0bacd150a5 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2771,6 +2771,9 @@ current order instead."
                "")))
      names)))
 
+(defvar minibuffer-completion-styles-history nil
+  "Minibuffer history list for `minibuffer-set-completion-styles'.")
+
 (defun minibuffer-set-completion-styles (styles)
   "Set the completion styles for the current minibuffer to STYLES.
 
@@ -2814,7 +2817,8 @@ completions list."
                      '((category . completion-style)
                        (affixation-function . completion-styles-affixation)))
                     nil t
-                    (concat (mapconcat #'symbol-name styles ",") ","))))))))
+                    (concat (mapconcat #'symbol-name styles ",") ",")
+                    'minibuffer-completion-styles-history)))))))
    minibuffer-mode)
   (setq-local completion-local-styles styles)
   (when (get-buffer-window "*Completions*" 0)