From 84cba667c3ddb37b0ebf63631609b5378c954552 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Mon, 30 Sep 2024 15:55:39 +0100 Subject: Make C-s scroll through consult-line history --- .emacs.d/lisp/init-minibuffer.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to '.emacs.d') diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index a1d29ef..c8a3e32 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -342,6 +342,12 @@ DEFS is a plist associating completion categories to commands." (add-to-list 'consult-mode-histories '(cider-repl-mode cider-repl-input-history)) + (defvar consult-line-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-s" #'previous-history-element) + map)) + (consult-customize consult-line :keymap consult-line-map) + (defun consult-ripgrep-auto-preview (&optional dir initial) (interactive "P") (consult-ripgrep dir initial)) -- cgit 1.4.1-2-gfad0