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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd1ad94af2920390436ac1a73c3099fae8fe0c78..42d57a4ea7a990b9f2f5764e72685e8587c29149 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/lisp/simple.el b/lisp/simple.el
index f1955b585006fc40b4a2efdcf0904ef6148fa256..124e04fd0c011ffd47f144e520ed6057d1816ce5 100644 (file)
--- 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)))