925 |
)) |
)) |
926 |
|
|
927 |
|
|
|
(defsubst viper-events-to-keys (events) |
|
|
(viper-cond-compile-for-xemacs-or-emacs |
|
|
(events-to-keys events) ; xemacs |
|
|
events ; emacs |
|
|
)) |
|
|
|
|
928 |
|
|
929 |
;; it is suggested that an event must be copied before it is assigned to |
;; it is suggested that an event must be copied before it is assigned to |
930 |
;; last-command-event in XEmacs |
;; last-command-event in XEmacs |
963 |
(elt (listify-key-sequence keyseq) 0))) |
(elt (listify-key-sequence keyseq) 0))) |
964 |
(if (viper-ESC-event-p event) |
(if (viper-ESC-event-p event) |
965 |
(let (unread-command-events) |
(let (unread-command-events) |
|
(viper-set-unread-command-events keyseq) |
|
966 |
(if (viper-fast-keysequence-p) |
(if (viper-fast-keysequence-p) |
967 |
(let ((viper-vi-global-user-minor-mode nil) |
(let ((viper-vi-global-user-minor-mode nil) |
968 |
(viper-vi-local-user-minor-mode nil) |
(viper-vi-local-user-minor-mode nil) |
969 |
|
(viper-vi-intercept-minor-mode nil) |
970 |
|
(viper-insert-intercept-minor-mode nil) |
971 |
(viper-replace-minor-mode nil) ; actually unnecessary |
(viper-replace-minor-mode nil) ; actually unnecessary |
972 |
(viper-insert-global-user-minor-mode nil) |
(viper-insert-global-user-minor-mode nil) |
973 |
(viper-insert-local-user-minor-mode nil)) |
(viper-insert-local-user-minor-mode nil)) |
974 |
(setq keyseq (read-key-sequence prompt continue-echo))) |
;; Note: set unread-command-events only after testing for fast |
975 |
(setq keyseq (read-key-sequence prompt continue-echo))))) |
;; keysequence. Otherwise, viper-fast-keysequence-p will be |
976 |
|
;; always t -- whether there is anything after ESC or not |
977 |
|
(viper-set-unread-command-events keyseq) |
978 |
|
(setq keyseq (read-key-sequence nil))) |
979 |
|
(viper-set-unread-command-events keyseq) |
980 |
|
(setq keyseq (read-key-sequence nil))))) |
981 |
keyseq)) |
keyseq)) |
982 |
|
|
983 |
|
|