branch: externals/mpdired
commit 6242a3ab19e37d94630cb4956262c0a03f8018cf
Author: Manuel Giraud <[email protected]>
Commit: Manuel Giraud <[email protected]>
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)
