Use delete-char instead of backward-delete-char

* lisp/bs.el (bs-delete):
* lisp/dired-aux.el (dired-show-file-type):
* lisp/emulation/viper-cmd.el (viper-insert-prev-from-insertion-ring):
* lisp/man.el (Man-fontify-manpage, Man-cleanup-manpage):
* lisp/net/mailcap.el (mailcap-parse-mailcap):
* lisp/progmodes/antlr-mode.el (antlr-insert-makefile-rules):
* lisp/textmodes/reftex-ref.el (reftex-reference):
* lisp/vc/emerge.el:
* lisp/woman.el (woman-man-buffer):
* test/src/fns-tests.el (fns-tests-hash-buffer):
Replace some calls to backward-delete-char with delete-char (negating
the argument) since the former is intended for interactive use.
This silences most of the interactive-only warnings.

diff --git a/lisp/bs.el b/lisp/bs.el
index 5f31530f0683e2374811e7c43263f6c475b2c719..70868591196abab75e1ece224a25a0431b203c16 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -933,7 +933,7 @@ WHAT is a value of nil, `never', or `always'."
                             (end-of-line)
                             (if (eobp) (point) (1+ (point)))))
     (when (eobp)
-      (backward-delete-char 1)
+      (delete-char -1)
       (beginning-of-line)
       (recenter -1))
     (bs--set-window-height)))

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index c390017e1904714a573ac66ee422af033098416d..6cb097f6bb3f02c9607ceacf2b27c48afce4ef85 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -3730,7 +3730,7 @@ of the target of the link instead."
          (process-file "file" nil t t "-L" "--" file)
        (process-file "file" nil t t "--" file))
       (when (bolp)
-       (backward-delete-char 1))
+       (delete-char -1))
       (message "%s" (buffer-string)))))
 
 \f

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 8cf81c33b5be28059b8567ef3ec912d7bd6ab2d9..ee96d8efac665201ae9666f5d7aa8ca4c956a13d 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -1711,8 +1711,8 @@ to in the global map, instead of cycling through the insertion ring."
          (if (eq viper-current-state 'replace-state)
              (undo 1)
            (if viper-last-inserted-string-from-insertion-ring
-               (backward-delete-char
-                (length viper-last-inserted-string-from-insertion-ring))))
+               (delete-char
+                 (- (length viper-last-inserted-string-from-insertion-ring)))))
          )
       ;;first search through insertion history
       (setq viper-temp-insertion-ring (ring-copy viper-insertion-ring)))

