# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1260354180 0
# Node ID 8c836ea59444526045fe014a6d290dc35517a1d3
# Parent  9506b5eee678f0bc6cb3f6a31e1b01922cc6c177
* net/tramp.el (tramp-handle-insert-directory): Suppress error messages.

diff -r 9506b5eee678 -r 8c836ea59444 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 09 10:10:18 2009 +0000
+++ b/lisp/ChangeLog	Wed Dec 09 10:23:00 2009 +0000
@@ -1,3 +1,7 @@
+2009-12-09  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-handle-insert-directory): Suppress error messages.
+
 2009-12-09  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	Fix short log parsing and fontification.
diff -r 9506b5eee678 -r 8c836ea59444 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Wed Dec 09 10:10:18 2009 +0000
+++ b/lisp/net/tramp.el	Wed Dec 09 10:23:00 2009 +0000
@@ -4077,7 +4077,7 @@
       (if full-directory-p
 	  (tramp-send-command
 	   v
-	   (format "%s %s %s"
+	   (format "%s %s %s 2>/dev/null"
 		   (tramp-get-ls-command v)
 		   switches
 		   (if wildcard
@@ -4126,13 +4126,13 @@
 		    (end (+ beg (read (current-buffer)))))
 		(if (memq (char-after end) '(?\n ?\ ))
 		    ;; End is followed by \n or by " -> ".
-		    (put-text-property start end 'dired-filename t)))))
-	  ;; Remove trailing lines.
-	  (goto-char (tramp-compat-line-beginning-position))
-	  (while (looking-at "//")
-	    (forward-line 1)
-	    (delete-region (match-beginning 0) (point)))))
-      (goto-char (point-max)))))
+		    (put-text-property start end 'dired-filename t))))))
+	;; Remove trailing lines.
+	(goto-char (tramp-compat-line-beginning-position))
+	(while (looking-at "//")
+	  (forward-line 1)
+	  (delete-region (match-beginning 0) (point)))
+	(goto-char (point-max))))))
 
 (defun tramp-handle-unhandled-file-name-directory (filename)
   "Like `unhandled-file-name-directory' for Tramp files."