Lines Matching +defs:describe +defs:key
40 (defvar viper--key-maps)
41 (defvar viper--intercept-key-maps)
230 (memq (viper-event-key last-command-event)
420 (define-key viper-insert-basic-map "\C-m" 'viper-autoindent)
423 (define-key viper-insert-basic-map "\C-j" nil)
425 (define-key viper-insert-basic-map "\C-j" 'viper-autoindent)))
426 (define-key viper-insert-basic-map "\C-m" nil)
427 (define-key viper-insert-basic-map "\C-j" nil))
434 (define-key viper-insert-basic-map "\C-h" 'help-command)
435 (define-key viper-replace-map "\C-h" 'help-command))
436 (define-key viper-insert-basic-map
438 (define-key viper-replace-map
441 (define-key viper-insert-basic-map
443 (define-key viper-replace-map
449 (define-key viper-vi-basic-map "\C-h" 'help-command)
450 (define-key viper-vi-basic-map "\C-h" 'viper-backward-char))
452 (define-key viper-vi-basic-map [backspace] 'viper-backward-char))
460 (setq viper--intercept-key-maps
466 (setq viper--key-maps
523 (append viper--intercept-key-maps viper--key-maps)
769 ;;(let (com key prefix-arg)
770 (let (com key)
784 (key-binding (setq key (viper-read-key-sequence nil))))
789 (while (vectorp com) (setq com (key-binding com))))
801 ;; XEmacs represents key sequences as vectors
803 (viper-copy-event (viper-seq-last-elt key))
807 (viper-copy-event (viper-seq-last-elt key))
844 ;; key translation. (Such left-overs are possible if the user
845 ;; types a regular key.)
889 (setq ch (aref (read-key-sequence nil) 0))
894 (setq ch (aref (read-key-sequence nil) 0)))
898 (setq ch (aref (read-key-sequence nil) 0))
907 (setq ch (aref (read-key-sequence nil) 0))
961 (defun viper-exec-key-in-emacs (arg)
994 "Emulate ESC key in Emacs.
1000 a Meta key in this case. When viper-no-multiple-ESC is nil, ESC functions
1001 as a Meta key and any number of multiple escapes is allowed."
1010 (if (= char (string-to-char viper-ESC-key))
1016 (defun viper-alternate-Meta-key (arg)
1017 "Simulate Emacs Meta key."
1022 (defun viper-toggle-key-action ()
1023 "Action bound to `viper-toggle-key'."
1025 (if (and (< viper-expert-level 2) (equal viper-toggle-key "\C-z"))
1036 ;; Check if last key was ESC and if so try to reread it as a function key.
1039 (defun viper-envelop-ESC-key ()
1055 (setq keyseq (read-key-sequence nil 'continue-echo))
1059 ;; In XEmacs we check for events that are keypress meta-key
1060 ;; and convert them into [escape key]
1065 ;; If ESC is not the first one, then the key sequence
1066 ;; entered was apparently translated into a function key or
1068 ;; (define-key function-key-map "\e[192z" [f11])
1070 ;; f11 in an xterm window into the symbolic key f11.
1072 ;; If `first-key' is not an ESC event, we make it into the
1073 ;; last-command-event in order to pretend that this key was
1079 (let* ((first-key (elt keyseq 0))
1080 (key-mod (event-modifiers first-key)))
1081 (cond ((and (viper-ESC-event-p first-key)
1084 ;; and return ESC as the key-sequence
1091 (key-press-event-p first-key)
1092 (equal '(meta) key-mod))
1095 (character-to-event (event-key first-key)))
1099 ((eventp first-key)
1101 (viper-copy-event first-key)))
1108 (setq keyseq (read-key-sequence nil))
1116 ;; Listen to ESC key.
1118 ;; interpret these keys in Emacs mode, so ESC won't be interpreted as a Vi key.
1119 (defun viper-intercept-ESC-key ()
1120 "Function that implements ESC key in Viper emulation of Vi."
1122 (let ((cmd (or (key-binding (viper-envelop-ESC-key))
1126 ;; or the key bound to the ESC sequence (if the sequence was issued
1128 (if (eq cmd 'viper-intercept-ESC-key)
1195 (viper-describe-arg prefix-arg)
1223 `(key-binding (char-to-string ,event-char))))
1273 ;; and if `char' is `?', we describe the arg; otherwise
1278 (viper-describe-arg cmd-info)
1290 `(key-binding (char-to-string ,char)))))
1335 (defun viper-describe-arg (arg)
1724 "`viper-repeat-from-history' must be invoked as a Vi macro bound to `<key><digit>'")))
1735 ;; The hash-command. It is invoked interactively by the key sequence #<char>.
1932 In minibuffer, this command executes whatever the invocation key is bound
2141 (setq command (local-key-binding (char-to-string last-command-char)))
2175 found key cmd suff)
2195 (key-binding (setq key (read-key-sequence nil))))
2198 (insert (events-to-keys key)) ; xemacs
2199 (insert key) ; emacs
2589 (if (eq this-command 'viper-intercept-ESC-key)
2592 (setq com (key-binding (viper-read-key-sequence nil))))
2613 (setq com (key-binding (read-key-sequence nil)))
4035 (define-key viper-vi-basic-map
4289 If `viper-delete-backwards-in-replace' is t, then DEL key actually deletes
4819 (global-set-key ; in emacs-state
4820 viper-toggle-key
5048 'viper-ESC-key