# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1142694708 0
# Node ID 30b0fe844c710f817ff9b5b08baae003979ceacf
# Parent  e5352a2d20bcf3b25f21bcd4d948c8450d0e8ca4
(isearch-other-meta-char): Handle user bindings for shifted control characters.

diff -r e5352a2d20bc -r 30b0fe844c71 lisp/isearch.el
--- a/lisp/isearch.el	Sat Mar 18 15:05:35 2006 +0000
+++ b/lisp/isearch.el	Sat Mar 18 15:11:48 2006 +0000
@@ -1696,12 +1696,15 @@
 	     (and (integerp main-event)
 		  (memq 'shift mods)
 		  (memq 'control mods)
-		  (lookup-key isearch-mode-map
-			      (let ((copy (copy-sequence key)))
-				(aset copy 0
-				      (- main-event (- ?\C-\S-a ?\C-a)))
-				copy)
-			      nil)))
+		  (not (memq (lookup-key isearch-mode-map
+					 (let ((copy (copy-sequence key)))
+					   (aset copy 0
+						 (- main-event
+						    (- ?\C-\S-a ?\C-a)))
+					   copy)
+					 nil)
+			     '(nil
+			       isearch-other-control-char)))))
 	   (setcar keylist (- main-event (- ?\C-\S-a ?\C-a)))
 	   (cancel-kbd-macro-events)
 	   (apply 'isearch-unread keylist))