100 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
101 |
(define-key map " " 'finder-select) |
(define-key map " " 'finder-select) |
102 |
(define-key map "f" 'finder-select) |
(define-key map "f" 'finder-select) |
103 |
|
(define-key map [follow-link] 'mouse-face) |
104 |
(define-key map [mouse-2] 'finder-mouse-select) |
(define-key map [mouse-2] 'finder-mouse-select) |
105 |
(define-key map "\C-m" 'finder-select) |
(define-key map "\C-m" 'finder-select) |
106 |
(define-key map "?" 'finder-summary) |
(define-key map "?" 'finder-summary) |