mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Prefer plusp/minusp to cl-plusp/cl-minusp

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2025-02-17 22:04:41 +01:00
parent afbf932106
commit 83bc811f7f
12 changed files with 35 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/emacs-lisp/cl-seq-tests.el
View 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))