Mercurial > emacs
changeset 12899:e0dfd3c3837e
(vip-leave-region-active): new function.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sun, 20 Aug 1995 04:31:46 +0000 |
| parents | e5d4ba91148f |
| children | 7a7b8d42bdec |
| files | lisp/emulation/viper-util.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))