diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-07-02 10:09:36 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-07-02 10:09:36 -0400 |
| commit | 23640f8fadea5c830fa356cea7bea88ffc045bde (patch) | |
| tree | 0f695975ce206762357ba6f44c8db0d82b106668 /lisp | |
| parent | 4f15a3709165621d5628ff3aae927e0bbb1c42cf (diff) | |
| download | emacs-23640f8fadea5c830fa356cea7bea88ffc045bde.tar.gz | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | 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 <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 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 |