Mercurial > emacs

changeset 109106:5e3accd3ae49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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).
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 02 Jul 2010 10:09:36 -0400
parents ff4517fe7d0b
children 06fb882320aa
files lisp/ChangeLog lisp/emulation/viper-cmd.el
diffstat 2 files changed, 14 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jul 02 16:10:00 2010 +0300
+++ b/lisp/ChangeLog	Fri Jul 02 10:09:36 2010 -0400
@@ -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.
--- a/lisp/emulation/viper-cmd.el	Fri Jul 02 16:10:00 2010 +0300
+++ b/lisp/emulation/viper-cmd.el	Fri Jul 02 10:09:36 2010 -0400
@@ -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