emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 9fb5111066 5/5: Keep separate history for consu


From: ELPA Syncer
Subject: [elpa] externals/consult 9fb5111066 5/5: Keep separate history for consult-line-multi
Date: Mon, 27 Nov 2023 18:57:33 -0500 (EST)

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

    Keep separate history for consult-line-multi
---
 CHANGELOG.org | 3 +--
 consult.el    | 3 ++-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 10fa1a35be..80368ff161 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -20,8 +20,7 @@
 - Save input history even when using =embark-export= or when aborting from a
   command via C-g. This change affects commands like =consult-line= and
   =consult-grep=.
-- Unify history of =consult-line=, =consult-line-multi=, =consult-keep-lines= 
and
-  =consult-focus-lines=.
+- Unify history of =consult-line=, =consult-keep-lines= and 
=consult-focus-lines=.
 
 * Version 0.35 (2023-07-02)
 
diff --git a/consult.el b/consult.el
index 69cdb59147..9aff744516 100644
--- a/consult.el
+++ b/consult.el
@@ -483,6 +483,7 @@ Used by `consult-completion-in-region', `consult-yank' and 
`consult-history'.")
 (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)
@@ -3425,7 +3426,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-history)
+     :history '(:input consult--line-multi-history)
      :lookup #'consult--line-multi-match
      ;; Add `isearch-string' as initial input if starting from Isearch
      :initial (consult--async-split-initial



reply via email to

[Prev in Thread] Current Thread [Next in Thread]