diff --git a/lisp/man.el b/lisp/man.el
index 286edf9314e56355bfdd2e032544b85cead83e01..9f75c07c79137b2aecb6c3b0f67a8ec680489c6f 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1262,21 +1262,21 @@ Same for the ANSI bold and normal escape sequences."
        (progn
          (goto-char (point-min))
          (while (and (search-forward "__\b\b" nil t) (not (eobp)))
-           (backward-delete-char 4)
+           (delete-char -4)
             (put-text-property (point) (1+ (point))
                                'font-lock-face 'Man-underline))
          (goto-char (point-min))
          (while (search-forward "\b\b__" nil t)
-           (backward-delete-char 4)
+           (delete-char -4)
             (put-text-property (1- (point)) (point)
                                'font-lock-face 'Man-underline))))
     (goto-char (point-min))
     (while (and (search-forward "_\b" nil t) (not (eobp)))
-      (backward-delete-char 2)
+      (delete-char -2)
       (put-text-property (point) (1+ (point)) 'font-lock-face 'Man-underline))
     (goto-char (point-min))
     (while (search-forward "\b_" nil t)
-      (backward-delete-char 2)
+      (delete-char -2)
       (put-text-property (1- (point)) (point) 'font-lock-face 'Man-underline))
     (goto-char (point-min))
     (while (re-search-forward "\\(.\\)\\(\b+\\1\\)+" nil t)
@@ -1294,7 +1294,7 @@ Same for the ANSI bold and normal escape sequences."
     ;; condense it to a shorter line interspersed with ^H.  Remove ^H with
     ;; their preceding chars (but don't put Man-overstrike).  (Bug#5566)
     (goto-char (point-min))
-    (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
+    (while (re-search-forward ".\b" nil t) (delete-char -2))
     (goto-char (point-min))
     ;; Try to recognize common forms of cross references.
     (Man-highlight-references)
@@ -1375,9 +1375,9 @@ script would have done them."
   (if (or interactive (not Man-sed-script))
       (progn
        (goto-char (point-min))
-       (while (search-forward "_\b" nil t) (backward-delete-char 2))
+       (while (search-forward "_\b" nil t) (delete-char -2))
        (goto-char (point-min))
-       (while (search-forward "\b_" nil t) (backward-delete-char 2))
+       (while (search-forward "\b_" nil t) (delete-char -2))
        (goto-char (point-min))
        (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
          (replace-match "\\1"))
@@ -1392,7 +1392,7 @@ script would have done them."
   ;; condense it to a shorter line interspersed with ^H.  Remove ^H with
   ;; their preceding chars (but don't put Man-overstrike).  (Bug#5566)
   (goto-char (point-min))
-  (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
+  (while (re-search-forward ".\b" nil t) (delete-char -2))
   (Man-softhyphen-to-minus))
 
 (defun Man-bgproc-filter (process string)

diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el
index 722e98be2fca2464325164165e9201c6e7cd352a..10c5a7744c1573fb82bdea7c4e38929a308d6c68 100644 (file)
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -510,7 +510,7 @@ If SOURCE, mark the entry with this as the source."
          (skip-chars-forward "^;\n")
          ;; skip \;
          (while (eq (char-before) ?\\)
-           (backward-delete-char 1)
+           (delete-char -1)
            (forward-char)
            (skip-chars-forward "^;\n"))
          (if (eq (or (char-after save-pos) 0) ?')

diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 7574ef86a6ebd86f1072adecc6923c17929bfe6f..a54df19425ad830d14d4d548b68776d8856a31b6 100644 (file)
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -2147,7 +2147,7 @@ command `antlr-show-makefile-rules' for detail."
            (antlr-makefile-insert-variable i " $(" ")"))
          (insert "\n" (car antlr-makefile-specification))))
     (if (string-equal (car antlr-makefile-specification) "\n")
-       (backward-delete-char 1))
+       (delete-char -1))
     (when with-error
       (goto-char (point-min))
       (insert antlr-help-unknown-file-text))

diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index 7315c1e1e74719ef591663823ec9e8cb3c9bfcd2..da0779c8e8d666e54902babdcec233ffc4388fa0 100644 (file)
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -495,7 +495,7 @@ When called with 2 \\[universal-argument] prefix args, disable magic word recogn
               sep1 (cdr (assoc sep reftex-multiref-punctuation))
               labels (cdr labels))
         (when cut
-          (backward-delete-char cut)
+          (delete-char (- cut))
           (setq cut nil))
 
         ;; remove ~ if we do already have a space

diff --git a/lisp/vc/emerge.el b/lisp/vc/emerge.el
index de09be80e7c0dd40619b1eb67e9d7f886496446c..e95742b304ac13afe7ed32aee744ef7729a7c9e7 100644 (file)
--- a/lisp/vc/emerge.el
+++ b/lisp/vc/emerge.el
@@ -1299,7 +1299,7 @@ Otherwise, the A or B file present is copied to the output file."
              (setq ancestor-dir-files (cdr ancestor-dir-files))))
        (if output-dir
            (insert "output=" output-dir f "\t"))
-       (backward-delete-char 1)
+       (delete-char -1)
        (insert "\n")))))
 
 ;;; Common setup routines

diff --git a/lisp/woman.el b/lisp/woman.el
index 92cd425d32f69d3dca2083c804e998e7860cc730..24f23c8e8f0c3d767a03c58fdd4f1a7f408b1ae5 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1690,11 +1690,11 @@ Do not call directly!"
       (progn
        (goto-char (point-min))
        (while (search-forward "__\b\b" nil t)
-         (backward-delete-char 4)
+         (delete-char -4)
          (woman-set-face (point) (1+ (point)) 'woman-italic))
        (goto-char (point-min))
        (while (search-forward "\b\b__" nil t)
-         (backward-delete-char 4)
+         (delete-char -4)
          (woman-set-face (1- (point)) (point) 'woman-italic))))
 
   ;; Interpret overprinting to indicate bold face:

diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index e0d6c96b360d128e544ebd16049062a966a2c127..0321b92d0bce20e3f38e2a161a85b41cced753a0 100644 (file)
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -622,7 +622,7 @@
                    (insert "foo")
                    (goto-char 2)
                    (insert " ")
-                   (backward-delete-char 1)
+                   (delete-char -1)
                    (buffer-hash))
                  (sha1 "foo"))))