summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/dired.el4
-rw-r--r--lisp/emacs-lisp/ert.el6
-rw-r--r--lisp/emacs-lisp/pp.el2
-rw-r--r--lisp/gnus/gnus-icalendar.el3
-rw-r--r--lisp/ibuffer.el6
-rw-r--r--lisp/image-mode.el2
-rw-r--r--lisp/international/emoji.el4
-rw-r--r--lisp/progmodes/ebrowse.el14
-rw-r--r--lisp/textmodes/dns-mode.el4
9 files changed, 23 insertions, 22 deletions
diff --git a/lisp/dired.el b/lisp/dired.el
index 91163186443..e3c686270ac 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2914,7 +2914,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.
@@ -2930,7 +2930,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))
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index e8012326eb3..28be8666f28 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -1419,7 +1419,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)
""))))
@@ -1432,7 +1432,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)
""))))
@@ -2123,7 +2123,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))
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index e4fa4426c03..6df15b197c8 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -577,7 +577,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.
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index c9f8055fa77..5a55efb3243 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -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 .:.
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index a94d9fddade..4d381ba88c6 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1504,7 +1504,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)
@@ -2055,7 +2055,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)))
@@ -2080,7 +2080,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)
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 653a7833162..39192a42b6c 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -1564,7 +1564,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))
diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index b0a0d66bc9f..55dd97ee6ec 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -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
@@ -680,7 +680,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))))
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index a24c9204b2f..9805a2bf04a 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -1334,7 +1334,7 @@ Pop to member buffer if no prefix ARG, to tree buffer otherwise."
"Indentation"
(int-to-string ebrowse--indentation))
nil nil ebrowse--indentation))))
- (when (cl-plusp width)
+ (when (plusp width)
(setq-local ebrowse--indentation width)
(ebrowse-redraw-tree))))
@@ -2168,7 +2168,7 @@ The new width is read from the minibuffer."
ebrowse--decl-column
ebrowse--column-width))
"): ")))))
- (when (cl-plusp width)
+ (when (plusp width)
(if ebrowse--long-display-flag
(setq ebrowse--decl-column width)
(setq ebrowse--column-width width))
@@ -2209,11 +2209,11 @@ make one."
ebrowse--accessor
#'eql)))
(setf ebrowse--accessor
- (cond ((cl-plusp incr)
+ (cond ((plusp incr)
(or (nth (1+ index)
ebrowse-member-list-accessors)
(cl-first ebrowse-member-list-accessors)))
- ((cl-minusp incr)
+ ((minusp incr)
(or (and (>= (cl-decf index) 0)
(nth index
ebrowse-member-list-accessors))
@@ -2693,7 +2693,7 @@ TREE is the class tree in which the members are found."
(when (>= i ebrowse--n-columns)
(setf i 0)
(insert "\n")))))
- (when (cl-plusp i)
+ (when (plusp i)
(insert "\n"))
(goto-char (point-min))))
@@ -2863,7 +2863,7 @@ Prefix arg INC specifies which one."
(setq index (+ inc (seq-position containing-list
ebrowse--displayed-class
#'eql)))
- (cond ((cl-minusp index) (message "No previous class"))
+ (cond ((minusp index) (message "No previous class"))
((null (nth index containing-list)) (message "No next class")))
(setq index (max 0 (min index (1- (length containing-list)))))
(setq cls (nth index containing-list))
@@ -3729,7 +3729,7 @@ Positions in buffers that have no file names are not saved."
(let ((too-much (- (length ebrowse-position-stack)
ebrowse-max-positions)))
;; Do not let the stack grow to infinity.
- (when (cl-plusp too-much)
+ (when (plusp too-much)
(setq ebrowse-position-stack
(butlast ebrowse-position-stack too-much)))
;; Push the position.
diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el
index 074819b3a59..5e0d47120d8 100644
--- a/lisp/textmodes/dns-mode.el
+++ b/lisp/textmodes/dns-mode.el
@@ -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 " ")
generated by cgit v1.2.3 (git 2.39.1) at 2025-07-14 10:44:34 +0000