Mercurial > emacs

changeset 75159:21d0aec573ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(wdired-xcase-word): Skip non-word read-only characters.
author Martin Rudalics <rudalics@gmx.at>
date Tue, 09 Jan 2007 09:13:27 +0000
parents 529c311ee267
children b6d91af8ca19
files lisp/wdired.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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'.