# HG changeset patch
# User Michael Albinus <albinus@detlef>
# Date 1279687247 -7200
# Node ID 00c18905e17ac182b6535eb305859e37c1327436
# Parent  c9df47f7bbf32c7de2c07bd13b13df416c198633
* net/tramp.el (tramp-get-ls-command)
(tramp-get-ls-command-with-dired): Run tests on "/dev/null"
instead of "/".

diff -r c9df47f7bbf3 -r 00c18905e17a lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 20 21:56:55 2010 -0400
+++ b/lisp/ChangeLog	Wed Jul 21 06:40:47 2010 +0200
@@ -1,3 +1,9 @@
+2010-07-21  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-get-ls-command)
+	(tramp-get-ls-command-with-dired): Run tests on "/dev/null"
+	instead of "/".
+
 2010-07-20  Michael R. Mauger  <mmaug@yahoo.com>
 
 	* progmodes/sql.el: Version 2.3.
diff -r c9df47f7bbf3 -r 00c18905e17a lisp/net/tramp.el
--- a/lisp/net/tramp.el	Tue Jul 20 21:56:55 2010 -0400
+++ b/lisp/net/tramp.el	Wed Jul 21 06:40:47 2010 +0200
@@ -8344,7 +8344,8 @@
 	     (when (zerop (tramp-send-command-and-check
 			   vec (format "%s -lnd /" result)))
 	       (when (zerop (tramp-send-command-and-check
-			     vec (format "%s --color=never -al /" result)))
+			     vec (format
+				  "%s --color=never -al /dev/null" result)))
 		 (setq result (concat result " --color=never")))
 	       (throw 'ls-found result))
 	     (setq dl (cdr dl))))))
@@ -8358,7 +8359,8 @@
       ;; they fail when "-al" is after the "--dired" argument (for
       ;; example on FreeBSD).
       (zerop (tramp-send-command-and-check
-	      vec (format "%s --dired -al /" (tramp-get-ls-command vec)))))))
+	      vec (format "%s --dired -al /dev/null"
+			  (tramp-get-ls-command vec)))))))
 
 (defun tramp-get-test-command (vec)
   (with-connection-property vec "test"