Changeset 3410

Show
Ignore:
Timestamp:
08/21/04 09:59:27 (4 years ago)
Author:
miyoshi
Message:

(dired-find-alternate-file): Call
dired-get-file-for-visit() instead of dired-get-filename().
(dired-find-file-other-window): Ditto.
(dired-display-file): Ditto.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3397 r3410  
     12004-08-21  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * dired.el (dired-find-alternate-file): Call 
     4        dired-get-file-for-visit() instead of dired-get-filename(). 
     5        (dired-find-file-other-window): Ditto. 
     6        (dired-display-file): Ditto. 
     7 
    182004-08-13  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    29 

  • branches/2.1/lisp/dired.el

    r3372 r3410  
    13991399  (interactive) 
    14001400  (set-buffer-modified-p nil) 
    1401   (find-alternate-file (dired-get-filename))) 
     1401  (find-alternate-file (dired-get-file-for-visit))) 
    14021402 
    14031403(defun dired-mouse-find-file-other-window (event) 
    …… 
    14381438  "In dired, visit this file or directory in another window." 
    14391439  (interactive) 
    1440   (find-file-other-window (file-name-sans-versions (dired-get-filename) t))) 
     1440  (find-file-other-window (dired-get-file-for-visit))) 
    14411441 
    14421442(defun dired-display-file () 
    14431443  "In dired, display this file or directory in another window." 
    14441444  (interactive) 
    1445   (let ((file (file-name-sans-versions (dired-get-filename) t))) 
    1446     (display-buffer (find-file-noselect file)))) 
     1445  (display-buffer (find-file-noselect (dired-get-file-for-visit)))) 
    14471446  
    14481447;;; Functions for extracting and manipulating file names in dired buffers.