Re: Java mixed case deletion

[Kevin Rodgers]

Benjamin Rutt wrote:
> (defun my-c-kill-forward-into-nomenclature (&optional arg)
>   "Kill forward to the end of a nomenclature section or word.  With
> arg, do it arg times."
>   (interactive "p")
>   (save-excursion
>     (set-mark (point))
>     (c-forward-into-nomenclature arg)
>     (kill-region (mark) (point))))
>
> (defun my-c-kill-backward-into-nomenclature (&optional arg)
>   "Kill backward to the beginning of a nomenclature section or word.
> th arg, do it arg times."
>   (interactive "p")
>   (save-excursion
>     (set-mark (point))
>     (c-backward-into-nomenclature arg)
>     (kill-region (mark) (point))))

I think you can avoid the (save-excursion (set-mark ...) ...) construction:

(defun my-c-kill-forward-into-nomenclature (&optional n)
  "Kill forward to the end of a nomenclature section or word.
With a prefix arg, kill N names."
  (interactive "p")
  (kill-region (point)
               (progn
                 (c-forward-into-nomenclature n)
                 (point))))

(defun my-c-kill-backward-into-nomenclature (&optional n)
  "Kill backward to the beginning of a nomenclature section or word.
With a prefix arg, kill N names."
  (interactive "p")
  (kill-region (point)
               (progn
                 (c-backward-into-nomenclature n)
                 (point))))

--
Kevin Rodgers