Re: Help with upcasing words first char

[Pascal J. Bourguignon]

Harry Putnam <reader@newsguy.com> writes:

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


It works for me.

(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 "[ \t]+" end t) 
             (delete-region (match-beginning 0) (match-end 0))))
      (set-marker end nil))))


-- 
__Pascal Bourguignon__