From: Juri Linkov <juri@jurta.org>
Date: Sat, 8 Feb 2014 10:20:45 +0000 (+0200)
Subject: * lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted... 
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~96
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2423c8d576232f0b0fa9fa7b431883f9b3452921;p=emacs.git

* lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted-insert'.

Fixes: debbugs:16677
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5169fde1a88..25c88c48996 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-08  Juri Linkov  <juri@jurta.org>
+
+	* isearch.el (isearch-quote-char): Check character validity
+	like in `quoted-insert' (bug#16677).
+
 2014-02-08  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* files.el (find-file-visit-truename): Doc clarification (bug#14697).
diff --git a/lisp/isearch.el b/lisp/isearch.el
index c8dc89cb821..86a0d8fc141 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2301,6 +2301,9 @@ before the command is executed globally with terminated Isearch."
 With argument, add COUNT copies of the character."
   (interactive "p")
   (let ((char (read-quoted-char (isearch-message t))))
+    (unless (characterp char)
+      (user-error "%s is not a valid character"
+		  (key-description (vector char))))
     ;; Assume character codes 0200 - 0377 stand for characters in some
     ;; single-byte character set, and convert them to Emacs
     ;; characters.