Fix self-insert on Emacs 25.
authorJoe Wreschnig <joe.wreschnig@gmail.com>
Sat, 9 Sep 2017 11:06:56 +0000 (13:06 +0200)
committerJoe Wreschnig <joe.wreschnig@gmail.com>
Sat, 9 Sep 2017 11:06:56 +0000 (13:06 +0200)
pico8.el

index 32239f596b90190d7a926f68a83f6e97032c7ef3..95fcd2036190d7ef2daeba073c5a53f2f3361652 100644 (file)
--- a/pico8.el
+++ b/pico8.el
@@ -109,13 +109,13 @@ insert the typed character if it is one of these characters,
 overwriting one of these characters."
   (interactive "P")
   (when (memq (char-after) pico8-data-characters)
-    (let ((overwrite-mode t))
+    (let ((overwrite-mode 'overwrite-mode-textual))
       (self-insert-command (prefix-numeric-value n)))))
 
 (let ((map pico8-data-mode-map))
   (suppress-keymap map)
-  (dolist (c pico8-data-characters)
-    (define-key map (format "%c" c) 'pico8-data-self-insert-command)))
+  (dolist (c (mapcar #'char-to-string pico8-data-characters))
+    (define-key map c 'pico8-data-self-insert-command)))
 
 (defun pico8-goto-char (position)
   "Set point to POSITION, a number.