Mercurial > emacs

comparison lisp/isearch.el @ 2035:d59e199d4f6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-unread): Find last list element by hand.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Mar 1993 04:22:00 +0000
parents f2dbfd43a1c5
children bbf37b9a24af
comparison
equal deleted inserted replaced
2034:8f940ad51dd0 2035:d59e199d4f6f
2 ;; Copyright (C) 1992 Free Software Foundation, Inc. 2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
3 3
4 ;; LCD Archive Entry: 4 ;; LCD Archive Entry:
5 ;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu 5 ;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu
6 ;; |A minor mode replacement for isearch.el. 6 ;; |A minor mode replacement for isearch.el.
7 ;; |$Date: 1993/02/17 21:30:25 $|$Revision: 1.19 $|~/modes/isearch-mode.el 7 ;; |$Date: 1993/03/06 06:15:05 $|$Revision: 1.20 $|~/modes/isearch-mode.el
8 8
9 ;; This file is not yet part of GNU Emacs, but it is based almost 9 ;; This file is not yet part of GNU Emacs, but it is based almost
10 ;; entirely on isearch.el which is part of GNU Emacs. 10 ;; entirely on isearch.el which is part of GNU Emacs.
11 11
12 ;; GNU Emacs is distributed in the hope that it will be useful, 12 ;; GNU Emacs is distributed in the hope that it will be useful,
86 ;; - Hooks and options for failed search. 86 ;; - Hooks and options for failed search.
87 87
88 ;;;==================================================================== 88 ;;;====================================================================
89 ;;; Change History 89 ;;; Change History
90 90
91 ;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.19 1993/02/17 21:30:25 rms Exp rms $ 91 ;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.20 1993/03/06 06:15:05 rms Exp rms $
92 ;;; $Log: isearch-mode.el,v $ 92 ;;; $Log: isearch-mode.el,v $
93 ; Revision 1.20 1993/03/06 06:15:05 rms
94 ; (isearch-unread): Handle multiple args.
95 ; For Emacs 19, use listify-key-sequence.
96 ; If not Emacs 19, assume they are a meta sequence.
97 ; (isearch-other-meta-char): Pass the whole key sequence.
98 ; (isearch-other-control-char): Make this alias for ...-meta-char.
99 ;
93 ; Revision 1.19 1993/02/17 21:30:25 rms 100 ; Revision 1.19 1993/02/17 21:30:25 rms
94 ; Fix minor bugs in previous change. 101 ; Fix minor bugs in previous change.
95 ; 102 ;
96 ; Revision 1.18 1993/02/17 20:34:20 rms 103 ; Revision 1.18 1993/02/17 20:34:20 rms
97 ; (isearch-backward-regexp): 104 ; (isearch-backward-regexp):
1434 (setq foo char-or-events) 1441 (setq foo char-or-events)
1435 ;; General function to unread characters or events. 1442 ;; General function to unread characters or events.
1436 (if isearch-gnu-emacs-events 1443 (if isearch-gnu-emacs-events
1437 (setq unread-command-events (listify-key-sequence char-or-events)) 1444 (setq unread-command-events (listify-key-sequence char-or-events))
1438 (let ((char (if (cdr char-or-events) 1445 (let ((char (if (cdr char-or-events)
1439 (+ 128 (car (last char-or-events))) 1446 (progn
1447 (while (cdr char-or-events)
1448 (setq char-or-events (cdr char-or-events)))
1449 (+ 128 (car char-or-events)))
1440 (car char-or-events)))) 1450 (car char-or-events))))
1441 (if isearch-event-data-type 1451 (if isearch-event-data-type
1442 (setq unread-command-event char) 1452 (setq unread-command-event char)
1443 (setq unread-command-char char))))) 1453 (setq unread-command-char char)))))
1444 1454