emacs-framebuffer

commit eb3e74f7371c8f8301c088068e9c6b020ccc2c30
parent e727d1ef6dd4896e7edfa66a44ac6d3b1191ad50
Author: Tomas Hlavaty <tom@logand.com>
Date:   Fri,  5 Jan 2024 17:43:52 +0100

plusp was renamed to cl-plusp

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

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el
@@ -518,7 +518,7 @@
     (goto-char (point-min))
     (when (search-forward-regexp "^Pages:[ ]*\\([0-9]+\\)$" nil t)
       (let ((z (read (match-string 1))))
-        (when (plusp z)
+        (when (cl-plusp z)
           z)))))
 
 (defun framebuffer-image-npages (file)
@@ -593,7 +593,7 @@
 
 (defun framebuffer-image-mode-goto-page (&optional n)
   (interactive "nPage: ")
-  (unless (plusp n)
+  (unless (cl-plusp n)
     (setq n 1))
   (unless (< n framebuffer-image-mode-npages)
     (setq n framebuffer-image-mode-npages))
@@ -794,7 +794,7 @@
                                   r (char-after (goto-char (1+ (point))))
                                   a (char-after (goto-char (1+ (point)))))
                             (goto-char (1+ (point))))
-                          (setq n (+ (ash n 1) (if (plusp (+ r g b)) 1 0)))
+                          (setq n (+ (ash n 1) (if (cl-plusp (+ r g b)) 1 0)))
                           (cl-incf i)
                           (unless (< i 8)
                             (insert n)