From: Michael Kifer <kifer@cs.stonybrook.edu>
Date: Sun, 20 Aug 1995 04:31:46 +0000 (+0000)
Subject: (vip-leave-region-active): new function.
X-Git-Tag: emacs-19.34~2961
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd7c19d4920312e99cacc05555cd37cf38356554;p=emacs.git

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

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 6b15ca97eb8..b951ee71a3c 100644
--- 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 @@
 
 ;;; 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))