# HG changeset patch # User Richard M. Stallman # Date 737786682 0 # Node ID debc28aaae2c9b2806fe1424e6c6149c059755f7 # Parent e931a98b2f36047b7aee40841afc0a9fd6eadd3a (isearch-mode-map): Use vector, not string, to bind printing characters. diff -r e931a98b2f36 -r debc28aaae2c lisp/isearch.el --- 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 -;; |$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.