Re: tests with the latest version from cvs on w2k with cygwin

[Kai Großjohann]

"Thomas Haselberger" <address@hidden> writes:

> opening a file works.
> when trying to save the file, I get an error:
> ----------------------------------------------
> tramp: True name of `/sshx:address@hidden:/opt/ucp/solutions/b2b/id_dsa.pub' 
> is `/opt/ucp/solutions/b2b/id_dsa.pub'
> tramp: Encoding remote file 
> /sshx:address@hidden:/opt/ucp/solutions/b2b/id_dsa.pub...
> tramp: Decoding remote file 
> /sshx:address@hidden:/opt/ucp/solutions/b2b/id_dsa.pub...
> Mark set
> tramp: Decoding remote file 
> /sshx:address@hidden:/opt/ucp/solutions/b2b/id_dsa.pub with function 
> base64-decode-region...
> Wrote c:/tramp.1864q9b
> tramp: Decoding remote file 
> /sshx:address@hidden:/opt/ucp/solutions/b2b/id_dsa.pub...done
> tramp: Inserting local temp file `c:/tramp.1864q9b'...done
> basic-save-buffer-2: Wrong type argument: arrayp, nil
> ----------------------------------------------

I don't know if it's the file-attributes problem.  I see that I sent
the fix to Marco Lonsing, not you.  So here is the fix I sent to
Marco.  Please try that patch or the current CVS.

Thanks.

Index: lisp/tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.156
diff -u -r2.156 tramp.el
--- lisp/tramp.el       29 Jul 2002 17:41:16 -0000      2.156
+++ lisp/tramp.el       30 Jul 2002 13:45:10 -0000
@@ -69,7 +69,7 @@
 
 ;;; Code:
 
-(defconst tramp-version "2.0.4"
+(defconst tramp-version "2.0.5"
   "This version of tramp.")
 
 (defconst tramp-bug-report-address "address@hidden"
@@ -1037,11 +1037,6 @@
   :group 'tramp
   :type 'boolean)
 
-;; The following can be received from ssh:
-;; The authenticity of host 'ls6-www (<no hostip for proxy command>)' can't be 
established.
-;; RSA1 key fingerprint is 70:34:ee:0b:29:9b:6e:5d:eb:bb:e3:93:21:47:45:4d.
-;; Are you sure you want to continue connecting (yes/no)? 
-
 (defcustom tramp-actions-before-shell
   '((tramp-password-prompt-regexp tramp-action-password)
     (tramp-login-prompt-regexp tramp-action-login)
@@ -1606,18 +1601,21 @@
   "Like `file-attributes' for tramp files.
 Optional argument NONNUMERIC means return user and group name
 rather than as numbers."
-  (with-parsed-tramp-file-name filename nil
-    (when (tramp-ange-ftp-file-name-p multi-method method)
-      (tramp-invoke-ange-ftp 'file-attributes filename))
-    (if (tramp-handle-file-exists-p filename)
+  (let (result)
+    (with-parsed-tramp-file-name filename nil
+      (when (tramp-ange-ftp-file-name-p multi-method method)
+       (tramp-invoke-ange-ftp 'file-attributes filename))
+      (when (tramp-handle-file-exists-p filename)
        ;; file exists, find out stuff
        (save-excursion
          (if (tramp-get-remote-perl multi-method method user host)
-             (tramp-handle-file-attributes-with-perl
-              multi-method method user host path nonnumeric)
-           (tramp-handle-file-attributes-with-ls
-            multi-method method user host path nonnumeric))))
-    nil))                              ; no file
+             (setq result
+                   (tramp-handle-file-attributes-with-perl
+                    multi-method method user host path nonnumeric))
+           (setq result
+                 (tramp-handle-file-attributes-with-ls
+                  multi-method method user host path nonnumeric))))))
+    result))
 
 
 (defun tramp-handle-file-attributes-with-ls
@@ -1626,6 +1624,10 @@
   (let (symlinkp dirp
                 res-inode res-filemodes res-numlinks
                 res-uid res-gid res-size res-symlink-target)
+    (tramp-message-for-buffer multi-method method user host 10
+                             "file attributes with ls: %s"
+                             (tramp-make-tramp-file-name
+                              multi-method method user host path))
     (tramp-send-command
      multi-method method user host
      (format "%s %s %s"
@@ -1707,6 +1709,10 @@
 
 The Perl command is sent to the remote machine when the connection
 is initially created and is kept cached by the remote shell."
+  (tramp-message-for-buffer multi-method method user host 10
+                           "file attributes with perl: %s"
+                           (tramp-make-tramp-file-name
+                            multi-method method user host path))
   (tramp-send-command
    multi-method method user host
    (format "tramp_file_attributes %s" 


kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)