Simple minded auto capitalize

Simple minded auto capitalize

[weber]

Hey guys..
I just came up with this:

(define-key text-mode-map (kbd ".") '(lambda () (interactive) (auto-
capitalize-char ".")))
(define-key text-mode-map (kbd ":") '(lambda () (interactive) (auto-
capitalize-char ":")))
(define-key text-mode-map (kbd "?") '(lambda () (interactive) (auto-
capitalize-char "?")))
(define-key text-mode-map (kbd "!") '(lambda () (interactive) (auto-
capitalize-char "!")))

(defun auto-capitalize-char (char)
  "CHAR indicates end of sentence, so go back and capitalize
sentence."
  (interactive)
  (save-excursion (backward-sentence 1)
				  (capitalize-word 1))
  (insert char))

and given the little code needed, that it's a big help when typing
text!
Is this interesting enought to be posted on the wiki? Does it already
exists?

Cheers,
weber