Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
30b65d9c
Commit
30b65d9c
authored
Oct 30, 2011
by
Chong Yidong
Browse files
* viper-cmd.el (viper-exec-change): Use push-mark not set-mark.
Fixes: debbugs:9810
parent
2d197ffb
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
3 deletions
+7
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emulation/viper-cmd.el
lisp/emulation/viper-cmd.el
+2
-3
No files found.
lisp/ChangeLog
View file @
30b65d9c
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
...
...
lisp/emulation/viper-cmd.el
View file @
30b65d9c
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment