# HG changeset patch
# User Michael Kifer <kifer@cs.stonybrook.edu>
# Date 808893106 0
# Node ID e0dfd3c3837eeb831a78ee06678fd14a8c2fd5f2
# Parent  e5d4ba91148f947eab13221d9f233009bc8a7040
(vip-leave-region-active): new function.

diff -r e5d4ba91148f -r e0dfd3c3837e lisp/emulation/viper-util.el
--- a/lisp/emulation/viper-util.el	Sun Aug 20 04:30:48 1995 +0000
+++ b/lisp/emulation/viper-util.el	Sun Aug 20 04:31:46 1995 +0000
@@ -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 @@
 
 ;;; 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))