]> code.delx.au - gnu-emacs/blobdiff - lisp/bs.el
Merge from emacs-23; up to 2010-06-15T03:34:12Z!rgm@gnu.org.
[gnu-emacs] / lisp / bs.el
index 6965af1368ce7d0499501f3174c0508280d480af..95dc371e57b0398006f28c1d2babf61760f19926 100644 (file)
@@ -865,7 +865,7 @@ the status of buffer on current line."
 (defun bs--mark-unmark (count fun)
   "Call FUN on COUNT consecutive buffers of *buffer-selection*."
   (let ((dir (if (> count 0) 1 -1)))
-    (dotimes (i (abs count))
+    (dotimes (_i (abs count))
       (let ((buffer (bs--current-buffer)))
        (when buffer (funcall fun buffer))
        (bs--update-current-line)
@@ -976,7 +976,7 @@ Uses function `toggle-read-only'."
 
 (defun bs--nth-wrapper (count fun &rest args)
   "Call COUNT times function FUN with arguments ARGS."
-  (dotimes (i (or count 1))
+  (dotimes (_i (or count 1))
     (apply fun args)))
 
 (defun bs-up (arg)