]> code.delx.au - gnu-emacs/blobdiff - lisp/emulation/viper-ex.el
Merge from emacs-23 branch, up to 2010-05-20T22:16:19Z!juri@jurta.org.
[gnu-emacs] / lisp / emulation / viper-ex.el
index 5f5c7e86d6366acbb9ac70605e1c99edef55f891..9cbaa2b178f7f1a94d44463a4b66363c2bf1d4eb 100644 (file)
@@ -1,9 +1,10 @@
 ;;; viper-ex.el --- functions implementing the Ex commands for Viper
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
 ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
+;; Package: viper
 
 ;; This file is part of GNU Emacs.
 
@@ -750,7 +751,7 @@ reversed."
                          (format "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" c)))
                    (setq cont nil)
                  ;; we are at an escaped delimiter: unescape it and continue
-                 (delete-backward-char 2)
+                 (delete-char -2)
                  (insert c)
                  (if (eolp)
                      ;; if at eol, exit loop and go to next line
@@ -2302,5 +2303,4 @@ Type 'mak ' (including the space) to run make with no args."
 
 
 
-;; arch-tag: 56b80d36-f880-4d10-bd66-85ad91a295db
 ;;; viper-ex.el ends here