comparison lisp/isearch.el @ 2857:00029a6ad94c

(isearch-mode-map): Extend the dense keymap to 256 chars.

2856:794899b97115

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Daniel LaLiberte <[e-mail]>

;; |$Date: 1993/05/15 20:05:36 $|$Revision: 1.33 $

;; This file is not yet part of GNU Emacs, but it is based almost
;; entirely on isearch.el which is part of GNU Emacs.

;; GNU Emacs is distributed in the hope that it will be useful,

;;; Change Log:

;;;====================================================================
;;; Change History

;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.33 1993/05/15 20:05:36 rms Exp rms $
;;; $Log: isearch.el,v $
; 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.

  "Keymap for isearch-mode.")

(or isearch-mode-map
    (let* ((i 0)
	   (map (make-keymap)))

      ;; Make function keys, etc, exit the search.
      (define-key map [t] 'isearch-other-control-char)
      ;; Control chars, by default, end isearch mode transparently.
      ;; We need these explicit definitions because, in a dense keymap, 

	(define-key map (make-string 1 i) 'isearch-other-control-char)
	(setq i (1+ i)))

      ;; Printing chars extend the selection by default.
      (setq i ?\ )
      (or (vectorp (nth 1 map))
	  (error "The initialization of isearch-mode-map must be updated"))
      (while (< i (length (nth 1 map)))
	(define-key map (make-string 1 i) 'isearch-printing-char)
	(setq i (1+ i)))

      ;; Several non-printing chars change the searching behavior.

2857:00029a6ad94c

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Daniel LaLiberte <[e-mail]>

;; |$Date: 1993/05/17 18:22:37 $|$Revision: 1.34 $

;; This file is not yet part of GNU Emacs, but it is based almost
;; entirely on isearch.el which is part of GNU Emacs.

;; GNU Emacs is distributed in the hope that it will be useful,

;;; Change Log:

;;;====================================================================
;;; Change History

;;; $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.

  "Keymap for isearch-mode.")

(or isearch-mode-map
    (let* ((i 0)
	   (map (make-keymap)))
      (or (vectorp (nth 1 map))
	  (error "The initialization of isearch-mode-map must be updated"))
      ;; Give this map a vector 256 long, for dense binding
      ;; of a larger range of ordinary characters.
      (setcar (cdr map) (make-vector 256 nil))

      ;; Make function keys, etc, exit the search.
      (define-key map [t] 'isearch-other-control-char)
      ;; Control chars, by default, end isearch mode transparently.
      ;; We need these explicit definitions because, in a dense keymap, 

	(define-key map (make-string 1 i) 'isearch-other-control-char)
	(setq i (1+ i)))

      ;; Printing chars extend the selection by default.
      (setq i ?\ )
      (while (< i (length (nth 1 map)))
	(define-key map (make-string 1 i) 'isearch-printing-char)
	(setq i (1+ i)))

      ;; Several non-printing chars change the searching behavior.