Mercurial > emacs

diff lisp/emulation/viper-util.el @ 16766:beb94a5271e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 28 Dec 1996 02:53:04 +0000
parents 08514f491f33
children 1b06411ccc04
line wrap: on
line diff
--- a/lisp/emulation/viper-util.el	Fri Dec 27 21:12:40 1996 +0000
+++ b/lisp/emulation/viper-util.el	Sat Dec 28 02:53:04 1996 +0000
@@ -249,9 +249,12 @@
 		 (not (string= color vip-replace-overlay-cursor-color)))
 	    (vip-overlay-put vip-replace-overlay 'vip-cursor-color color)))))
 	
-(defsubst vip-restore-cursor-color ()
+;; restore cursor color from replace overlay
+(defsubst vip-restore-cursor-color-after-replace ()
   (vip-change-cursor-color
    (vip-overlay-get vip-replace-overlay 'vip-cursor-color)))
+(defsubst vip-restore-cursor-color-after-insert ()
+  (vip-change-cursor-color vip-saved-cursor-color))
 	 
 
 ;; Check the current version against the major and minor version numbers
@@ -789,7 +792,8 @@
   
 (defsubst vip-hide-replace-overlay ()
   (vip-set-replace-overlay-glyphs nil nil)
-  (vip-restore-cursor-color)
+  (vip-restore-cursor-color-after-replace)
+  (vip-restore-cursor-color-after-insert)
   (if (vip-has-face-support-p)
       (vip-overlay-put vip-replace-overlay 'face nil)))