# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954882274 0
# Node ID bb2bb38512a3c2909bcc7f155f2193860c391b25
# Parent  a8184f890df442ff3f8ede5510d0a971294f6374
(isearch-mode-map): Define M-C-s like C-s and M-C-r
like C-r.

diff -r a8184f890df4 -r bb2bb38512a3 lisp/isearch.el
--- a/lisp/isearch.el	Tue Apr 04 21:03:15 2000 +0000
+++ b/lisp/isearch.el	Tue Apr 04 21:04:34 2000 +0000
@@ -1,6 +1,7 @@
 ;;; isearch.el --- incremental search minor mode.
 
-;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000
+;;   Free Software Foundation, Inc.
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 ;; Maintainer: FSF
@@ -266,6 +267,11 @@
       ;; Several non-printing chars change the searching behavior.
       (define-key map "\C-s" 'isearch-repeat-forward)
       (define-key map "\C-r" 'isearch-repeat-backward)
+      ;; Define M-C-s and M-C-r like C-s and C-r so that the same key
+      ;; combinations can be used to repeat regexp isearches that can
+      ;; be used to start these searches.
+      (define-key map "\M-\C-s" 'isearch-repeat-forward)
+      (define-key map "\M-\C-r" 'isearch-repeat-backward)
       (define-key map "\177" 'isearch-delete-char)
       (define-key map "\C-g" 'isearch-abort)
       ;; This assumes \e is the meta-prefix-char.