[elpa] externals/mpdired 192c308375 081/133: add marked files

[ELPA Syncer]

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

    add marked files
---
 mpdired.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index ef567ee10c..f9455eff52 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -87,7 +87,7 @@
   "<SPC>"  #'mpdired-pause-internal
   "N"      #'mpdired-next-internal
   "P"      #'mpdired-previous-internal
-  "a"      #'mpdired-add-at-point
+  "a"      #'mpdired-add
   ;; Marks
   "m"      #'mpdired-mark-at-point
   "* m"    #'mpdired-mark-at-point
@@ -497,7 +497,12 @@
 (defun mpdired-add-internal (uri)
   (mpdired--with-comm-buffer process nil
     (setq mpdired--last-command 'add)
-    (process-send-string process (format "add \"%s\"\n" uri))))
+    (process-send-string process "command_list_begin\n")
+    (if (listp uri)
+       (dolist (u uri)
+         (process-send-string process (format "add \"%s\"\n" u)))
+      (process-send-string process (format "add \"%s\"\n" uri)))
+    (process-send-string process "command_list_end\n")))
 
 (defun mpdired-deleteid-internal (id)
   (mpdired--with-comm-buffer process nil
@@ -716,7 +721,7 @@
          (when (and mark (char-equal mark want))
            (push (cons id uri) result)))
        (forward-line))
-      result)))
+      (reverse result))))
 
 (defun mpdired-mark-files-regexp (regexp &optional mark)
   (interactive (list (read-regexp "Mark (regexp): ")))
@@ -741,7 +746,6 @@
       (setq mpdired--message message))))
 
 (defun mpdired-add-at-point ()
-  (interactive)
   (let* ((bol (mpdired--bol))
         (uri (get-text-property bol 'uri)))
     (when uri
@@ -749,6 +753,14 @@
       (mpdired-add-internal uri)
       (mpdired-next-line))))
 
+(defun mpdired-add ()
+  (interactive)
+  (let* ((marked (mpdired--collect-marked ?*))
+        (uris (mapcar 'cdr marked)))
+    (if uris
+       (mpdired-add-internal uris)
+      (mpdired-add-at-point))))
+
 (defun mpdired-deleteid-at-point ()
   (let ((id (get-text-property (mpdired--bol) 'id)))
     (when id