From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 4 Sep 2009 08:14:30 +0000 (+0000)
Subject: * net/tramp.el (tramp-handle-insert-directory): Handle "--dired"
X-Git-Tag: emacs-pretest-23.1.90~1478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ba1d9c24dcd163aaabedf92dd766c2100439dbd;p=emacs.git

* net/tramp.el (tramp-handle-insert-directory): Handle "--dired"
also when adding a new directory.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 2586542b656..4a860dbb9f5 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3761,10 +3761,9 @@ This is like `dired-recursive-delete-directory' for Tramp files."
 	   (buffer-string)))
 
 	;; Check for "--dired" output.
-	(goto-char (point-max))
 	(forward-line -2)
 	(when (looking-at "//DIRED//")
-	  (let ((end (line-end-position))
+	  (let ((end (tramp-compat-line-end-position))
 		(linebeg (point)))
 	    ;; Now read the numeric positions of file names.
 	    (goto-char linebeg)
@@ -3777,12 +3776,10 @@ This is like `dired-recursive-delete-directory' for Tramp files."
 		    ;; End is followed by \n or by " -> ".
 		    (put-text-property start end 'dired-filename t)))))
 	  ;; Reove training lines.
-	  (goto-char (point-max))
-	  (forward-line -1)
+	  (goto-char (tramp-compat-line-beginning-position))
 	  (while (looking-at "//")
 	    (forward-line 1)
-	    (delete-region (match-beginning 0) (point))
-	    (forward-line -1))))
+	    (delete-region (match-beginning 0) (point)))))
       (goto-char (point-max)))))
 
 (defun tramp-handle-unhandled-file-name-directory (filename)