From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 5 Mar 2025 23:34:39 +0000 (+0100)
Subject: Remove more redundant 'cl-' prefixes
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a32961175d4abdb03ee002ff8501b0af44dacb58;p=emacs.git

Remove more redundant 'cl-' prefixes

* lisp/emacs-lisp/cl-seq.el (cl-substitute-if, cl-substitute-if-not)
(cl-count, cl-sort): Remove more redundant 'cl-' prefixes from
arguments and let-bound variables.

(cherry picked from commit af44c7630cafba832a8b7c3b302dd0b16c4f271c)
---

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 934c1658ca2..f6be1dfd0c6 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -445,24 +445,24 @@ to avoid corrupting the original SEQ.
                  :start i cl-keys))))))
 
 ;;;###autoload
-(defun cl-substitute-if (new pred cl-list &rest cl-keys)
+(defun cl-substitute-if (new pred seq &rest cl-keys)
   "Substitute NEW for all items satisfying PREDICATE in SEQ.
 This is a non-destructive function; it makes a copy of SEQ if necessary
 to avoid corrupting the original SEQ.
 \nKeywords supported:  :key :count :start :end :from-end
 \n(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)"
   (declare (important-return-value t))
-  (apply #'cl-substitute new nil cl-list :if pred cl-keys))
+  (apply #'cl-substitute new nil seq :if pred cl-keys))
 
 ;;;###autoload
-(defun cl-substitute-if-not (new pred cl-list &rest cl-keys)
+(defun cl-substitute-if-not (new pred seq &rest cl-keys)
   "Substitute NEW for all items not satisfying PREDICATE in SEQ.
 This is a non-destructive function; it makes a copy of SEQ if necessary
 to avoid corrupting the original SEQ.
 \nKeywords supported:  :key :count :start :end :from-end
 \n(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)"
   (declare (important-return-value t))
-  (apply #'cl-substitute new nil cl-list :if-not pred cl-keys))
+  (apply #'cl-substitute new nil seq :if-not pred cl-keys))
 
 ;;;###autoload
 (defun cl-nsubstitute (new old seq &rest cl-keys)
@@ -603,12 +603,12 @@ Return the index of the matching item, or nil if not found.
 \n(fn ITEM SEQ [KEYWORD VALUE]...)"
   (declare (important-return-value t))
   (cl--parsing-keywords (:test :test-not :key :if :if-not (:start 0) :end) ()
-    (let ((count 0) cl-x)
+    (let ((count 0) x)
       (or cl-end (setq cl-end (length seq)))
       (if (consp seq) (setq seq (nthcdr cl-start seq)))
       (while (< cl-start cl-end)
-        (setq cl-x (if (consp seq) (pop seq) (aref seq cl-start)))
-        (if (cl--check-test item cl-x) (setq count (1+ count)))
+        (setq x (if (consp seq) (pop seq) (aref seq cl-start)))
+        (if (cl--check-test item x) (incf count))
 	(setq cl-start (1+ cl-start)))
       count)))
 
@@ -705,9 +705,9 @@ This is a destructive function; it reuses the storage of SEQ if possible.
     (cl--parsing-keywords (:key) ()
       (if (memq cl-key '(nil identity))
           (sort seq pred)
-        (sort seq (lambda (cl-x cl-y)
-                    (funcall pred (funcall cl-key cl-x)
-                             (funcall cl-key cl-y))))))))
+        (sort seq (lambda (x y)
+                    (funcall pred (funcall cl-key x)
+                             (funcall cl-key y))))))))
 
 ;;;###autoload
 (defun cl-stable-sort (seq pred &rest cl-keys)