From 4ad216352ee53ebd69a6ee611d1a99a2539fb886 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 24 Apr 2008 19:37:01 +0000 Subject: [PATCH] * net/tramp.el (tramp-get-remote-stat): Test whether stat supports %s. Reported by Loris Bennett . --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 8 +++++--- 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 + + * net/tramp.el (tramp-get-remote-stat): Test whether stat supports + %s. Reported by Loris Bennett . + 2008-04-24 Sam Steingold * 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)))) -- 2.39.5