From c7cca9ecb8a6f2b45f52709ec64d84990802167b Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 2 Nov 2014 00:50:26 -0400 Subject: Don't let paredit clobber M-s map --- lisp/init-elisp.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/init-elisp.el') diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index 862ca06..fa66852 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -10,6 +10,10 @@ (define-key paredit-mode-map (kbd "C-,") 'paredit-forward-slurp-sexp) (define-key paredit-mode-map (kbd "C-.") 'paredit-forward-barf-sexp) (define-key paredit-mode-map (kbd "C-M-,") 'paredit-backward-slurp-sexp) - (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp)) + (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp) + + ;; Don't let `paredit-splice-sexp' override default 'M-s' map. + (define-key paredit-mode-map (kbd "M-s") nil) + (define-key paredit-mode-map (kbd "M-p") 'paredit-splice-sexp)) (provide 'init-elisp) -- cgit v1.2.3