From: Amin Bandali Date: Sun, 16 May 2021 00:48:32 +0000 (-0400) Subject: fix "M-r" binding for eshell history completion X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/4a102022bba2f081c58d6814a8795a898d80a8c3?ds=sidebyside fix "M-r" binding for eshell history completion --- diff --git a/.emacs.d/lisp/bandali-eshell.el b/.emacs.d/lisp/bandali-eshell.el index 820dc05..574d8e1 100644 --- a/.emacs.d/lisp/bandali-eshell.el +++ b/.emacs.d/lisp/bandali-eshell.el @@ -59,6 +59,10 @@ (let ((inhibit-read-only t)) (erase-buffer)) (eshell-send-input)) + (defun b/eshell-history () + (interactive) + (completing-read "Eshell history: " + (ring-elements eshell-history-ring))) (defun b/eshell-setup () (make-local-variable 'company-idle-delay) (defvar company-idle-delay) @@ -71,12 +75,8 @@ #'b/eshell-quit-or-delete-char) (define-key eshell-mode-map (kbd "C-S-l") #'b/eshell-clear) - (define-key eshell-mode-map (kbd "M-r") - #'counsel-esh-history) - ;; (define-key eshell-mode-map [tab] - ;; #'company-complete) (define-key eshell-hist-mode-map (kbd "M-r") - #'counsel-esh-history))) + #'b/eshell-history))) ;; global key bindings (global-set-key (kbd "C-c a s e") #'eshell) ;; hooks