From 23640f8fadea5c830fa356cea7bea88ffc045bde Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 2 Jul 2010 10:09:36 -0400 Subject: [PATCH] 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). --- lisp/ChangeLog | 8 ++++++++ lisp/emulation/viper-cmd.el | 12 ++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ea4ac607970..90d1260b998 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2010-07-02 Chong Yidong + + * 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 * 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 8c216d9aca6..602b442a045 100644 --- 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 -- 2.39.2