[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/04/24 19:32:28

Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -b -r1.190 -r1.191
--- tramp.el    9 Apr 2008 20:01:12 -0000       1.190
+++ tramp.el    24 Apr 2008 19:32:27 -0000      1.191
@@ -6965,17 +6965,19 @@
       (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))))