# HG changeset patch # User Michael Kifer <kifer@cs.stonybrook.edu> # Date 836188491 0 # Node ID fadc581e380e5039e8f71974f6b4503a6081d71b # Parent e369d2f12bc790792f66b871d65ac2e7e0386bf7 (vip-read-key): inhibit quit added. diff -r e369d2f12bc7 -r fadc581e380e lisp/emulation/viper-util.el --- a/lisp/emulation/viper-util.el Sun Jun 30 18:19:19 1996 +0000 +++ b/lisp/emulation/viper-util.el Mon Jul 01 02:34:51 1996 +0000 @@ -194,7 +194,10 @@ (eq (device-class (selected-device)) 'color))) (defsubst vip-get-cursor-color () - (cdr (assoc 'cursor-color (frame-parameters)))) + (if vip-emacs-p + (cdr (assoc 'cursor-color (frame-parameters))) + (color-instance-name (frame-property (selected-frame) 'cursor-color)))) + ;; OS/2 (cond ((eq (vip-device-type) 'pm) @@ -934,15 +937,17 @@ ;; This function lets function-key-map convert key sequences into logical ;; keys. This does a better job than vip-read-event when it comes to kbd -;; macros, since it enables certain macros to be shared between X and TTY -;; modes. +;; macros, since it enables certain macros to be shared between X and TTY modes +;; by correctly mapping key sequences for Left/Right/... (one an ascii +;; terminal) into logical keys left, right, etc. (defun vip-read-key () (let ((overriding-local-map vip-overriding-map) + (inhibit-quit t) key) (use-global-map vip-overriding-map) (setq key (elt (read-key-sequence nil) 0)) (use-global-map global-map) - key)) + key)) ;; Emacs has a bug in eventp, which causes (eventp nil) to return (nil)