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

`forward-word', it's default syntax could be changed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed0de283cd724f68b69cd0a9df727fbbecb4e1f1..af6a03fd1aabca4f817623235110e0ce446a971c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 075e931878e2167acf9b4b33ba98c706baa3b856..91b35481730dfa4678fa2b5953c1c7fd6896b3b3 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -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)))))