-;(if finder-mode-map
-; nil
- (setq finder-mode-map (make-sparse-keymap))
- (define-key finder-mode-map " " 'finder-select)
- (define-key finder-mode-map "?" 'finder-summary)
- (define-key finder-mode-map "q" 'finder-exit)
- (define-key finder-mode-map "f" 'finder-list-keywords)
-; )
+(or finder-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map " " 'finder-select)
+ (define-key map "f" 'finder-select)
+ (define-key map "\C-m" 'finder-select)
+ (define-key map "?" 'finder-summary)
+ (define-key map "q" 'finder-exit)
+ (define-key map "d" 'finder-list-keywords)
+ (setq finder-mode-map map)))
+