diff options
| author | Case Duckworth | 2021-08-30 16:37:02 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-30 16:37:02 -0500 |
| commit | 323a5525d5936485839eaee35630550128b3001e (patch) | |
| tree | 2d339330d9d1fb5ce8022bc22bef77d001609546 /init.el | |
| parent | Enable olivetti-mode in org-mode (diff) | |
| download | emacs-323a5525d5936485839eaee35630550128b3001e.tar.gz emacs-323a5525d5936485839eaee35630550128b3001e.zip | |
Add C-<backspace> to paredit
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 13 |
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)) |