[elpa] externals/mpdired 0bead27006 065/133: fix bol positioning in some case

[ELPA Syncer]

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

    fix bol positioning in some case
---
 mpdired.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mpdired.el b/mpdired.el
index 6708debeb6..0dbb2f35a6 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -325,7 +325,9 @@
              (mpdired--browser-point
               (mpdired--reset-point mpdired--browser-point))
              (t (goto-char (point-min))
-                (when top (mpdired-next-line))))))))
+                (if top
+                    (mpdired-next-line)
+                  (goto-char (mpdired--bol)))))))))
 
 (defun mpdired--present-queue (proc)
   ;; Called by filter of the communication buffer.
@@ -360,6 +362,8 @@
                   (eol (line-end-position))
                   (x (/ (* elapsed (- eol bol)) duration)))
              (put-text-property bol (+ bol x) 'face 'mpdired-progress))))
+       ;; Go to bol no matter what
+       (goto-char (mpdired--bol))
        ;; Set mode, restore point and memorize stuff
        (mpdired-mode)
        (when mpdired--songid-point