[elpa] externals/mpdired 3b01af9d4d 2/3: fix progress

[ELPA Syncer]

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

    fix progress
---
 mpdired.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mpdired.el b/mpdired.el
index cd909349b2..3a4dd5f986 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -513,7 +513,8 @@ used for mark followed by a space."
            (let* ((bol (mpdired--bol))
                   (eol (line-end-position))
                   (x (/ (* elapsed (- eol bol)) duration)))
-             (put-text-property (+ bol x) eol 'face 'mpdired-progress))))
+             (when (> eol (+ bol x))
+               (put-text-property (+ bol x) eol 'face 'mpdired-progress)))))
        ;; Go to bol no matter what
        (goto-char (mpdired--bol))
        ;; Restore point and memorize stuff