about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/init.el b/init.el index 6eaab7b..08f99b8 100644 --- a/init.el +++ b/init.el
@@ -1654,16 +1654,17 @@ successive invocations."
1654 ;; I don't use paredit-splice-sexp much, and it stomps on isearch. 1654 ;; I don't use paredit-splice-sexp much, and it stomps on isearch.
1655 (:unbind "M-s") 1655 (:unbind "M-s")
1656 1656
1657 (defun setup-paredit-mode () 1657 (defun paredit@setup ()
1658 "Correct weirdnesses and set up paredit mode." 1658 "Correct weirdnesses and set up paredit mode."
1659 (paredit-mode +1) 1659 (:with-map lisp-mode-shared-map
1660 (let ((map lisp-mode-shared-map)) 1660 (:bind "DEL" paredit-backward-delete
1661 (define-key map (kbd "DEL") #'paredit-backward-delete) 1661 "C-M-;" comment-or-uncomment-sexp
1662 (define-key map (kbd "C-M-;") #'comment-or-uncomment-sexp))) 1662 "C-<backspace>" paredit-backward-kill-word))
1663 (paredit-mode +1))
1663 1664
1664 (dolist (mode lispy-modes) 1665 (dolist (mode lispy-modes)
1665 (add-hook (intern (concat (symbol-name mode) "-hook")) 1666 (add-hook (intern (concat (symbol-name mode) "-hook"))
1666 #'setup-paredit-mode)) 1667 #'paredit@setup))
1667 1668
1668 (require 'eldoc) 1669 (require 'eldoc)
1669 (eldoc-add-command 'paredit-backward-delete 'paredit-close-round)) 1670 (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))