[Emacs-diffs] trunk r116340: * lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted-insert'.

[Juri Linkov]

------------------------------------------------------------
revno: 116340
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16677
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2014-02-08 12:20:45 +0200
message:
  * lisp/isearch.el (isearch-quote-char): Check character validity like in 
`quoted-insert'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/isearch.el                isearch.el-20091113204419-o5vbwnq5f7feedwu-486

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-08 06:58:15 +0000
+++ b/lisp/ChangeLog    2014-02-08 10:20:45 +0000
@@ -1,3 +1,8 @@
+2014-02-08  Juri Linkov  <address@hidden>
+
+       * isearch.el (isearch-quote-char): Check character validity
+       like in `quoted-insert' (bug#16677).
+
 2014-02-08  Lars Ingebrigtsen  <address@hidden>
 
        * files.el (find-file-visit-truename): Doc clarification (bug#14697).

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2014-02-08 06:56:18 +0000
+++ b/lisp/isearch.el   2014-02-08 10:20:45 +0000
@@ -2301,6 +2301,9 @@
 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.