[elpa] externals/mpdired 6242a3ab19 071/133: don't clear mark when there is none

[ELPA Syncer]

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

    don't clear mark when there is none
    
    Fix a bug when trying to clear the browser view top line.
---
 mpdired.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index e7d72c07a2..3ccfad4c76 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -616,13 +616,15 @@
     (mpdired--reset-face)))
 
 (defun mpdired--clear-mark ()
-  (let ((inhibit-read-only t))
-    (remove-text-properties (mpdired--bol) (line-end-position) '(mark face))
-    (mpdired--reset-face)
-    (save-excursion
-      (goto-char (line-beginning-position))
-      (delete-char 1)
-      (insert-char ? ))))
+  (let ((inhibit-read-only t)
+       (bol (mpdired--bol)))
+    (when (get-text-property bol 'mark)
+      (remove-text-properties (mpdired--bol) (line-end-position) '(mark face))
+      (mpdired--reset-face)
+      (save-excursion
+       (goto-char (line-beginning-position))
+       (delete-char 1)
+       (insert-char ? )))))
 
 (defun mpdired-mark-at-point ()
   (interactive)