diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-12-25 00:50:10 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-12-25 00:50:10 +0000 |
commit | 5328bdf02f79d986fca58452ce572909e3aea2ef (patch) | |
tree | 983f2ee5cfe8b596b2a99c55a9aa4c3360e3b869 /lisp/isearch.el | |
parent | cb97536ea44f5dbe7336ea7ad92755480907e2f8 (diff) | |
download | emacs-5328bdf02f79d986fca58452ce572909e3aea2ef.tar.gz |
(isearch-mode-map): Bind kp-... keys.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 7be09bd5f28..ba24618d1a6 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1993/12/23 03:28:10 $|$Revision: 1.56 $ +;; |$Date: 1993/12/24 03:30:11 $|$Revision: 1.57 $ ;; This file is part of GNU Emacs. @@ -242,6 +242,26 @@ Default value, nil, means edit the string instead.") ;; since otherwise the default binding would override. ;; We bind [escape] below. (define-key map [tab] 'isearch-printing-char) + (define-key map [kp-0] 'isearch-printing-char) + (define-key map [kp-1] 'isearch-printing-char) + (define-key map [kp-2] 'isearch-printing-char) + (define-key map [kp-3] 'isearch-printing-char) + (define-key map [kp-4] 'isearch-printing-char) + (define-key map [kp-5] 'isearch-printing-char) + (define-key map [kp-6] 'isearch-printing-char) + (define-key map [kp-7] 'isearch-printing-char) + (define-key map [kp-8] 'isearch-printing-char) + (define-key map [kp-9] 'isearch-printing-char) + (define-key map [kp-add] 'isearch-printing-char) + (define-key map [kp-subtract] 'isearch-printing-char) + (define-key map [kp-multiply] 'isearch-printing-char) + (define-key map [kp-divide] 'isearch-printing-char) + (define-key map [kp-decimal] 'isearch-printing-char) + (define-key map [kp-separator] 'isearch-printing-char) + (define-key map [kp-equal] 'isearch-printing-char) + (define-key map [kp-tab] 'isearch-printing-char) + (define-key map [kp-space] 'isearch-printing-char) + (define-key map [kp-enter] 'isearch-exit) (define-key map [delete] 'isearch-delete-char) (define-key map [backspace] 'isearch-delete-char) (define-key map [return] 'isearch-exit) |