From: Tino Calancha <tino.calancha@gmail.com>
Date: Sat, 13 Aug 2016 04:25:15 +0000 (+0900)
Subject: cl-fill: Rename arguments to cl-seq and cl-item
X-Git-Tag: emacs-26.0.90~1747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50548fd9afe70c43b3a0c0869f8e889b307ee917;p=emacs.git

cl-fill: Rename arguments to cl-seq and cl-item

* lisp/emacs-lisp/cl-seq.el (cl-fill):
Rename arguments to 'cl-seq' and 'cl-item' as elsewhere.
---

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 98e5f4e4288..ed27b7c7d05 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -144,24 +144,24 @@ called.
       cl-accum)))
 
 ;;;###autoload
-(defun cl-fill (seq item &rest cl-keys)
+(defun cl-fill (cl-seq cl-item &rest cl-keys)
   "Fill the elements of SEQ with ITEM.
 \nKeywords supported:  :start :end
 \n(fn SEQ ITEM [KEYWORD VALUE]...)"
   (cl--parsing-keywords ((:start 0) :end) ()
-    (if (listp seq)
-	(let ((p (nthcdr cl-start seq))
+    (if (listp cl-seq)
+	(let ((p (nthcdr cl-start cl-seq))
 	      (n (if cl-end (- cl-end cl-start) 8000000)))
 	  (while (and p (>= (setq n (1- n)) 0))
-	    (setcar p item)
+	    (setcar p cl-item)
 	    (setq p (cdr p))))
-      (or cl-end (setq cl-end (length seq)))
-      (if (and (= cl-start 0) (= cl-end (length seq)))
-	  (fillarray seq item)
+      (or cl-end (setq cl-end (length cl-seq)))
+      (if (and (= cl-start 0) (= cl-end (length cl-seq)))
+	  (fillarray cl-seq cl-item)
 	(while (< cl-start cl-end)
-	  (aset seq cl-start item)
+	  (aset cl-seq cl-start cl-item)
 	  (setq cl-start (1+ cl-start)))))
-    seq))
+    cl-seq))
 
 ;;;###autoload
 (defun cl-replace (cl-seq1 cl-seq2 &rest cl-keys)