From: Michael Albinus Date: Thu, 24 Apr 2008 19:37:01 +0000 (+0000) Subject: * net/tramp.el (tramp-get-remote-stat): Test whether stat supports X-Git-Tag: emacs-pretest-23.0.90~6059 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ad216352ee53ebd69a6ee611d1a99a2539fb886;p=emacs.git * net/tramp.el (tramp-get-remote-stat): Test whether stat supports %s. Reported by Loris Bennett . --- 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))))