branch: externals/mpdired
commit dc1edda202c3d2f9f49c9600f70e41866f52ce5d
Author: Manuel Giraud <man...@ledu-giraud.fr>
Commit: Manuel Giraud <man...@ledu-giraud.fr>
return t when a mark is set
---
mpdired.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/mpdired.el b/mpdired.el
index 446ebfc775..da3c81d05e 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -943,6 +943,8 @@ SEPARATOR string."
(t (mpdired-listall-internal ""))))))
(defun mpdired--mark (mark)
+ "Marks current entry with MARK. Returns t if the mark is done and nil
+otherwise."
(let ((inhibit-read-only t))
(when (and (not (eobp)) (get-text-property (mpdired--bol) 'uri))
(save-excursion
@@ -950,7 +952,8 @@ SEPARATOR string."
(delete-char 1)
(insert-char mark))
(put-text-property (mpdired--bol) (line-end-position) 'mark mark)
- (mpdired--reset-face))))
+ (mpdired--reset-face)
+ t)))
(defun mpdired--clear-mark ()
(let ((inhibit-read-only t)
