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

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

2 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ffbaf87b9a..e192817bd84 100644
--- 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 5f8f126b4be..a3053f73ded 100644
--- 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))))