From 2423c8d576232f0b0fa9fa7b431883f9b3452921 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 8 Feb 2014 12:20:45 +0200 Subject: [PATCH] * lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted-insert'. Fixes: debbugs:16677 --- lisp/ChangeLog | 5 +++++ lisp/isearch.el | 3 +++ 2 files changed, 8 insertions(+) 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 + + * isearch.el (isearch-quote-char): Check character validity + like in `quoted-insert' (bug#16677). + 2014-02-08 Lars Ingebrigtsen * 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. -- 2.39.2