[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116340: * lisp/isearch.el (isearch-quote-char): Che
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] trunk r116340: * lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted-insert'. |
Date: |
Sat, 08 Feb 2014 10:20:49 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116340: * lisp/isearch.el (isearch-quote-char): Check character validity like in `quoted-insert'.,
Juri Linkov <=