Function: wdired-xcase-word

wdired-xcase-word is a byte-compiled function defined in wdired.el.gz.

Signature

(wdired-xcase-word COMMAND ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/wdired.el.gz
;; Perform a "case command" skipping read-only words.
(defun wdired-xcase-word (command arg)
  (if (< arg 0)
      (funcall command arg)
    (while (> arg 0)
      (condition-case nil
          (progn
            (funcall command 1)
            (setq arg (1- arg)))
        (error
         (if (forward-word-strictly)
	     ;; 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)))))))