diff options
| author | Michael Albinus | 2010-05-25 15:33:55 +0200 |
|---|---|---|
| committer | Michael Albinus | 2010-05-25 15:33:55 +0200 |
| commit | fa9ba953352517801da5b0578bc78f2df6f898aa (patch) | |
| tree | d4acd166b48c9ebcefe701e07474e43467650177 /lisp/net | |
| parent | 9e0213891d41fb237d61916e5e316a1ee522d569 (diff) | |
| download | emacs-fa9ba953352517801da5b0578bc78f2df6f898aa.tar.gz emacs-fa9ba953352517801da5b0578bc78f2df6f898aa.zip | |
* net/tramp.el (tramp-handle-insert-directory): Don't use
`forward-word', it's default syntax could be changed.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 075e931878e..91b35481730 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -4300,13 +4300,11 @@ This is like `dired-recursive-delete-directory' for Tramp files." | |||
| 4300 | (forward-line -2) | 4300 | (forward-line -2) |
| 4301 | (when (looking-at "//SUBDIRED//") | 4301 | (when (looking-at "//SUBDIRED//") |
| 4302 | (forward-line -1)) | 4302 | (forward-line -1)) |
| 4303 | (when (looking-at "//DIRED//") | 4303 | (when (looking-at "//DIRED//\\s-+") |
| 4304 | (let ((end (tramp-compat-line-end-position)) | 4304 | (let ((databeg (match-end 0)) |
| 4305 | (linebeg (point))) | 4305 | (end (tramp-compat-line-end-position))) |
| 4306 | ;; Now read the numeric positions of file names. | 4306 | ;; Now read the numeric positions of file names. |
| 4307 | (goto-char linebeg) | 4307 | (goto-char databeg) |
| 4308 | (forward-word 1) | ||
| 4309 | (forward-char 3) | ||
| 4310 | (while (< (point) end) | 4308 | (while (< (point) end) |
| 4311 | (let ((start (+ beg (read (current-buffer)))) | 4309 | (let ((start (+ beg (read (current-buffer)))) |
| 4312 | (end (+ beg (read (current-buffer))))) | 4310 | (end (+ beg (read (current-buffer))))) |