(ioccur-read-search-input): Add C-q command `quoted-insert'.

diff --git a/ioccur.el b/ioccur.el
index aac96e0153bf8cf2e7205182735a9438eaa26cb8..39776e956adcbcdde9fd0b5a21bf15a249304931 100644 (file)
--- a/ioccur.el
+++ b/ioccur.el
@@ -806,6 +806,14 @@ START-POINT is the point where we start searching in buffer."
                  ((backtab ?\M-n)               ; Next history elm.
                   (start-timer)
                   (cycle-hist 1))
+                 (?\C-q                         ; quoted-insert
+                  (stop-timer)
+                  (let ((char (with-temp-buffer
+                                (call-interactively 'quoted-insert)
+                                (buffer-string))))
+                    (push (string-to-char char) tmp-list))
+                  (start-timer)
+                  t)
                  (t                             ; Store character.
                   (start-timer)
                   (if (characterp char)