Commit fa9ba953 authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/tramp.el (tramp-handle-insert-directory): Don't use

`forward-word', it's default syntax could be changed.
parent 9e021389
2010-05-25 Christian Lynbech <christian.lynbech@tieto.com> (tiny change)
* net/tramp.el (tramp-handle-insert-directory): Don't use
`forward-word', it's default syntax could be changed.
2010-05-25 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-progress-reporter-update): New defun.
......
......@@ -4300,13 +4300,11 @@ This is like `dired-recursive-delete-directory' for Tramp files."
(forward-line -2)
(when (looking-at "//SUBDIRED//")
(forward-line -1))
(when (looking-at "//DIRED//")
(let ((end (tramp-compat-line-end-position))
(linebeg (point)))
(when (looking-at "//DIRED//\\s-+")
(let ((databeg (match-end 0))
(end (tramp-compat-line-end-position)))
;; Now read the numeric positions of file names.
(goto-char linebeg)
(forward-word 1)
(forward-char 3)
(goto-char databeg)
(while (< (point) end)
(let ((start (+ beg (read (current-buffer))))
(end (+ beg (read (current-buffer)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment