[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: can't type upper case letters ?
From: |
Pascal J. Bourguignon |
Subject: |
Re: can't type upper case letters ? |
Date: |
Thu, 29 Oct 2009 14:39:25 +0100 |
User-agent: |
Gnus/5.1008 (Gnus v5.10.8) Emacs/22.3 (darwin) |
black <quiteblack@gmail.com> writes:
> hi all,
>
> i'm using emacs under windows recently, i'm stuck now and have no idea how to
> type upper case
> letters, capslock key doesn't work.
> any help pls ???
caps-mode may be useful. I don't use the Capslock key, because it's
mapped to Control. When I have to type uppercased text, either I
type it in lowercase and then use upcase-region (C-x C-u), or I use
caps-mode:
(defun caps-mode-self-insert-command (&optional n)
"Like `self-insert-command', but uppercase the the typed character."
(interactive "p")
(insert-char (upcase last-command-char) n))
(defvar caps-mode-map nil)
(when (fboundp 'define-minor-mode)
(define-minor-mode caps-mode
"Toggle caps mode.
With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.
When caps mode is enabled, all letters are inserted in their
capitalized form."
:init-value nil
:lighter " Caps"
(setq caps-mode-map
(let ((map (make-sparse-keymap)))
(substitute-key-definition 'self-insert-command
'caps-mode-self-insert-command
map global-map)
map))
(if caps-mode
(add-to-list 'minor-mode-map-alist (cons 'caps-mode caps-mode-map))
(setq minor-mode-map-alist
(delete (assoc 'caps-mode minor-mode-map-alist)
minor-mode-map-alist)))))
--
__Pascal Bourguignon__