kill-word-camelcased.el

;; kill-word-camelcased

(defun kill-word-camelcased (arg)
  "Kill characters forward until the end of a word even if 
in a camelcased identifier. ARG is same as `kill-word`."
  (interactive "p")
  (let ((case-fold-search nil)
        (start (point))
        (bound (save-excursion (forward-word arg) (point)))
        (succ (if (> arg 0) 1 -1))
        current
        found)
    (when (not (= start bound))
      (setq current start)
      (while (not (= arg 0))
        (forward-word succ)
        (while (search-forward-regexp "[A-Z][a-z]"
                                      (+ current succ)
                                      t
                                      (- succ))
          (setq found t))
        (when (and found (< succ 0))
          (forward-char -2))
        (setq current (point))
        (setq arg (- arg succ)))
      (kill-region start (point)))))

(defun backward-kill-word-camelcased (arg)
  (interactive "p")
  (kill-word-camelcased (- arg)))

(provide 'kill-word-camelcased)