[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: S-SPC exits out of isearch
From: |
Stefan Monnier |
Subject: |
Re: S-SPC exits out of isearch |
Date: |
Thu, 09 Dec 2004 09:05:42 -0500 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) |
> (mapc
> (lambda (keypad-normal)
> (let ((keypad (nth 0 keypad-normal))
> (normal (nth 1 keypad-normal)))
> (put keypad 'ascii-character normal)
> (define-key function-key-map (vector keypad) (vector normal))))
> '((S-kp-0 ?0) (S-kp-1 ?1) (S-kp-2 ?2) (S-kp-3 ?3) (S-kp-4 ?4)
> (S-kp-5 ?5) (S-kp-6 ?6) (S-kp-7 ?7) (S-kp-8 ?8) (S-kp-9 ?9)
> (S-kp-decimal ?.)))
I don't have an answer for your isearch problem, but I think people should
try to get used to `dolist':
(dolist (keypad-normal
'((S-kp-0 ?0) (S-kp-1 ?1) (S-kp-2 ?2) (S-kp-3 ?3) (S-kp-4 ?4)
(S-kp-5 ?5) (S-kp-6 ?6) (S-kp-7 ?7) (S-kp-8 ?8) (S-kp-9 ?9)
(S-kp-decimal ?.)))
(let ((keypad (nth 0 keypad-normal))
(normal (nth 1 keypad-normal)))
(put keypad 'ascii-character normal)
(define-key function-key-map (vector keypad) (vector normal))))
-- Stefan