(wdired-xcase-word): Skip non-word read-only characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec53b2ad1c946d91e2f8dfb8d0e10d2c13a558b3..bc49750745a066728273d0d0ccc41950804b2b83 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-09  martin rudalics  <rudalics@gmx.at>
+
+       * wdired.el (wdired-xcase-word): Skip non-word read-only
+       characters.
+
 2007-01-09  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-cmds.el

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 5a925e5d0311513b8da17bc193e1116f8034d0bb..2c43b6f15521fd210967eae4839a8b889976f0b2 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -576,8 +576,11 @@ If OLD, return the old target.  If MOVE, move point before it."
             (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'.