(defun capitalize-naggum ()
"Capitalizes text written in Erik Naggum's annoying no-caps style"
(interactive)
(save-excursion
(goto-char (point-min))
(aux-naggum (point))))
(defun aux-naggum (current-point)
"Recursively capitalize the buffer, moving sentence to sentence. Valid punctuation symbols are [.?!]"
(re-search-forward "[a-z]" nil 0 nil)
(if (= current-point (point))
t
(capitalize-word -1)
(re-search-forward "[.!?]")
(aux-naggum (point))))
(defun capitalize-naggum () "Capitalizes text written in Erik Naggum's annoying no-caps style" (interactive) (save-excursion (goto-char (point-min)) (aux-naggum (point))))
(defun aux-naggum (current-point) "Recursively capitalize the buffer, moving sentence to sentence. Valid punctuation symbols are [.?!]" (re-search-forward "[a-z]" nil 0 nil) (if (= current-point (point)) t (capitalize-word -1) (re-search-forward "[.!?]") (aux-naggum (point))))