[elpa] externals/consult 5aa1898bb1 2/5: Share consult--line/line-multi/keep-lines-history

[ELPA Syncer]

branch: externals/consult
commit 5aa1898bb1ebab6f77848677cae7a19298c02682
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Share consult--line/line-multi/keep-lines-history
---
 consult.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index c2092e86f4..d372cf109f 100644
--- a/consult.el
+++ b/consult.el
@@ -478,13 +478,11 @@ Used by `consult-completion-in-region', `consult-yank' 
and `consult-history'.")
 
 ;;;; Input history variables
 
-(defvar consult--keep-lines-history nil)
 (defvar consult--path-history nil)
 (defvar consult--grep-history nil)
 (defvar consult--find-history nil)
 (defvar consult--man-history nil)
 (defvar consult--line-history nil)
-(defvar consult--line-multi-history nil)
 (defvar consult--theme-history nil)
 (defvar consult--minor-mode-menu-history nil)
 (defvar consult--buffer-history nil)
@@ -3427,7 +3425,7 @@ to `consult--buffer-query'."
      :add-history (mapcar #'consult--async-split-initial
                           (delq nil (list (thing-at-point 'symbol)
                                           isearch-string)))
-     :history '(:input consult--line-multi-history)
+     :history '(:input consult--line-history)
      :lookup #'consult--line-multi-match
      ;; Add `isearch-string' as initial input if starting from Isearch
      :initial (consult--async-split-initial
@@ -3551,7 +3549,7 @@ INITIAL is the initial input."
            (consult--prompt
             :prompt "Keep lines: "
             :initial initial
-            :history 'consult--keep-lines-history
+            :history 'consult--line-history
             :state (consult--keep-lines-state filter))))
       (setq buffer-read-only ro))))
 
@@ -3668,7 +3666,7 @@ INITIAL is the initial input."
           "Focus on lines (RET to reveal): "
         "Focus on lines: ")
       :initial initial
-      :history 'consult--keep-lines-history
+      :history 'consult--line-history
       :state (consult--focus-lines-state filter)))))
 
 ;;;;; Command: consult-goto-line