[Emacs-diffs] /srv/bzr/emacs/trunk r100690: Replace delete-backward-char Lisp calls in Viper (Bug#6552).

[Chong Yidong]

------------------------------------------------------------
revno: 100690
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2010-07-02 10:09:36 -0400
message:
  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).
modified:
  lisp/ChangeLog
  lisp/emulation/viper-cmd.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-01 05:32:01 +0000
+++ b/lisp/ChangeLog    2010-07-02 14:09:36 +0000
@@ -1,3 +1,11 @@
+2010-07-02  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * ruler-mode.el (ruler--save-header-line-format): Fix typos.

=== modified file 'lisp/emulation/viper-cmd.el'
--- a/lisp/emulation/viper-cmd.el       2010-01-18 04:39:40 +0000
+++ b/lisp/emulation/viper-cmd.el       2010-07-02 14:09:36 +0000
@@ -4247,7 +4247,7 @@
          (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 @@
   (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 @@
   (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 @@
            (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 @@
            (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