]> git.eshelyaron.com Git - emacs.git/commitdiff
Prefer plusp/minusp to cl-plusp/cl-minusp
authorStefan Kangas <stefankangas@gmail.com>
Mon, 17 Feb 2025 21:04:41 +0000 (22:04 +0100)
committerEshel Yaron <me@eshelyaron.com>
Tue, 18 Feb 2025 08:57:04 +0000 (09:57 +0100)
* lisp/dired.el (dired--move-to-next-line):
* lisp/emacs-lisp/ert.el (ert-run-tests-batch, ert-face-for-stats):
* lisp/emacs-lisp/pp.el (pp--format-definition):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event--org-timestamp):
* lisp/ibuffer.el (ibuffer-compile-format, ibuffer--format-title)
(ibuffer--format-summary):
* lisp/image-mode.el (image-transform-set-percent):
* lisp/international/emoji.el (emoji--list-generate, emoji--read-emoji):
* lisp/progmodes/ebrowse.el (ebrowse-set-tree-indentation)
(ebrowse-set-member-buffer-column-width)
(ebrowse-cyclic-display-next/previous-member-list)
(ebrowse-draw-member-short-fn)
(ebrowse-switch-member-buffer-to-sibling-class, ebrowse-push-position):
* lisp/textmodes/dns-mode.el (dns-mode-reverse-and-expand-ipv6):
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-tests--not-writable-directory)
(bytecomp-tests--dest-mountpoint)
(bytecomp-tests--target-file-no-directory):
* test/lisp/emacs-lisp/cl-seq-tests.el (cl-member-if-test)
(cl-member-if-not-test, cl-assoc-if-not-test, cl-rassoc-if-test)
(cl-rassoc-if-not-test):
* test/src/emacs-module-tests.el (mod-test-add-nanosecond/valid):
Prefer plusp and minusp to cl-plusp and cl-minusp.

(cherry picked from commit 83bc811f7fad00b9b4ed3e4ffd67a96226991ca3)

lisp/dired.el
lisp/emacs-lisp/ert.el
lisp/emacs-lisp/pp.el
lisp/gnus/gnus-icalendar.el
lisp/ibuffer.el
lisp/image-mode.el
lisp/international/emoji.el
lisp/textmodes/dns-mode.el
test/lisp/emacs-lisp/bytecomp-tests.el
test/lisp/emacs-lisp/cl-seq-tests.el
test/src/emacs-module-tests.el

