emacs-framebuffer

commit 5efe4eaa9fbd5c4e8c76a6984b5f731fece38ec2
parent eb3e74f7371c8f8301c088068e9c6b020ccc2c30
Author: Tomas Hlavaty <tom@logand.com>
Date:   Fri,  5 Jan 2024 19:20:09 +0100

unused variables

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

1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el
@@ -337,7 +337,7 @@
                    h))))
         (?B ;; bmp
          (when (= ?M (framebuffer-next-u8 brook))
-           (dotimes (i 16)
+           (dotimes (_i 16)
              (framebuffer-next-u8 brook))
            (cons (framebuffer-next-u32le brook)
                  (framebuffer-next-u32le brook))))
@@ -359,10 +359,10 @@
                (when (= #x2a (funcall u16 brook))
                  (let (w h)
                    (goto-char (1+ (funcall u32 brook)))
-                   (dotimes (i (funcall u16 brook))
+                   (dotimes (_i (funcall u16 brook))
                      (let ((tag (funcall u16 brook))
                            (type (funcall u16 brook))
-                           (n (funcall u32 brook))
+                           (_n (funcall u32 brook))
                            (v (funcall u32 brook)))
                        (cl-case tag
                          (#x0100
@@ -730,7 +730,7 @@
 (defun framebuffer-draw-test ()
   (interactive)
   (cl-destructuring-bind (fbw &rest fbh) (framebuffer-size)
-    (cl-destructuring-bind (vw &rest vh) (framebuffer-virtual-size)
+    (cl-destructuring-bind (_vw &rest vh) (framebuffer-virtual-size)
       (cl-destructuring-bind (x1 y1 x2 y2) (window-edges (get-buffer-window) t)
         (let* ((fw (frame-width))
                (fh (frame-height))
@@ -766,7 +766,7 @@
                   (or framebuffer-screenshot-directory
                       (temporary-file-directory))))))
   (cl-destructuring-bind (w &rest h) (framebuffer-size)
-    (cl-destructuring-bind (vw &rest vh) (framebuffer-virtual-size)
+    (cl-destructuring-bind (_vw &rest vh) (framebuffer-virtual-size)
       (with-temp-buffer
         (set-buffer-multibyte nil)
         (insert-file-contents-literally "/dev/fb0")
@@ -786,8 +786,9 @@
                       (goto-char (+ (point-min) (* stride y))))
                     (let ((i 0)
                           (n 0))
-                      (dotimes (x w)
+                      (dotimes (_x w)
                         (let (r g b a)
+                          (ignore a)
                           (with-current-buffer fb
                             (setq b (char-after)
                                   g (char-after (goto-char (1+ (point))))
@@ -813,8 +814,9 @@
                   (dotimes (y h)
                     (with-current-buffer fb
                       (goto-char (+ (point-min) (* stride y))))
-                    (dotimes (x w)
+                    (dotimes (_x w)
                       (let (r g b a)
+                        (ignore a)
                         (with-current-buffer fb
                           (setq b (char-after)
                                 g (char-after (goto-char (1+ (point))))
@@ -833,8 +835,9 @@
                   (dotimes (y h)
                     (with-current-buffer fb
                       (goto-char (+ (point-min) (* stride y))))
-                    (dotimes (x w)
+                    (dotimes (_x w)
                       (let (r g b a)
+                        (ignore a)
                         (with-current-buffer fb
                           (setq b (char-after)
                                 g (char-after (goto-char (1+ (point))))