emacs-pretest-bug
[Top][All Lists]
Advanced

[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




reply via email to

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