index 8a91c04bc4ae231c26792d4e84f519f7bb641671..acaa2174a071e39ae1fbbff3e1cabd36061eeff7 100644 (file)
@@ -2910,7 +2910,7 @@ is controlled by `dired-movement-style'."
                         (dired-move-to-filename)
                         (point)))
         ;; Up/Down indicates the direction.
-        (moving-down (if (cl-plusp arg)
+        (moving-down (if (plusp arg)
                          1              ; means Down.
                        -1)))            ; means Up.
     ;; Line by line in case we forget to skip empty lines.
@@ -2926,7 +2926,7 @@ is controlled by `dired-movement-style'."
           ;; means infinite loop with no files found.
           (if (and wrapped (eq old-arg arg))
               (setq arg 0)
-            (goto-char (if (cl-plusp moving-down)
+            (goto-char (if (plusp moving-down)
                            (point-min)
                          (point-max))))
           (setq wrapped t))
index a0c72d2a0c89131659cf3c686d6037f51fe87841..fb4dd82381cf0fb5a2700ef1710bcd436ad6d55e 100644 (file)
@@ -1412,7 +1412,7 @@ Returns the stats object."
                          (message "%9s  %S%s"
                                   (ert-string-for-test-result result nil)
                                   (ert-test-name test)
-                                  (if (cl-plusp
+                                  (if (plusp
                                        (length (getenv "EMACS_TEST_VERBOSE")))
                                       (ert-reason-for-test-result result)
                                     ""))))
@@ -1425,7 +1425,7 @@ Returns the stats object."
                          (message "%9s  %S%s"
                                   (ert-string-for-test-result result nil)
                                   (ert-test-name test)
-                                  (if (cl-plusp
+                                  (if (plusp
                                        (length (getenv "EMACS_TEST_VERBOSE")))
                                       (ert-reason-for-test-result result)
                                     ""))))
@@ -2116,7 +2116,7 @@ non-nil, returns the face for expected results.."
 (defun ert-face-for-stats (stats)
   "Return a face that represents STATS."
   (cond ((ert--stats-aborted-p stats) 'nil)
-        ((cl-plusp (ert-stats-completed-unexpected stats))
+        ((plusp (ert-stats-completed-unexpected stats))
          (ert-face-for-test-result nil))
         ((eql (ert-stats-completed-expected stats) (ert-stats-total stats))
          (ert-face-for-test-result t))
index ec784cceecf18a6e66b2c7ba16250858e605aa39..0189ce30e9df1368785ffcb855c86b6e073902b5 100644 (file)
@@ -578,7 +578,7 @@ the bounds of a region containing Lisp code to pretty-print."
     (insert ")")))
 
 (defun pp--format-definition (sexp indent edebug)
-  (while (and (cl-plusp indent)
+  (while (and (plusp indent)
               sexp)
     (insert " ")
     ;; We don't understand all the edebug specs.
index c9f8055fa77f64a2bb13cfe6fd9bc592f6718859..5a55efb3243ed2723758ddd9b9323d5cb83d5cf2 100644 (file)
@@ -510,7 +510,8 @@ Return nil for non-recurring EVENT."
      ;; A 0:0 - A .:. -> A 0:0-.:. (default 1)
      ;; A 0:0 - A+n .:. -> A - A+n .:.
      ((and start-at-midnight
-           (cl-plusp start-end-date-diff)) (format "<%s>--<%s %s>" start-date end-date end-time))
+           (plusp start-end-date-diff))
+      (format "<%s>--<%s %s>" start-date end-date end-time))
      ;; default
      ;; A .:. - A .:. -> A .:.-.:.
      ;; A .:. - B .:.
index c36804c10331b2f889bcfa3ea8fd089b60b17dd2..d8e44bbd8f9eeda5043245a6efb68f5f5b3ca66d 100644 (file)
@@ -1506,7 +1506,7 @@ If point is on a group name, this function operates on that group."
                (max (nth 2 form))
                (align (nth 3 form))
                (elide (nth 4 form)))
-          (let* ((from-end-p (when (cl-minusp min)
+          (let* ((from-end-p (when (minusp min)
                                (setq min (- min))
                                t))
                  (letbindings nil)
@@ -2057,7 +2057,7 @@ the value of point at the beginning of the line for that buffer."
       element
     (pcase-let ((`(,sym ,min ,_max ,align) element))
       ;; Ignore negative MIN, since the titles are left-aligned.
-      (when (cl-minusp min)
+      (when (minusp min)
        (setq min (- min)))
       (let* ((name (or (get sym 'ibuffer-column-name)
                       (error "Unknown column %s in ibuffer-formats" sym)))
@@ -2082,7 +2082,7 @@ the value of point at the beginning of the line for that buffer."
       (make-string (length element) ?\s)
     (pcase-let ((`(,sym ,min ,_max ,align) element))
       ;; Ignore negative MIN, since the summaries are left-aligned.
-      (when (cl-minusp min)
+      (when (minusp min)
         (setq min (- min)))
       (let* ((summary
               (if (get sym 'ibuffer-column-summarizer)
index dfd3d5504f6d1e89820324b18c503f8677bb50f0..47cda0a50cffe993e3a16a1febb87e74d34ac440 100644 (file)
@@ -1566,7 +1566,7 @@ The percentage is in relation to the original size of the image."
   (interactive (list (read-number "Scale (% of original): " 100
                                   'read-number-history))
                image-mode)
-  (unless (cl-plusp scale)
+  (unless (plusp scale)
     (error "Not a positive number: %s" scale))
   (setq image-transform-resize (/ scale 100.0))
   (image-toggle-display-image))
index d39dc3c77cda1ea13476684eee742cb13e731be1..7691a017332fe4643d60dd8474ba60684862fd3f 100644 (file)
@@ -222,7 +222,7 @@ the name is not known."
       (cl-loop for i from 0
                for glyph in alist
                do
-               (when (and (cl-plusp i)
+               (when (and (plusp i)
                           (zerop (mod i width)))
                  (insert "\n"))
                (insert
@@ -681,7 +681,7 @@ We prefer the earliest unique letter."
                                       "")))
                             strings)))))
            nil t)))
-    (if (cl-plusp (length name))
+    (if (plusp (length name))
         (let ((glyph (if emoji-alternate-names
                          (cadr (split-string name "\t"))
                        (gethash name emoji--all-bases))))
index 074819b3a5996f8da2571a0b4420de764383ce6f..5e0d47120d89bce48d76f09afefdcb34b183acd4 100644 (file)
@@ -325,7 +325,7 @@ See `dns-mode-ipv6-to-nibbles' for examples."
                                           (string-to-number chunk 16)))))
          (rev-address-nibbles
           (nreverse (if (and prefix-length
-                             (cl-minusp prefix-length))
+                             (minusp prefix-length))
                         (substring expanded-address prefix-length-nibbles)
                       (substring expanded-address 0 prefix-length-nibbles)))))
     (with-temp-buffer
@@ -334,7 +334,7 @@ See `dns-mode-ipv6-to-nibbles' for examples."
                (insert char)
                (insert "."))
       (if (and prefix-length
-               (cl-minusp prefix-length))
+               (minusp prefix-length))
           (delete-char -1)
         (insert "ip6.arpa."))
       (insert " ")
index 25e5f483f4b03a997149ded7bb3ee75a411f3577..d5f76fd0230437fe961b6396d85d21e26ce9591a 100644 (file)
@@ -1704,8 +1704,8 @@ writable (Bug#44631)."
             (set-file-modes directory #o500)
             (should (byte-compile-file input-file))
             (should (file-regular-p output-file))
-            (should (cl-plusp (file-attribute-size
-                               (file-attributes output-file)))))
+            (should (plusp (file-attribute-size
+                            (file-attributes output-file)))))
         ;; Allow the directory to be deleted.
         (set-file-modes directory #o777)))))
 
@@ -1757,8 +1757,8 @@ mountpoint (Bug#44631)."
                     (ert-fail `((status . ,status)
                                 (output . ,(buffer-string)))))))
               (should (file-regular-p output-file))
-              (should (cl-plusp (file-attribute-size
-                                 (file-attributes output-file)))))
+              (should (plusp (file-attribute-size
+                              (file-attributes output-file)))))
           ;; Allow the directory to be deleted.
           (set-file-modes directory #o777))))))
 
@@ -1772,8 +1772,8 @@ mountpoint (Bug#44631)."
                      nil "test.el" nil nil nil 'excl)
       (should (byte-compile-file "test.el"))
       (should (file-regular-p "test.elc"))
-      (should (cl-plusp (file-attribute-size
-                         (file-attributes "test.elc")))))))
+      (should (plusp (file-attribute-size
+                      (file-attributes "test.elc")))))))
 
 (defun bytecomp-tests--get-vars ()
   (list (ignore-errors (symbol-value 'bytecomp-tests--var1))
index 934304b878a5354ea54b1f60872f74af034a0ef4..3e05ff639d77e9a97bfd4b5e45eba9d2d22c1b52 100644 (file)
@@ -645,7 +645,7 @@ Additionally register an `ert-info' to help identify test failures."
     (should (equal result '(a a a a))))
   (let ((result (cl-member-if #'evenp '())))
     (should (equal result nil)))
-  (let ((result (cl-member-if #'cl-minusp '(1 2 3 4 5))))
+  (let ((result (cl-member-if #'minusp '(1 2 3 4 5))))
     (should (equal result nil)))
   (let ((result (cl-member-if (lambda (x) (and (numberp x) (<= x 2)))
                               '(1 "two" 3 0))))
@@ -672,7 +672,7 @@ Additionally register an `ert-info' to help identify test failures."
     (should (equal result nil)))
   (let ((result (cl-member-if-not (lambda (x) (eq x 'a)) '(a a a a))))
     (should (equal result nil)))
-  (let ((result (cl-member-if-not #'cl-minusp '(1 2 3 4 5))))
+  (let ((result (cl-member-if-not #'minusp '(1 2 3 4 5))))
     (should (equal result '(1 2 3 4 5))))
   (let ((result (cl-member-if-not
                  (lambda (x) (or (numberp x) (stringp x) (eq x 'b)))
@@ -734,7 +734,7 @@ Additionally register an `ert-info' to help identify test failures."
   (let* ((alist '((1 . "odd") (2 . "even") (3 . "odd") (4 . "even")))
          (result (cl-assoc-if-not #'evenp alist)))
     (should (equal result '(1 . "odd"))))
-  (let ((result (cl-assoc-if-not #'cl-plusp
+  (let ((result (cl-assoc-if-not #'plusp
                                  '((1 . "one") (2 . "two") (3 . "three")))))
     (should (equal result nil)))
   (let ((result (cl-assoc-if-not (lambda (x) (< x 5))
@@ -798,7 +798,7 @@ Additionally register an `ert-info' to help identify test failures."
     (should (equal result '("one" . 1))))
   (let ((result (cl-rassoc-if #'evenp '())))
     (should (equal result nil)))
-  (let ((result (cl-rassoc-if #'cl-plusp
+  (let ((result (cl-rassoc-if #'plusp
                               '(("first" . 1) ("second" . 2) ("third" . 3)))))
     (should (equal result '("first" . 1))))
   (let ((result (cl-rassoc-if (lambda (x) (string= (number-to-string x) "two"))
@@ -812,7 +812,7 @@ Additionally register an `ert-info' to help identify test failures."
   (let ((result (cl-rassoc-if-not #'evenp
                                   '(("one" . 1) ("two" . 2) ("three" . 3)))))
     (should (equal result '("one" . 1))))
-  (let ((result (cl-rassoc-if-not #'cl-plusp
+  (let ((result (cl-rassoc-if-not #'plusp
                                   '(("one" . 1) ("two" . 2) ("three" . 3)))))
     (should (equal result nil)))
   (let ((result (cl-rassoc-if-not (lambda (x) (< x 5))
index 03ab50d5adb6a6c269c76a5a6637b162bc658635..fa585b48df7d373b89e7aee1ef3c288b2c720c78 100644 (file)
@@ -376,7 +376,7 @@ Interactively, you can try hitting \\[keyboard-quit] to quit."
         (should (consp result))
         (should (integerp (car result)))
         (should (integerp (cdr result)))
-        (should (cl-plusp (cdr result)))
+        (should (plusp (cdr result)))
         (should (time-equal-p result desired-result))))))
 
 (ert-deftest mod-test-add-nanosecond/nil ()