From 98fd6e5c81691a7ede648a0b283594195c80e991 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Tue, 19 Feb 2019 13:32:41 +0100 Subject: [PATCH] Helm/SLIME: Bind "M-s f" to helm-comint-input-ring --- .emacs.d/lisp/init-helm.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.emacs.d/lisp/init-helm.el b/.emacs.d/lisp/init-helm.el index e4a0b87a..dc23d913 100644 --- a/.emacs.d/lisp/init-helm.el +++ b/.emacs.d/lisp/init-helm.el @@ -154,6 +154,8 @@ (add-hook 'slime-repl-mode-hook 'company-mode)) (defun ambrevar/helm/slime-set-keys () (define-key slime-repl-mode-map (kbd "M-p") 'helm-slime-repl-history) + (define-key slime-repl-mode-map (kbd "M-s") nil) + (define-key slime-repl-mode-map (kbd "M-s f") 'helm-comint-input-ring) (define-key slime-autodoc-mode-map (kbd "C-c C-d C-a") 'helm-slime-apropos) (define-key slime-repl-mode-map (kbd "C-c C-x c") 'helm-slime-list-connections) (define-key slime-mode-map (kbd "M-") 'helm-slime-complete)