Re: `file-relative-name' for compressed files

[Richard Stallman]

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