(vip-leave-region-active): new function.

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 6b15ca97eb8ec2f894d0dabfb752041a671d0da1..b951ee71a3ced7860fb33c2ee965ba8d45754465 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -577,6 +577,7 @@
   (vip-change-cursor-color vip-replace-overlay-cursor-color)
   )
   
+
   
 (defsubst vip-hide-replace-overlay ()
   (vip-set-replace-overlay-glyphs nil nil)
@@ -643,7 +644,7 @@
 \f
 ;;; XEmacs compatibility
     
-;; Sit for VAL miliseconds. XEmacs doesn't support the millisecond arg 
+;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg 
 ;; in sit-for, so this function smoothes out the differences.
 (defsubst vip-sit-for-short (val &optional nodisp)
   (if vip-xemacs-p
@@ -675,6 +676,10 @@
       (zmacs-deactivate-region)
     (deactivate-mark)))
 
+(defsubst vip-leave-region-active ()
+  (if vip-xemacs-p
+      (setq zmacs-region-stays t)))
+
     
 (defsubst vip-events-to-keys (events)
   (cond (vip-xemacs-p (events-to-keys events))