From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 18 Mar 2006 15:11:48 +0000 (+0000)
Subject: (isearch-other-meta-char): Handle user bindings for shifted control characters.
X-Git-Tag: emacs-pretest-22.0.90~3527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f438bf5c0b43aaec1444a0f65fc61df6e470c2a6;p=emacs.git

(isearch-other-meta-char): Handle user bindings for shifted control characters.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 8649ba520fe..7e491c378ab 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1696,12 +1696,15 @@ Isearch mode."
 	     (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))