[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Simple minded auto capitalize
From: |
weber |
Subject: |
Simple minded auto capitalize |
Date: |
Fri, 09 Nov 2007 17:21:12 -0000 |
User-agent: |
G2/1.0 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Simple minded auto capitalize,
weber <=