Mercurial > emacs
comparison lisp/isearch.el @ 28504:bb2bb38512a3
(isearch-mode-map): Define M-C-s like C-s and M-C-r
like C-r.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 04 Apr 2000 21:04:34 +0000 |
| parents | 5f10effee172 |
| children | e67ef9cdfe51 |
comparison
equal
deleted
inserted
replaced
| 28503:a8184f890df4 | 28504:bb2bb38512a3 |
|---|---|
| 1 ;;; isearch.el --- incremental search minor mode. | 1 ;;; isearch.el --- incremental search minor mode. |
| 2 | 2 |
| 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000 |
| 4 ;; Free Software Foundation, Inc. | |
| 4 | 5 |
| 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> | 6 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
| 6 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 7 ;; Keywords: matching | 8 ;; Keywords: matching |
| 8 | 9 |
| 264 (define-key map (vector meta-prefix-char t) 'isearch-other-meta-char) | 265 (define-key map (vector meta-prefix-char t) 'isearch-other-meta-char) |
| 265 | 266 |
| 266 ;; Several non-printing chars change the searching behavior. | 267 ;; Several non-printing chars change the searching behavior. |
| 267 (define-key map "\C-s" 'isearch-repeat-forward) | 268 (define-key map "\C-s" 'isearch-repeat-forward) |
| 268 (define-key map "\C-r" 'isearch-repeat-backward) | 269 (define-key map "\C-r" 'isearch-repeat-backward) |
| 270 ;; Define M-C-s and M-C-r like C-s and C-r so that the same key | |
| 271 ;; combinations can be used to repeat regexp isearches that can | |
| 272 ;; be used to start these searches. | |
| 273 (define-key map "\M-\C-s" 'isearch-repeat-forward) | |
| 274 (define-key map "\M-\C-r" 'isearch-repeat-backward) | |
| 269 (define-key map "\177" 'isearch-delete-char) | 275 (define-key map "\177" 'isearch-delete-char) |
| 270 (define-key map "\C-g" 'isearch-abort) | 276 (define-key map "\C-g" 'isearch-abort) |
| 271 ;; This assumes \e is the meta-prefix-char. | 277 ;; This assumes \e is the meta-prefix-char. |
| 272 (or (= ?\e meta-prefix-char) | 278 (or (= ?\e meta-prefix-char) |
| 273 (error "Inconsistency in isearch.el")) | 279 (error "Inconsistency in isearch.el")) |