31 |
(defvar url-dired-minor-mode-map |
(defvar url-dired-minor-mode-map |
32 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
33 |
(define-key map "\C-m" 'url-dired-find-file) |
(define-key map "\C-m" 'url-dired-find-file) |
34 |
(if (featurep 'xemacs) |
(define-key map [mouse-2] 'url-dired-find-file-mouse) |
|
(define-key map [button2] 'url-dired-find-file-mouse) |
|
|
(define-key map [mouse-2] 'url-dired-find-file-mouse)) |
|
35 |
map) |
map) |
36 |
"Keymap used when browsing directories.") |
"Keymap used when browsing directories.") |
37 |
|
|