* lisp/simple.el (quoted-insert): Check character validity (bug#16677).

e255a703 · Juanma Barranquero · 9be95071 · e255a703 · e255a703
Commit e255a703 authored Feb 07, 2014 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/simple.el lisp/simple.el +3 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2014-02-07  Juanma Barranquero  <lekktu@gmail.com>
+
+	* simple.el (quoted-insert): Check character validity (bug#16677).
+
 2014-02-07  Juri Linkov  <juri@jurta.org>

 	* desktop.el (desktop-read): Claim the lock when the owner is not

--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -738,6 +738,9 @@ useful for editing binary files."
    ;;          (>= char ?\240)
    ;;          (<= char ?\377))
    ;;     (setq char (unibyte-char-to-multibyte char)))
+    (unless (characterp char)
+      (user-error "%s is not a valid character"
+		  (key-description (vector char))))
    (if (> arg 0)
 	(if (eq overwrite-mode 'overwrite-mode-binary)
 	    (delete-char arg)))