[Emacs-diffs] /srv/bzr/emacs/trunk r100437: * net/tramp.el (tramp-handle-insert-directory): Don't use

[Michael Albinus]

------------------------------------------------------------
revno: 100437
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Tue 2010-05-25 15:33:55 +0200
message:
  * net/tramp.el (tramp-handle-insert-directory): Don't use
  `forward-word', it's default syntax could be changed.
modified:
  lisp/net/tramp.el

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2010-05-25 08:45:35 +0000
+++ b/lisp/net/tramp.el 2010-05-25 13:33:55 +0000
@@ -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)))))