mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* viper-cmd.el (viper-exec-change): Use push-mark not set-mark.

Browse Source 
Fixes: debbugs:9810
This commit is contained in:
Chong Yidong 2011-10-30 11:39:11 +08:00
parent 2d197ffbe2
commit 30b65d9ce6
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-30 Chong Yidong <cyd@gnu.org>
* emulation/viper-cmd.el (viper-exec-change): Use push-mark
instead of set-mark (Bug#9810).
2011-10-30 Chong Yidong <cyd@gnu.org>
* window.el (split-window-below, split-window-right): Rename from

5
lisp/emulation/viper-cmd.el
View File

@ -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)