From 8f8b10d094b14dc6b5fc8cf105a5ae456b02d42e Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Sat, 9 Sep 2017 13:06:56 +0200 Subject: [PATCH] Fix self-insert on Emacs 25. --- pico8.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pico8.el b/pico8.el index 32239f5..95fcd20 100644 --- 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. -- 2.30.2