From d226a50061a5033846ae819472e3c86fb54cc5f1 Mon Sep 17 00:00:00 2001 From: James Nguyen Date: Tue, 6 Aug 2019 19:14:31 -0700 Subject: [PATCH] Use separate function for evil-delete-backward-char-and-join (#244) --- evil-collection-hungry-delete.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/evil-collection-hungry-delete.el b/evil-collection-hungry-delete.el index 49d5cff..8612fac 100644 --- a/evil-collection-hungry-delete.el +++ b/evil-collection-hungry-delete.el @@ -41,13 +41,22 @@ (hungry-delete-backward 1) (apply f args))) +(defun evil-collection-hungry-delete-for-join (f &rest args) + "Wrapper function to run `hungry-delete-backward' if +`hungry-delete-mode' is on." + (interactive) + (if (and (bound-and-true-p hungry-delete-mode) + (fboundp 'hungry-delete-backward)) + (hungry-delete-backward 1) + (funcall f args))) + ;;;###autoload (defun evil-collection-hungry-delete-setup () "Set up `evil' bindings for `hungry-delete'." (advice-add 'evil-delete-backward-char :around #'evil-collection-hungry-delete) (advice-add 'evil-delete-backward-char-and-join - :around #'evil-collection-hungry-delete)) + :around #'evil-collection-hungry-delete-for-join)) (provide 'evil-collection-hungry-delete) ;;; evil-collection-hungry-delete.el ends here