acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix bug in loading

This commit is contained in:
Case Duckworth 2021-09-03 18:49:22 -05:00
parent 91b3705311
commit da3c2edde8
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
init.el
View File

@ -1496,19 +1496,21 @@ successive invocations."
"C-c C-d" helpful-at-point))
(setup (:straight hungry-delete)
(define-key paredit-mode-map [remap paredit-backward-delete]
(defun acdw/paredit-hungry-delete-backward (arg)
(interactive "P")
(if (looking-back "[ \t]" 1)
(hungry-delete-backward (or arg 1))
(paredit-backward-delete arg))))
(define-key paredit-mode-map [remap paredit-forward-delete]
(defun acdw/paredit-hungry-delete-forward (arg)
(interactive "P")
(if (looking-at "[ \t]")
(hungry-delete-forward (or arg 1))
(paredit-forward-delete arg))))
(with-eval-after-load 'paredit
(define-key paredit-mode-map [remap paredit-backward-delete]
(defun acdw/paredit-hungry-delete-backward (arg)
(interactive "P")
(if (looking-back "[ \t]" 1)
(hungry-delete-backward (or arg 1))
(paredit-backward-delete arg))))
(define-key paredit-mode-map [remap paredit-forward-delete]
(defun acdw/paredit-hungry-delete-forward (arg)
(interactive "P")
(if (looking-at "[ \t]")
(hungry-delete-forward (or arg 1))
(paredit-forward-delete arg)))))
(:option hungry-delete-chars-to-skip " \t"
hungry-delete-join-reluctantly nil)