procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Martin Rudalics 2007-01-09 09:14:46 +00:00
parent 5d348d3ff0
commit 4212d44f81
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

7
lisp/wdired.el
View file

@ -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'.