Lines Matching +defs:key +defs:press
43 ;; * Add `key-binding' widget.
245 (define-key overriding-terminal-local-map " "
256 (define-key map (vector next-digit) function)
264 (define-key map [?\C-g] 'keyboard-quit)
265 (define-key map [t] 'keyboard-quit)
266 (define-key map [?\M-\C-v] 'scroll-other-window)
267 (define-key map [?\M--] 'negative-argument)
283 (setq keys (read-key-sequence title))
285 (lookup-key overriding-terminal-local-map keys t)
859 (define-key map "\t" 'widget-forward)
860 (define-key map "\e\t" 'widget-backward)
861 (define-key map [(shift tab)] 'advertised-widget-backward)
862 (define-key map [backtab] 'widget-backward)
863 (define-key map [down-mouse-2] 'widget-button-click)
864 (define-key map [down-mouse-1] 'widget-button-click)
865 (define-key map "\C-m" 'widget-button-press)
876 (define-key map "\C-k" 'widget-kill-line)
877 (define-key map "\M-\t" 'widget-complete)
878 (define-key map "\C-m" 'widget-field-activate)
881 ;; (define-key map "\C-a" 'widget-beginning-of-line)
882 (define-key map "\C-e" 'widget-end-of-line)
890 ;; (define-key map "\C-a" 'widget-beginning-of-line)
891 (define-key map "\C-e" 'widget-end-of-line)
902 (lookup-key widget-global-map (this-command-keys))))))
933 (catch 'button-press-cancelled
952 ;; button press and do the default mouse-1
967 (throw 'button-press-cancelled t))
1005 (lookup-key widget-global-map [down-mouse-1]))
1008 (lookup-key widget-global-map [mouse-1]))))
1010 (lookup-key widget-global-map [down-mouse-2]))
1013 (lookup-key widget-global-map [mouse-2])))))
1022 (defun widget-button-press (pos &optional event)
1028 (let ((command (lookup-key widget-global-map (this-command-keys))))
1135 (defcustom widget-complete-field (lookup-key global-map "\M-\t")
3206 (defvar widget-key-sequence-prompt-value-history nil
3207 "History of input to `widget-key-sequence-prompt-value'.")
3209 (defvar widget-key-sequence-default-value [ignore]
3210 "Default value for an empty key sequence.")
3212 (defvar widget-key-sequence-map
3215 (define-key map [(control ?q)] 'widget-key-sequence-read-event)
3218 (define-widget 'key-sequence 'restricted-sexp
3219 "A key sequence."
3223 :prompt-history 'widget-key-sequence-prompt-value-history
3227 :validate 'widget-key-sequence-validate
3228 :value-to-internal 'widget-key-sequence-value-to-internal
3229 :value-to-external 'widget-key-sequence-value-to-external
3230 :value widget-key-sequence-default-value
3231 :keymap widget-key-sequence-map
3235 (defun widget-key-sequence-read-event (ev)
3241 (tr (and (keymapp function-key-map)
3242 (lookup-key function-key-map (vector ev)))))
3252 (setq ev (key-description (list ev)))
3254 (setq tr (key-description (list (aref tr 0))))
3259 (insert (key-description (list ev2)) " "))))
3261 (defun widget-key-sequence-validate (widget)
3264 (widget-put widget :error (format "Invalid key sequence: %S"
3268 (defun widget-key-sequence-value-to-internal (widget value)
3270 (if (equal value widget-key-sequence-default-value)
3272 (key-description value))
3275 (defun widget-key-sequence-value-to-external (widget value)
3278 widget-key-sequence-default-value
3512 :key-type '(symbol :tag "Key")
3525 ,(widget-get widget :key-type)
3539 (let (key-type value-type)
3541 (let ((key (nth 0 option)))
3543 (if (listp key)
3544 (setq key-type key)
3545 (setq key-type `(const ,key))))
3546 (setq key-type `(const ,option)
3548 `(group :format "Key: %v" :inline t ,key-type ,value-type)))
3557 :key-type '(sexp :tag "Key")
3570 ,(widget-get widget :key-type)
3584 (let (key-type value-type)
3586 (let ((key (nth 0 option)))
3588 (if (listp key)
3589 (setq key-type key)
3590 (setq key-type `(const ,key))))
3591 (setq key-type `(const ,option)
3593 `(cons :format "Key: %v" ,key-type ,value-type)))