mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Michael Kifer 1995-08-20 04:31:46 +00:00
parent c9dd7f74f6
commit dd7c19d492
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emulation/viper-util.el
View File

@ -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))