Replace delete-backward-char Lisp calls in Viper (Bug#6552).

* emulation/viper-cmd.el (viper-delete-backward-char)
(viper-del-backward-char-in-insert)
(viper-del-backward-char-in-replace, viper-change)
(viper-backward-indent): Replace delete-backward-char with
delete-char (Bug#6552).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ea4ac6079706c2f82811f8d93d78bf23174e49e2..90d1260b9981c69df98d53ab95af8ab6fda98f69 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-07-02  Chong Yidong  <cyd@stupidchicken.com>
+
+       * emulation/viper-cmd.el (viper-delete-backward-char)
+       (viper-del-backward-char-in-insert)
+       (viper-del-backward-char-in-replace, viper-change)
+       (viper-backward-indent): Replace delete-backward-char with
+       delete-char (Bug#6552).
+
 2010-07-01  Chong Yidong  <cyd@stupidchicken.com>
 
        * ruler-mode.el (ruler--save-header-line-format): Fix typos.

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 8c216d9aca60a46bfc70db4f4551df654d7fe70a..602b442a04597f8a821b365b2db78ac857fa502f 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -4247,7 +4247,7 @@ Null string will repeat previous search."
          (setq viper-use-register nil)))
     (if (and (bolp) viper-ex-style-editing)
        (ding))
-    (delete-backward-char val t)))
+    (delete-char (- val) t)))
 
 
 (defun viper-del-backward-char-in-insert ()
@@ -4256,7 +4256,7 @@ Null string will repeat previous search."
   (if (and viper-ex-style-editing (bolp))
       (beep 1)
     ;; don't put on kill ring
-    (delete-backward-char 1 nil)))
+    (delete-char -1 nil)))
 
 
 (defun viper-del-backward-char-in-replace ()
@@ -4269,14 +4269,14 @@ cursor move past the beginning of line."
   (cond (viper-delete-backwards-in-replace
         (cond ((not (bolp))
                ;; don't put on kill ring
-               (delete-backward-char 1 nil))
+               (delete-char -1 nil))
               (viper-ex-style-editing
                (beep 1))
               ((bobp)
                (beep 1))
               (t
                ;; don't put on kill ring
-               (delete-backward-char 1 nil))))
+               (delete-char -1 nil))))
        (viper-ex-style-editing
         (if (bolp)
             (beep 1)
@@ -4344,7 +4344,7 @@ cursor move past the beginning of line."
            (insert-before-markers "@") ; put placeholder after the TAB
            (untabify (viper-replace-start) (point))
            ;; del @, don't put on kill ring
-           (delete-backward-char 1)
+           (delete-char -1)
 
            (viper-set-replace-overlay-glyphs
             viper-replace-region-start-delimiter
@@ -4622,7 +4622,7 @@ One can use `` and '' to temporarily jump 1 step back."
            (progn
              (if (eq ?^ (preceding-char))
                  (setq viper-preserve-indent t))
-             (delete-backward-char 1)
+             (delete-char -1)
              (setq p (point))
              (setq indent nil)))
        (save-excursion