[nongnu] elpa/git-commit b926ab0e05 2/2: Use delete-char with negative argument instead of backward-delete-char

[ELPA Syncer]

branch: elpa/git-commit
commit b926ab0e051e497e8ed43754cfd2012d23dbfc4c
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Use delete-char with negative argument instead of backward-delete-char
    
    In Emacs 30 the byte-compiler points out that the latter is only for
    interactive use.
---
 lisp/magit-diff.el   | 2 +-
 lisp/magit-extras.el | 4 ++--
 lisp/magit-log.el    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index c3e13446e4..4fd4844ed6 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -2590,7 +2590,7 @@ or a ref which is not a branch, then it inserts nothing."
                 (magit-rev-insert-format "%B" rev)
                 (magit-revision--wash-message)))
       (if (= (point) (+ beg 2))
-          (progn (backward-delete-char 2)
+          (progn (delete-char -2)
                  (insert "(no message)\n"))
         (goto-char beg)
         (save-excursion
diff --git a/lisp/magit-extras.el b/lisp/magit-extras.el
index 17c41da0a8..ba782cd947 100644
--- a/lisp/magit-extras.el
+++ b/lisp/magit-extras.el
@@ -724,7 +724,7 @@ the minibuffer too."
               (setq pnt-format
                     (string-replace "%N" idx pnt-format)))
             (magit-rev-insert-format pnt-format rev pnt-args)
-            (backward-delete-char 1))
+            (delete-char -1))
           (when eob-format
             (when idx-format
               (setq eob-format
@@ -741,7 +741,7 @@ the minibuffer too."
                   (insert ?\n)))
               (insert ?\n)
               (magit-rev-insert-format eob-format rev eob-args)
-              (backward-delete-char 1)))))
+              (delete-char -1)))))
     (user-error "Revision stack is empty")))
 
 (keymap-set git-commit-mode-map "C-c C-w" #'magit-pop-revision-stack)
diff --git a/lisp/magit-log.el b/lisp/magit-log.el
index 33809a4108..a43b35eea6 100644
--- a/lisp/magit-log.el
+++ b/lisp/magit-log.el
@@ -1363,7 +1363,7 @@ Do not add this to a hook variable."
               (forward-line)
               (magit-insert-heading)
               (re-search-forward "")
-              (backward-delete-char 1)
+              (delete-char -1)
               (forward-char)
               (insert ?\n))
             (delete-char 1))