diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-04-23 03:14:41 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-04-23 03:14:41 +0000 |
commit | 02a091bfc323a943c4514c4640022ec22f5bcd42 (patch) | |
tree | 7e516933fb8d6f062c5c80f3cca6015c091c73d2 /lisp/dired.el | |
parent | 5d9c0a6cf8795aeece69801a6a3ec65739cc27e4 (diff) | |
download | emacs-02a091bfc323a943c4514c4640022ec22f5bcd42.tar.gz |
(dired-mouse-find-file-other-window):
Handle events that move out of the window.
Diffstat (limited to 'lisp/dired.el')
-rw-r--r-- | lisp/dired.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 8bf10e0cef8..d147b66135c 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1364,13 +1364,16 @@ Creates a buffer if necessary." (defun dired-mouse-find-file-other-window (event) "In Dired, visit the file or directory name you click on." (interactive "e") - (let (file) + (let (window pos file) (save-excursion - (set-buffer (window-buffer (posn-window (event-end event)))) - (save-excursion - (goto-char (posn-point (event-end event))) - (setq file (dired-get-file-for-visit)))) - (select-window (posn-window (event-end event))) + (setq window (posn-window (event-end event)) + pos (posn-point (event-end event))) + (if (not (windowp window)) + (error "No file chosen")) + (set-buffer (window-buffer window)) + (goto-char pos) + (setq file (dired-get-file-for-visit))) + (select-window window) (find-file-other-window (file-name-sans-versions file t)))) (defcustom dired-view-command-alist @@ -3006,6 +3009,8 @@ true then the type of the file linked to by FILE is printed instead." t) (autoload 'dired-run-shell-command "dired-aux") + +(autoload 'dired-query "dired-aux") (if (eq system-type 'vax-vms) (load "dired-vms")) |