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
b380fdf4
Commit
b380fdf4
authored
Dec 04, 1999
by
Michael Kifer
Browse files
* viper-cmd.el (viper-change-state): Use
viper-ESC-moves-cursor-back to decide whether to move the cursor back.
parent
40afb967
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
23 additions
and
15 deletions
+23
-15
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/emulation/viper-cmd.el
lisp/emulation/viper-cmd.el
+17
-15
No files found.
lisp/ChangeLog
View file @
b380fdf4
1999-12-04 Michael Kifer <kifer@cs.sunysb.edu>
* viper-cmd.el (viper-change-state): Use
viper-ESC-moves-cursor-back to decide whether to move the cursor
back.
1999-12-03 Kenichi Handa <handa@mule.m17n.org>
* international/mule-util.el (truncate-string-to-width): Docsting
...
...
lisp/emulation/viper-cmd.el
View file @
b380fdf4
...
...
@@ -224,6 +224,22 @@
(
control
n
)
(
control
p
)
(
control
f
)
(
control
b
)))
(
viper-restore-cursor-color
'after-replace-mode
)))
;; Make sure we don't delete more than needed.
;; This is executed at viper-last-posn-in-replace-region
(
defsubst
viper-trim-replace-chars-to-delete-if-necessary
()
(
setq
viper-replace-chars-to-delete
(
max
0
(
min
viper-replace-chars-to-delete
;; Don't delete more than to the end of repl overlay
(
viper-chars-in-region
(
viper-replace-end
)
viper-last-posn-in-replace-region
)
;; point is viper-last-posn-in-replace-region now
;; So, this limits deletion to the end of line
(
viper-chars-in-region
(
point
)
(
viper-line-pos
'end
))
))))
(
defun
viper-replace-state-post-command-sentinel
()
;; Restoring cursor color is needed despite
;; viper-replace-state-pre-command-sentinel: When one jumps to another buffer
...
...
@@ -316,7 +332,7 @@
(
viper-push-onto-ring
viper-last-insertion
'viper-insertion-ring
))
(
if
viper-
ex-style-editing
(
if
viper-
ESC-moves-cursor-back
(
or
(
bolp
)
(
backward-char
1
))))
))
...
...
@@ -2235,20 +2251,6 @@ problems."
)))
;; Make sure we don't delete more than needed.
;; This is executed at viper-last-posn-in-replace-region
(
defsubst
viper-trim-replace-chars-to-delete-if-necessary
()
(
setq
viper-replace-chars-to-delete
(
max
0
(
min
viper-replace-chars-to-delete
;; Don't delete more than to the end of repl overlay
(
viper-chars-in-region
(
viper-replace-end
)
viper-last-posn-in-replace-region
)
;; point is viper-last-posn-in-replace-region now
;; So, this limits deletion to the end of line
(
viper-chars-in-region
(
point
)
(
viper-line-pos
'end
))
))))
;; Delete stuff between viper-last-posn-in-replace-region and the end of
;; viper-replace-overlay-marker, if viper-last-posn-in-replace-region is within
...
...
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