mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-19 04:44:42 +00:00
parent 8fa51910a2
commit 8cb2ceaa93
1 changed files with 4 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
lisp/isearch.el
View File

@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$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 @@ Default value, nil, means edit the string instead.")
(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.