emacs-framebuffer

commit 92078d0d3911b52eaf71674c12f727e7359953cb
parent 35e81278c9c9049a91ee529fa1fdbce8bc64b4ae
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 24 May 2020 15:50:06 +0200

use framebuffer-next-u8

Diffstat:
M
emacs-framebuffer.el
 | 
22
+++++++++++-----------

1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el
@@ -92,18 +92,18 @@
            (a (framebuffer-next-u8 brook)))
       (case a
         (137 ;; png
-         (when (and (= ?P (funcall brook))
-                    (= ?N (funcall brook))
-                    (= ?G (funcall brook))
-                    (= 13 (funcall brook))
-                    (= 10 (funcall brook))
-                    (= 26 (funcall brook))
-                    (= 10 (funcall brook))
+         (when (and (= ?P (framebuffer-next-u8 brook))
+                    (= ?N (framebuffer-next-u8 brook))
+                    (= ?G (framebuffer-next-u8 brook))
+                    (= 13 (framebuffer-next-u8 brook))
+                    (= 10 (framebuffer-next-u8 brook))
+                    (= 26 (framebuffer-next-u8 brook))
+                    (= 10 (framebuffer-next-u8 brook))
                     (<= 12 (framebuffer-next-u32 brook))
-                    (= ?I (funcall brook))
-                    (= ?H (funcall brook))
-                    (= ?D (funcall brook))
-                    (= ?R (funcall brook)))
+                    (= ?I (framebuffer-next-u8 brook))
+                    (= ?H (framebuffer-next-u8 brook))
+                    (= ?D (framebuffer-next-u8 brook))
+                    (= ?R (framebuffer-next-u8 brook)))
            (cons (framebuffer-next-u32 brook)
                  (framebuffer-next-u32 brook))))
         (#xff ;; jpeg