/[emacs]/emacs/lisp/dired.el
ViewVC logotype

Diff of /emacs/lisp/dired.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.227 by rms, Wed Apr 10 15:15:23 2002 UTC revision 1.228 by rms, Tue Apr 23 03:14:41 2002 UTC
# Line 1364  Creates a buffer if necessary." Line 1364  Creates a buffer if necessary."
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
# Line 3006  true then the type of the file linked to Line 3009  true then the type of the file linked to
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"))

Legend:
Removed from v.1.227  
changed lines
  Added in v.1.228

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26