# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1168334007 0
# Node ID 21d0aec573ef7044c2448b20adb2a29337aaf986
# Parent  529c311ee267c69a887229b2586cef62873fb13b
(wdired-xcase-word): Skip non-word read-only characters.

diff -r 529c311ee267 -r 21d0aec573ef lisp/wdired.el
--- a/lisp/wdired.el	Tue Jan 09 08:54:23 2007 +0000
+++ b/lisp/wdired.el	Tue Jan 09 09:13:27 2007 +0000
@@ -576,8 +576,11 @@
             (funcall command 1)
             (setq arg (1- arg)))
         (error
-         (if (not (forward-word 1))
-             (setq arg 0)))))))
+         (if (forward-word)
+	     ;; Skip any non-word characters to avoid triggering a read-only
+	     ;; error which would cause skipping the next word characters too.
+	     (skip-syntax-forward "^w")
+	   (setq arg 0)))))))
 
 (defun wdired-downcase-word (arg)
   "WDired version of `downcase-word'.