diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-06-02 13:24:12 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-06-02 13:24:12 +0200 |
| commit | b3e945d3a47c5c64d84cb56594ff8c884acb1c37 (patch) | |
| tree | 492e6b8576b86f6cf8db82dddc6446781244f2d3 /lisp/mpc.el | |
| parent | 910fcf6e00db45289d1257c8fce69739fa870978 (diff) | |
| download | emacs-b3e945d3a47c5c64d84cb56594ff8c884acb1c37.tar.gz | |
Silence warning for unused `dotimes' counter variables.
* mpc.el (mpc-select-extend, mpc-songpointer-context):
* vc/log-view.el (log-view-beginning-of-defun):
* vc/smerge-mode.el (smerge-apply-resolution-patch)
(smerge-refine-forward, smerge-refine-chopup-region):
Diffstat (limited to 'lisp/mpc.el')
| -rw-r--r-- | lisp/mpc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mpc.el b/lisp/mpc.el index b1e4d860cca..5319ea43898 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -1318,7 +1318,7 @@ If PLAYLIST is t or nil or missing, use the main playlist." (setq count before) (setq dir -1)) (goto-char start) - (dotimes (i (1+ (or count 0))) + (dotimes (_i (1+ (or count 0))) (mpc-select-make-overlay) (forward-line dir)))))) (when mpc-tag @@ -2114,12 +2114,12 @@ This is used so that they can be compared with `eq', which is needed for (let ((context-before '()) (context-after '())) (save-excursion - (dotimes (i size) + (dotimes (_i size) (when (re-search-backward "^[0-9]+:\\(.*\\)" nil t) (push (mpc-songs-hashcons (match-string 1)) context-before)))) ;; Skip the actual current song. (forward-line 1) - (dotimes (i size) + (dotimes (_i size) (when (re-search-forward "^[0-9]+:\\(.*\\)" nil t) (push (mpc-songs-hashcons (match-string 1)) context-after))) ;; If there isn't `size' context, then return nil. |