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

1 files changed, 9 insertions, 6 deletions

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))