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.