From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 9 Feb 2024 10:41:12 +0000 (+0100)
Subject: Add minibuffer history to 'C-x /' in minibuffer
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c649b78eac5ac4d66ec9f69fb4804f0bd581eb70;p=emacs.git

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 daee432b04d..7045c37633e 100644
--- 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)