[Emacs-diffs] trunk r116308: * lisp/simple.el (quoted-insert): Check character validity (bug#16677).

[Juanma Barranquero]

------------------------------------------------------------
revno: 116308
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16677
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2014-02-07 12:13:31 +0100
message:
  * lisp/simple.el (quoted-insert): Check character validity (bug#16677).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-07 07:58:10 +0000
+++ b/lisp/ChangeLog    2014-02-07 11:13:31 +0000
@@ -1,3 +1,7 @@
+2014-02-07  Juanma Barranquero  <address@hidden>
+
+       * simple.el (quoted-insert): Check character validity (bug#16677).
+
 2014-02-07  Juri Linkov  <address@hidden>
 
        * desktop.el (desktop-read): Claim the lock when the owner is not

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-02-07 03:22:34 +0000
+++ b/lisp/simple.el    2014-02-07 11:13:31 +0000
@@ -738,6 +738,9 @@
     ;;          (>= 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)))