Lines Matching +defs:key +defs:re
43 ;; The code started out from `describe-function', `describe-key'
58 (defconst find-function-space-re "\\(?:\\s-\\|\n\\|;.*\n\\)+")
69 find-function-space-re
85 find-function-space-re
98 (concat"^\\s-*(defface" find-function-space-re "%s\\(\\s-\\|$\\)")
181 (unless (re-search-forward
238 (if (or (re-search-forward regexp nil t)
247 (re-search-forward
248 (concat "^([^ ]+" find-function-space-re "['(]?"
470 (defun find-function-on-key (key)
473 (interactive "kFind function on key: ")
476 (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below.
483 ;; to get the right key bindings. And go to the right place
488 (setq defn (key-binding key))))
489 (let ((key-desc (key-description key)))
491 (message "%s is unbound" key-desc)
493 (message "%s runs %s" key-desc (prin1-to-string defn))
514 "Define some key bindings for the find-function family of functions."
515 (define-key ctl-x-map "F" 'find-function)
516 (define-key ctl-x-4-map "F" 'find-function-other-window)
517 (define-key ctl-x-5-map "F" 'find-function-other-frame)
518 (define-key ctl-x-map "K" 'find-function-on-key)
519 (define-key ctl-x-map "V" 'find-variable)
520 (define-key ctl-x-4-map "V" 'find-variable-other-window)
521 (define-key ctl-x-5-map "V" 'find-variable-other-frame))