[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100690: Replace delete-backward-char
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100690: Replace delete-backward-char Lisp calls in Viper (Bug#6552). |
Date: |
Fri, 02 Jul 2010 10:09:36 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100690: Replace delete-backward-char Lisp calls in Viper (Bug#6552).,
Chong Yidong <=