1104 |
(let ((map (make-keymap))) |
(let ((map (make-keymap))) |
1105 |
(suppress-keymap map) |
(suppress-keymap map) |
1106 |
(define-key map [mouse-2] 'dired-mouse-find-file-other-window) |
(define-key map [mouse-2] 'dired-mouse-find-file-other-window) |
1107 |
|
(define-key map [follow-link] 'mouse-face) |
1108 |
;; Commands to mark or flag certain categories of files |
;; Commands to mark or flag certain categories of files |
1109 |
(define-key map "#" 'dired-flag-auto-save-files) |
(define-key map "#" 'dired-flag-auto-save-files) |
1110 |
(define-key map "." 'dired-clean-directory) |
(define-key map "." 'dired-clean-directory) |