diff options
| author | Chong Yidong <cyd@gnu.org> | 2011-10-30 11:39:11 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2011-10-30 11:39:11 +0800 |
| commit | 30b65d9ce6d45ee306d090a6c23467f3e7075a4c (patch) | |
| tree | 02503497696f11557d84063fc6278de67dbd8103 /lisp/emulation/viper-cmd.el | |
| parent | 2d197ffbe2029b479802528eeaec714df4c8a8f6 (diff) | |
| download | emacs-30b65d9ce6d45ee306d090a6c23467f3e7075a4c.tar.gz emacs-30b65d9ce6d45ee306d090a6c23467f3e7075a4c.tar.bz2 emacs-30b65d9ce6d45ee306d090a6c23467f3e7075a4c.zip | |
* viper-cmd.el (viper-exec-change): Use push-mark not set-mark.
Fixes: debbugs:9810
Diffstat (limited to 'lisp/emulation/viper-cmd.el')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 9d0eb6c0d14..359b3ff751d 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -1387,7 +1387,7 @@ as a Meta key and any number of multiple escapes are allowed." (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 @@ as a Meta key and any number of multiple escapes are allowed." (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) |