branch: externals/mpdired
commit 7ebbc83a5da7b0ef18bc3fe5210ea7ee8f6b5184
Author: Manuel Giraud <man...@ledu-giraud.fr>
Commit: Manuel Giraud <man...@ledu-giraud.fr>
use = instead of char-equal (for case sensitivity)
---
mpdired.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index f3b242e0a8..0de089d43e 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -367,9 +367,9 @@ used for mark followed by a space."
(type (get-text-property bol 'type))
(mark (get-text-property bol 'mark)))
(remove-text-properties bol eol '(face))
- (cond ((and mark (char-equal mark ?D))
+ (cond ((and mark (= mark ?D))
(put-text-property bol eol 'face 'mpdired-flagged))
- ((and mark (char-equal mark ?*))
+ ((and mark (= mark ?*))
(put-text-property bol eol 'face 'mpdired-marked))
((eq type 'directory)
(put-text-property bol eol 'face 'mpdired-directory))
@@ -997,7 +997,7 @@ otherwise."
(goto-char (point-min))
(while (not (eobp))
(let ((mark (get-text-property (mpdired--bol) 'mark)))
- (if (and mark (char-equal mark ?*))
+ (if (and mark (= mark ?*))
(mpdired--clear-mark)
(unless mark (mpdired--mark ?*))))
(forward-line))))
@@ -1014,7 +1014,7 @@ otherwise."
(goto-char (point-min))
(while (not (eobp))
(let ((mark (get-text-property (mpdired--bol) 'mark)))
- (when (and mark (char-equal mark old))
+ (when (and mark (= mark old))
(mpdired--mark new)))
(forward-line)))))
@@ -1051,12 +1051,12 @@ otherwise."
(id (get-text-property bol 'id))
(type (get-text-property bol 'type))
(uri (get-text-property bol 'uri)))
- (when (and mark (char-equal mark want))
+ (when (and mark (= mark want))
(push (cons id (cons type uri)) result)))
(forward-line)))
;; No marked, get the entry at point except for the deletion flag.
(unless (or result
- (char-equal want ?D))
+ (= want ?D))
(let* ((bol (mpdired--bol))
(id (get-text-property bol 'id))
(type (get-text-property bol 'type))
