help-gnu-emacs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]