projects
/
pico8.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix self-insert on Emacs 25.
[pico8.git]
/
pico8.el
diff --git
a/pico8.el
b/pico8.el
index
bc3ce11
..
95fcd20
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)
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)
(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.
(defun pico8-goto-char (position)
"Set point to POSITION, a number.
@@
-454,9
+454,8
@@
this is the numeric literal in the code."
(let ((beg (- (point) (% (min 255 (current-column)) 2))))
(string-to-number (buffer-substring beg (+ beg 2)) 16)))
(let ((beg (- (point) (% (min 255 (current-column)) 2))))
(string-to-number (buffer-substring beg (+ beg 2)) 16)))
- ;; In Lua or other code, the sprite is a numeric literal.
- ;; lua-mode doesn't derive from anything.
- ((or (derived-mode-p 'lua-mode) (derived-mode-p 'prog-mode))
+ ;; In Lua, the sprite is a numeric literal.
+ ((derived-mode-p 'lua-mode)
(pico8--string-to-number (or (word-at-point) "")))
(t nil)))
(pico8--string-to-number (or (word-at-point) "")))
(t nil)))