From dd7c19d4920312e99cacc05555cd37cf38356554 Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Sun, 20 Aug 1995 04:31:46 +0000 Subject: [PATCH] (vip-leave-region-active): new function. --- lisp/emulation/viper-util.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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)) -- 2.39.2