changeset 2889:debc28aaae2c

(isearch-mode-map): Use vector, not string, to bind printing characters.

--- a/lisp/isearch.el	Wed May 19 04:44:11 1993 +0000
+++ b/lisp/isearch.el	Wed May 19 04:44:42 1993 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <[e-mail]>
 
-;; |$Date: 1993/05/17 18:22:37 $|$Revision: 1.34 $
+;; |$Date: 1993/05/18 15:46:30 $|$Revision: 1.35 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -89,114 +89,8 @@
 
 ;;; Change Log:
 
-;;;====================================================================
-;;; Change History
+;;; Changes before those recorded in ChangeLog:
 
-;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.34 1993/05/17 18:22:37 rms Exp rms $
-;;; $Log: isearch.el,v $
-; Revision 1.34  1993/05/17  18:22:37  rms
-; (isearch-mode): Set deactivate-mark.
-;
-; Revision 1.33  1993/05/15  20:05:36  rms
-; (isearch-done): Don't activate mark.
-;
-; Revision 1.32  1993/05/14  18:02:55  rms
-; (isearch-mode-map): Handle any length vector in keymap.
-; (isearch-char-to-string): Handle non-character events properly.
-;
-; Revision 1.31  1993/04/23  07:31:14  eric
-; Replaced all fsets with defaliases.
-;
-; Revision 1.30  1993/04/14  19:40:53  rms
-; Doc fixes.
-;
-; Revision 1.29  1993/03/30  19:42:10  rms
-; (isearch-done): Customize the message about mark.
-;
-; Revision 1.28  1993/03/30  19:38:34  rms
-; (isearch-mode-map): Delete the binding for C-h.
-;
-; Revision 1.27  1993/03/21  05:50:17  jimb
-; 	* isearch.el (isearch-switch-frame-handler): Call
-; 	handle-switch-frame instead of select-frame; it has been renamed.
-;
-; Revision 1.26  1993/03/17  17:17:05  eric
-; Add standard library headers.
-;
-; Revision 1.25  1993/03/17  16:44:50  eric
-; Add standard library headers.
-;
-; Revision 1.24  1993/03/17  15:58:09  eric
-; Add standard library headers.
-;
-; Revision 1.23  1993/03/07  20:17:27  rms
-; (isearch-other-meta-char): Call listify-key-sequence.
-; (isearch-unread): Don't call it here.
-; (isearch-mode-map): Bind the ASCII-equivalent function keys.
-;
-; Revision 1.22  1993/03/07  08:43:57  rms
-; (isearch-mode): Don't make a pre-command-hook.
-;
-; Revision 1.21  1993/03/07  04:22:00  rms
-; (isearch-unread): Find last list element by hand.
-;
-; Revision 1.20  1993/03/06  06:15:05  rms
-; (isearch-unread): Handle multiple args.
-; For Emacs 19, use listify-key-sequence.
-; If not Emacs 19, assume they are a meta sequence.
-; (isearch-other-meta-char): Pass the whole key sequence.
-; (isearch-other-control-char): Make this alias for ...-meta-char.
-;
-; Revision 1.19  1993/02/17  21:30:25  rms
-; Fix minor bugs in previous change.
-;
-; Revision 1.18  1993/02/17  20:34:20  rms
-; (isearch-backward-regexp):
-; New arg no-recursive-edit, always non-nil for interactive call.
-; Rename first arg, and set it right in interactive call.
-; (isearch-forward-regexp): Likewise.
-; (isearch-forward, isearch-backward): Likewise no-recursive-edit.
-;
-; Revision 1.17  1993/01/26  01:48:27  jimb
-; JimB's changes since January 18th
-;
-; Revision 1.16  1992/11/16  01:37:06  jimb
-; 	* bytecomp.el: Declare unread-command-char an obsolete variable.
-; 	* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
-; 	vip-prefix-arg-com): Use unread-command-event instead of
-; 	unread-command-char; respect its new semantics.
-; 	* isearch-mode.el (isearch-update, isearch-unread): Same.
-;
-; Revision 1.15  1992/11/07  06:17:04  jimb
-;         * isearch.el (isearch-frames-exist): This isn't what we want -
-; 	replaced by...
-; 	(isearch-gnu-emacs-events): non-nil if should expect events in the
-; 	style generated by GNU Emacs 19.  Set if set-frame-height is
-; 	fboundp; this is true on any GNU Emacs 19, whether or not it was
-; 	compiled with multiple frame support.
-; 	(isearch-mode-map): Test isearch-gnu-emacs-events instead of
-; 	isearch-frames-exist to see if we should bind switch-frame events.
-; 	(isearch-update): Test isearch-gnu-emacs-events instead of
-; 	isearch-frames-exist to see if unread-command-char's quiescent
-; 	value is nil or -1.
-;
-; Revision 1.14  1992/11/01  22:10:59  rms
-; (isearch-search): Handle all sorts of errors from regexp search.
-;
-; Revision 1.13  1992/10/27  04:11:46  rms
-; (isearch-edit-string):
-; Bind cursor-in-echo-area only around read-char/allocate-event.
-;
-; Revision 1.12  1992/10/20  21:21:47  rms
-; (isearch-mode-map): Make the top-level keymap dense.
-; Explicitly bind control characters at that level.
-;
-; Revision 1.11  1992/10/11  05:25:11  rms
-; (isearch-ring-advance-edit): Delete spurious `)'.
-;
-; Revision 1.10  1992/09/21  08:28:43  rms
-; entered into RCS
-;
 ;;; Revision 1.4  92/09/14  16:26:02  liberte
 ;;; Added prefix args to isearch-forward, etc. to switch between
 ;;;    string and regular expression searching.
@@ -342,10 +236,10 @@
 	(define-key map (make-string 1 i) 'isearch-other-control-char)
 	(setq i (1+ i)))
 
-      ;; Printing chars extend the selection by default.
+      ;; Printing chars extend the search string by default.
       (setq i ?\ )
       (while (< i (length (nth 1 map)))
-	(define-key map (make-string 1 i) 'isearch-printing-char)
+	(define-key map (vector i) 'isearch-printing-char)
 	(setq i (1+ i)))
 
       ;; Several non-printing chars change the searching behavior.