[Emacs-diffs] Changes to emacs/lisp/dired.el

[Richard M. Stallman]

Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.227 emacs/lisp/dired.el:1.228
*** emacs/lisp/dired.el:1.227   Wed Apr 10 11:15:23 2002
--- emacs/lisp/dired.el Mon Apr 22 23:14:41 2002
***************
*** 1364,1376 ****
  (defun dired-mouse-find-file-other-window (event)
    "In Dired, visit the file or directory name you click on."
    (interactive "e")
!   (let (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)))
      (find-file-other-window (file-name-sans-versions file t))))
  
  (defcustom dired-view-command-alist
--- 1364,1379 ----
  (defun dired-mouse-find-file-other-window (event)
    "In Dired, visit the file or directory name you click on."
    (interactive "e")
!   (let (window pos file)
      (save-excursion
!       (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,3011 ****
--- 3009,3016 ----
    t)
  
  (autoload 'dired-run-shell-command "dired-aux")
+ 
+ (autoload 'dired-query "dired-aux")
  
  (if (eq system-type 'vax-vms)
      (load "dired-vms"))