From da3c2edde8026fb58e756a85932344f028043acf Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 3 Sep 2021 18:49:22 -0500 Subject: Fix bug in loading --- init.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index 8cbd75d..cb8d41e 100644 --- a/init.el +++ b/init.el @@ -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) -- cgit 1.4.1-21-gabe81