mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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).
This commit is contained in:
Chong Yidong 2010-07-02 10:09:36 -04:00
parent 4f15a37091
commit 23640f8fad
2 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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.

12
lisp/emulation/viper-cmd.el
View file

@ -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