* net/tramp.el (tramp-get-remote-stat): Test whether stat supports

%s.  Reported by Loris Bennett <loris.bennett@fu-berlin.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ffbaf87b9abcdc26b5609005be55e353d804d39..e192817bd84c080b7e87386d560fde443666ea74 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-24  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-get-remote-stat): Test whether stat supports
+       %s.  Reported by Loris Bennett <loris.bennett@fu-berlin.de>.
+
 2008-04-24  Sam Steingold  <sds@gnu.org>
 
        * textmodes/remember.el (remember-diary-extract-entries): Use

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5f8f126b4be3e0b2c8e264b13590bef6a9c9e945..a3053f73ded582ace3d714e03f173a9bd40e61a8 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -6965,17 +6965,19 @@ necessary only.  This function will be used in file name completion."
       (let ((result (tramp-find-executable
                     vec "stat" (tramp-get-remote-path vec)))
            tmp)
-       ;; Check whether stat(1) returns usable syntax.
+       ;; Check whether stat(1) returns usable syntax.  %s does not
+       ;; work on older AIX systems.
        (when result
          (setq tmp
                ;; We don't want to display an error message.
                (with-temp-message (or (current-message) "")
                  (condition-case nil
                      (tramp-send-command-and-read
-                      vec (format "%s -c '(\"%%N\")' /" result))
+                      vec (format "%s -c '(\"%%N\" %%s)' /" result))
                    (error nil))))
          (unless (and (listp tmp) (stringp (car tmp))
-                      (string-match "^./.$" (car tmp)))
+                      (string-match "^./.$" (car tmp))
+                      (integerp (cadr tmp)))
            (setq result nil)))
        result))))