X-Git-Url: https://git.korewanetadesu.com/?p=pico8.git;a=blobdiff_plain;f=pico8.el;h=32239f596b90190d7a926f68a83f6e97032c7ef3;hp=2597bb3701a4121ea6f75acc56f7bf7a03caede3;hb=9ecff5fb488d4a68283b1d70bf34547574ae7a0f;hpb=7c5a210fcfc3290f36482c73bfe17371ada080d2

diff --git a/pico8.el b/pico8.el
index 2597bb3..32239f5 100644
--- a/pico8.el
+++ b/pico8.el
@@ -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)))
 
-   ;; 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)))
@@ -496,9 +495,6 @@ This function needs a lot of work.."
                     (and (re-search-backward "\\<f[gs]et\\|s?spr\\>"
                                              (- (point) 30) t)
                          (char-after)))))
-           ;; FIXME: Actually parse something? lua-mode's sexp
-           ;; commands don't seem too good, and counting parentheses
-           ;; by hand is for nerds.
            (cond ((= c ?f) (pico8-goto-flag n))
                  ((= c ?s) (pico8-goto-sprite n))
                  (t (error "There's nothing obvious to go to")))))