Mercurial > hg > xemacs-beta
diff lisp/efs/dired.el @ 179:9ad43877534d r20-3b16
Import from CVS: tag r20-3b16
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:52:19 +0200 |
parents | 15872534500d |
children | bfd6434d15b3 |
line wrap: on
line diff
--- a/lisp/efs/dired.el Mon Aug 13 09:51:18 2007 +0200 +++ b/lisp/efs/dired.el Mon Aug 13 09:52:19 2007 +0200 @@ -2831,11 +2831,11 @@ (dired file)) (view-file file)))) -(defun dired-find-file-other-window (&optional display) +(defun dired-find-file-other-window (&optional displayp) "In dired, visit this file or directory in another window. With a prefix, the file is displayed, but the window is not selected." (interactive "P") - (if display + (if displayp (dired-display-file) (find-file-other-window (dired-get-filename)))) @@ -2954,6 +2954,10 @@ (and (setq p1 (dired-move-to-filename (not no-error-if-not-filep) bol eol)) (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep bol eol)) + ;; We seem to be picking up the carriage-return at the end of the + ;; line, so here's a quick fix to get dired working. + (if (eq system-type 'windows-nt) + (setq p2 (1- p2))) (setq file (buffer-substring p1 p2)) ;; Check if ls quoted the names, and unquote them. ;; Using read to unquote is much faster than substituting