From 7ba1d9c24dcd163aaabedf92dd766c2100439dbd Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 4 Sep 2009 08:14:30 +0000 Subject: [PATCH] * net/tramp.el (tramp-handle-insert-directory): Handle "--dired" also when adding a new directory. --- lisp/net/tramp.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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) -- 2.39.2