[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: `file-relative-name' for compressed files
From: |
Richard Stallman |
Subject: |
Re: `file-relative-name' for compressed files |
Date: |
Fri, 11 Jun 2004 21:51:09 -0400 |
I think this is a cleaner fix, and it seems to work.
Do you see any problem with it?
*** files.el 06 Jun 2004 09:57:27 -0400 1.701
--- files.el 11 Jun 2004 20:22:55 -0400
***************
*** 2912,2919 ****
(file-name-as-directory (expand-file-name (or directory
default-directory))))
(setq filename (expand-file-name filename))
! (let ((hf (find-file-name-handler filename 'file-remote-p))
! (hd (find-file-name-handler directory 'file-remote-p)))
(if ;; Conditions for separate trees
(or
;; Test for different drives on DOS/Windows
--- 2912,2921 ----
(file-name-as-directory (expand-file-name (or directory
default-directory))))
(setq filename (expand-file-name filename))
! (let ((hf (and (file-remote-p filename)
! (find-file-name-handler filename 'file-remote-p)))
! (hd (and (file-remote-p directory)
! (find-file-name-handler directory 'file-remote-p))))
(if ;; Conditions for separate trees
(or
;; Test for different drives on DOS/Windows
- `file-relative-name' for compressed files, Emilio Lopes, 2004/06/10
- Re: `file-relative-name' for compressed files,
Richard Stallman <=
- Re: `file-relative-name' for compressed files, Emilio Lopes, 2004/06/12
- Re: `file-relative-name' for compressed files, Michael Albinus, 2004/06/13
- Re: `file-relative-name' for compressed files, Richard Stallman, 2004/06/14
- Re: `file-relative-name' for compressed files, Michael Albinus, 2004/06/16
- Re: `file-relative-name' for compressed files, Richard Stallman, 2004/06/17
- Re: `file-relative-name' for compressed files, Kai Grossjohann, 2004/06/22
- Re: `file-relative-name' for compressed files, Richard Stallman, 2004/06/23
- Re: `file-relative-name' for compressed files, Kai Grossjohann, 2004/06/26
- Re: `file-relative-name' for compressed files, Emilio Lopes, 2004/06/27
- Re: `file-relative-name' for compressed files, Kai Grossjohann, 2004/06/27