[Emacs-diffs] emacs/lisp/net tramp.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/09/04 08:14:30

Modified files:
        lisp/net       : tramp.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.253&r2=1.254

Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.253
retrieving revision 1.254
diff -u -b -r1.253 -r1.254
--- tramp.el    2 Sep 2009 11:13:42 -0000       1.253
+++ tramp.el    4 Sep 2009 08:14:30 -0000       1.254
@@ -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)