# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1274794435 -7200
# Node ID 04bc013ba171d118d457e8ca7f70bcf490c59a0a
# Parent  6d49787caf8a13572def362b4e69dbdfc3ca8d7e
* net/tramp.el (tramp-handle-insert-directory): Don't use
`forward-word', it's default syntax could be changed.

diff -r 6d49787caf8a -r 04bc013ba171 lisp/net/tramp.el
--- 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)))))