|
From: | Harry Putnam |
Subject: | Re: Help with upcasing words first char |
Date: | Mon, 24 Aug 2009 18:03:10 -0500 |
User-agent: | Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.96 (gnu/linux) |
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.
[Prev in Thread] | Current Thread | [Next in Thread] |