1

Add thing-at-point bind for consult-line

This commit is contained in:
Jessie Hildebrandt 2023-02-05 00:17:41 -05:00
parent 5cdd6943d2
commit 6e8df130f4

View File

@ -927,6 +927,9 @@ DOCSTRING is an optional form that is discarded upon expansion."
(eval-after-load 'esh-mode (lambda () (eval-after-load 'esh-mode (lambda ()
(bind-key "C-r" #'consult-history 'eshell-mode-map))) (bind-key "C-r" #'consult-history 'eshell-mode-map)))
:bind :bind
("M-C-s" . (lambda ()
(interactive)
(consult-line (thing-at-point 'symbol))))
("M-s l" . consult-line) ("M-s l" . consult-line)
("M-s L" . consult-line-multi) ("M-s L" . consult-line-multi)
("C-S-s" . consult-line-multi) ("C-S-s" . consult-line-multi)