Re: Help with upcasing words first char

[Harry Putnam <reader@newsguy.com>]

Harry Putnam <reader@newsguy.com> writes:

> (defun camelize-region (start end)
>   (interactive "r")
>   (capitalize-region start end)
>   (let ((end (let ((m (make-marker))) (set-marker m end) m)))
>     (unwind-protect
>          (progn
>            (goto-char start)
> ;;             (while (re-search-forward "\\s-+" end t)
>           (while (re-search-forward "[ \t]+" end t) 
>             (delete-region (match-beginning 0) (match-end 0))))
>       (set-marker end nil))))

Egad... please excuse my foolish blundering above... that code fails to
remove the spaces...  Somehow I failed to notice that....

Maybe I'll get it right yet if I keep monkeying around with it.