[Emacs-diffs] /srv/bzr/emacs/trunk r106242: * viper-cmd.el (viper-exec-change): Use push-mark not set-mark.

[Chong Yidong]

------------------------------------------------------------
revno: 106242
fixes bug(s): http://debbugs.gnu.org/9810
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-10-30 11:39:11 +0800
message:
  * viper-cmd.el (viper-exec-change): Use push-mark not set-mark.
modified:
  lisp/ChangeLog
  lisp/emulation/viper-cmd.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-30 01:56:03 +0000
+++ b/lisp/ChangeLog    2011-10-30 03:39:11 +0000
@@ -1,5 +1,10 @@
 2011-10-30  Chong Yidong  <address@hidden>
 
+       * emulation/viper-cmd.el (viper-exec-change): Use push-mark
+       instead of set-mark (Bug#9810).
+
+2011-10-30  Chong Yidong  <address@hidden>
+
        * window.el (split-window-below, split-window-right): Rename from
        split-window-above-each-other and split-window-side-by-side
        respectively.  All callers changed.

=== modified file 'lisp/emulation/viper-cmd.el'
--- a/lisp/emulation/viper-cmd.el       2011-07-09 19:32:42 +0000
+++ b/lisp/emulation/viper-cmd.el       2011-10-30 03:39:11 +0000
@@ -1387,7 +1387,7 @@
        (insert " ")(backward-char 1)))
   (if (= viper-com-point (point))
       (viper-forward-char-carefully))
-  (set-mark viper-com-point)
+  (push-mark viper-com-point)
   (if (eq m-com 'viper-next-line-at-bol)
       (viper-enlarge-region (mark t) (point)))
   (if (< (point) (mark t))
@@ -1396,8 +1396,7 @@
       (viper-backward-char-carefully)) ; give back the newline
   (if (eq viper-intermediate-command 'viper-repeat)
       (viper-change-subr (mark t) (point))
-    (viper-change (mark t) (point))
-    ))
+    (viper-change (mark t) (point))))
 
 ;; this is invoked by viper-substitute-line
 (defun viper-exec-Change (m-com com)