Version 2.0.33 released.

Change coding cookie to `iso-2022-7bit' for XEmacs
compatibility.  (From Steve Youngs <youngs@xemacs.org>.)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9801fa45c8118d70a4ce9da348843a911c30079f..d3a2dc2146aecf7fc91ea692c75f5a58081bf20c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2003-04-08  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
+
+       * net/tramp.el: Version 2.0.33 released.
+       Change coding cookie to `iso-2022-7bit' for XEmacs
+       compatibility.  (From Steve Youngs <youngs@xemacs.org>.)
+
+2003-04-08  Michael Albinus  <Michael.Albinus@alcatel.de>
+
+       * net/tramp-ftp.el (tramp-ftp-file-name-handler):
+       Do not disable file name handlers for `file-exists-p' and
+       `file-directory-p'.
+
 2003-04-08  Kenichi Handa  <handa@etlken2>
 
        * international/mule-conf.el: Register ?\225 in

diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index 04f8bbeb323c02166682feea06da9e14b2091d43..1d2ab9083f95794e8f55a4ede910ef472f91fa76 100644 (file)
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -94,18 +94,25 @@ pass to the OPERATION."
   (save-match-data
     (or (boundp 'ange-ftp-name-format)
        (require 'ange-ftp))
-    (let* ((ange-ftp-name-format
-           (list (nth 0 tramp-file-name-structure)
-                 (nth 3 tramp-file-name-structure)
-                 (nth 2 tramp-file-name-structure)
-                 (nth 4 tramp-file-name-structure)))
-          (inhibit-file-name-handlers
-           (list 'tramp-file-name-handler
-                 'tramp-completion-file-name-handler
-                 (and (eq inhibit-file-name-operation operation)
-                      inhibit-file-name-handlers)))
-          (inhibit-file-name-operation operation))
-      (apply 'ange-ftp-hook-function operation args))))
+    (let ((ange-ftp-name-format
+          (list (nth 0 tramp-file-name-structure)
+                (nth 3 tramp-file-name-structure)
+                (nth 2 tramp-file-name-structure)
+                (nth 4 tramp-file-name-structure))))
+      (cond
+       ;; If argument is a symlink, 'file-directory-p` and 'file-exists-p`
+       ;; call the traversed file recursively. So we cannot disable the
+       ;;file-name-handler this case.
+       ((memq operation '(file-directory-p file-exists-p))
+       (apply 'ange-ftp-hook-function operation args))
+       ;; Normally, the handlers must be discarded
+       (t (let* ((inhibit-file-name-handlers
+                  (list 'tramp-file-name-handler
+                        'tramp-completion-file-name-handler
+                        (and (eq inhibit-file-name-operation operation)
+                             inhibit-file-name-handlers)))
+                 (inhibit-file-name-operation operation))
+            (apply 'ange-ftp-hook-function operation args)))))))
 
 (defun tramp-ftp-file-name-p (filename)
   "Check if it's a filename that should be forwarded to Ange-FTP."
@@ -127,10 +134,8 @@ pass to the OPERATION."
 
 ;; * In case of "/ftp:host:file" this works only for functions which
 ;;   are defined in `tramp-file-name-handler-alist'.  Call has to be
-;;   pretended in `tramp-file-name-handler' otherwise.  Looks like
-;;   `ange-ftp-completion-hook-function' and `ange-ftp-hook-function'
-;;   are active temporarily in `file-name-handler-alist'.
-;;   Furthermore, there are no backup files on FTP hosts this case.
+;;   pretended in `tramp-file-name-handler' otherwise.
+;;   Furthermore, there are no backup files on FTP hosts.
 ;;   Worth further investigations.
 
 ;;; tramp-ftp.el ends here

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 8f530d3b811cf612dfbdd2e42cd3e8d118b7433b..892071114bf908ac8bb584d578ee45891aaf0130 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1,4 +1,4 @@
-;;; -*- mode: Emacs-Lisp; coding: iso-8859-1; -*-
+;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
 ;;; tramp.el --- Transparent Remote Access, Multiple Protocol
 
 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
@@ -2344,7 +2344,7 @@ if the remote host can't provide the modtime."
 
 ;; Other file name ops.
 
-;; ;; Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de>
+;; ;; Matthias K\e,Av\e(Bppe <mkoeppe@mail.math.uni-magdeburg.de>
 ;; (defun tramp-handle-directory-file-name (directory)
 ;;   "Like `directory-file-name' for tramp files."
 ;;   (if (and (eq (aref directory (- (length directory) 1)) ?/)
@@ -6529,7 +6529,7 @@ report.
 ;;   transfer method to use.  (Greg Stark)
 ;; * Remove unneeded parameters from methods.
 ;; * Invoke rsync once for copying a whole directory hierarchy.
-;;   (Francesco Potortì)
+;;   (Francesco Potort\e,Al\e(B)
 ;; * Should we set PATH ourselves or should we rely on the remote end
 ;;   to do it?
 ;; * Do the autoconf thing.

diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index 48d8123a9dd81b563a76d380c31c7eee7228c2f5..7a9f957cec4f0977f654cc76cf74ef0ebbd2fee8 100644 (file)
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -30,7 +30,7 @@
 ;; are auto-frobbed from configure.ac, so you should edit that file and run
 ;; "autoconf && ./configure" to change them.
 
-(defconst tramp-version "2.0.31"
+(defconst tramp-version "2.0.33"
   "This version of Tramp.")
 
 (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"