Mercurial > emacs
changeset 108777:04bc013ba171
* net/tramp.el (tramp-handle-insert-directory): Don't use
`forward-word', it's default syntax could be changed.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Tue, 25 May 2010 15:33:55 +0200 |
| parents | 6d49787caf8a |
| children | 6c819187f088 |
| files | lisp/net/tramp.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp.el Tue May 25 15:29:04 2010 +0200 +++ b/lisp/net/tramp.el Tue May 25 15:33:55 2010 +0200 @@ -4300,13 +4300,11 @@ (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)))))