branch: externals/mpdired
commit d628211fc407c4d327b4870630d0fcf5b89c30b6
Author: Manuel Giraud <[email protected]>
Commit: Manuel Giraud <[email protected]>
use `read-char' prompt
---
mpdired.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index 85b6bf944c..4358a0bf3d 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -943,9 +943,8 @@ SEPARATOR string."
"Changes mark from OLD to NEW. It asks the user for OLD and NEW."
(interactive
(let* ((cursor-in-echo-area t)
- (old (progn (message "Change (old mark): ") (read-char)))
- (new (progn (message "Change %c marks to (new mark): " old)
- (read-char))))
+ (old (read-char "Change (old mark): "))
+ (new (read-char (format "Change %c marks to (new mark): " old))))
(list old new)))
(let ((inhibit-read-only t))
(save-excursion
