[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp.el |
Date: |
Fri, 04 Sep 2009 08:14:30 +0000 |
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)