[elpa] externals/mpdired 3d45e8de7a 2/4: don't increment order index when it is not marked

[ELPA Syncer]

branch: externals/mpdired
commit 3d45e8de7a764a93c8fb1591c8fb1aa8f9c3b46a
Author: Manuel Giraud <man...@ledu-giraud.fr>
Commit: Manuel Giraud <man...@ledu-giraud.fr>

    don't increment order index when it is not marked
---
 mpdired.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index da3c81d05e..f3b242e0a8 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -982,9 +982,9 @@ otherwise."
 (defun mpdired-put-order-at-point ()
   (interactive)
   (when (eq mpdired--view 'queue)
-    (mpdired--mark (elt (number-to-string mpdired--order-index) 0))
-    (setq mpdired--order-index (mod (1+ mpdired--order-index) 10))
-    (mpdired-next-line)))
+    (when (mpdired--mark (elt (number-to-string mpdired--order-index) 0))
+      (setq mpdired--order-index (mod (1+ mpdired--order-index) 10))
+      (mpdired-next-line))))
 
 (defun mpdired-reset-order-index ()
   (interactive)