1364 |
(defun dired-mouse-find-file-other-window (event) |
(defun dired-mouse-find-file-other-window (event) |
1365 |
"In Dired, visit the file or directory name you click on." |
"In Dired, visit the file or directory name you click on." |
1366 |
(interactive "e") |
(interactive "e") |
1367 |
(let (file) |
(let (window pos file) |
1368 |
(save-excursion |
(save-excursion |
1369 |
(set-buffer (window-buffer (posn-window (event-end event)))) |
(setq window (posn-window (event-end event)) |
1370 |
(save-excursion |
pos (posn-point (event-end event))) |
1371 |
(goto-char (posn-point (event-end event))) |
(if (not (windowp window)) |
1372 |
(setq file (dired-get-file-for-visit)))) |
(error "No file chosen")) |
1373 |
(select-window (posn-window (event-end event))) |
(set-buffer (window-buffer window)) |
1374 |
|
(goto-char pos) |
1375 |
|
(setq file (dired-get-file-for-visit))) |
1376 |
|
(select-window window) |
1377 |
(find-file-other-window (file-name-sans-versions file t)))) |
(find-file-other-window (file-name-sans-versions file t)))) |
1378 |
|
|
1379 |
(defcustom dired-view-command-alist |
(defcustom dired-view-command-alist |
3009 |
t) |
t) |
3010 |
|
|
3011 |
(autoload 'dired-run-shell-command "dired-aux") |
(autoload 'dired-run-shell-command "dired-aux") |
3012 |
|
|
3013 |
|
(autoload 'dired-query "dired-aux") |
3014 |
|
|
3015 |
(if (eq system-type 'vax-vms) |
(if (eq system-type 'vax-vms) |
3016 |
(load "dired-vms")) |
(load "dired-vms")) |