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

[Miles Bader]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.583.2.17 emacs/lisp/files.el:1.583.2.18
*** emacs/lisp/files.el:1.583.2.17      Tue Jul  6 10:20:16 2004
--- emacs/lisp/files.el Tue Jul  6 10:23:35 2004
***************
*** 650,656 ****
    (load library))
  
  (defun file-remote-p (file)
!   "Test whether FILE specifies a location on a remote system."
    (let ((handler (find-file-name-handler file 'file-remote-p)))
      (if handler
        (funcall handler 'file-remote-p file)
--- 650,662 ----
    (load library))
  
  (defun file-remote-p (file)
!   "Test whether FILE specifies a location on a remote system.
! Return an identification of the system if the location is indeed
! remote.  The identification of the system may comprise a method
! to access the system and its hostname, amongst other things.
! 
! For example, the filename \"/address@hidden:/foo\" specifies a location
! on the system \"/address@hidden:\"."
    (let ((handler (find-file-name-handler file 'file-remote-p)))
      (if handler
        (funcall handler 'file-remote-p file)
***************
*** 2916,2923 ****
          (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
--- 2922,2929 ----
          (file-name-as-directory (expand-file-name (or directory
                                                        default-directory))))
      (setq filename (expand-file-name filename))
!     (let ((fremote (file-remote-p filename))
!           (dremote (file-remote-p directory)))
        (if ;; Conditions for separate trees
          (or
           ;; Test for different drives on DOS/Windows
***************
*** 2925,2944 ****
            ;; Should `cygwin' really be included here?  --stef
            (memq system-type '(ms-dos cygwin windows-nt))
            (not (eq t (compare-strings filename 0 2 directory 0 2))))
-          ;; Test for different remote file handlers
-          (not (eq hf hd))
           ;; Test for different remote file system identification
!          (and
!           hf
!           (let ((re (car (rassq hf file-name-handler-alist))))
!             (not
!              (equal
!               (and
!                (string-match re filename)
!                (substring filename 0 (match-end 0)))
!               (and
!                (string-match re directory)
!                (substring directory 0 (match-end 0))))))))
          filename
          (let ((ancestor ".")
              (filename-dir (file-name-as-directory filename)))
--- 2931,2938 ----
            ;; Should `cygwin' really be included here?  --stef
            (memq system-type '(ms-dos cygwin windows-nt))
            (not (eq t (compare-strings filename 0 2 directory 0 2))))
           ;; Test for different remote file system identification
!          (not (equal fremote dremote)))
          filename
          (let ((ancestor ".")
              (filename-dir (file-name-as-directory filename)))