Mercurial > emacs
changeset 104850:5d5bbec3b1c8
* net/tramp.el (tramp-handle-insert-directory): Handle "--dired"
also when adding a new directory.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Fri, 04 Sep 2009 08:14:30 +0000 |
| parents | 15ac40f6056a |
| children | 5e1bd0e3a13b |
| files | lisp/net/tramp.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp.el Fri Sep 04 07:00:22 2009 +0000 +++ b/lisp/net/tramp.el Fri Sep 04 08:14:30 2009 +0000 @@ -3761,10 +3761,9 @@ (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 @@ ;; 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)