Properly respond to drops observing the Motif protocol

* lisp/pgtk-dnd.el (pgtk-dnd-handle-file-name):

* lisp/x-dnd.el (x-dnd-handle-file-name): Correct order of
arguments to d-h-m-u.

lisp/pgtk-dnd.el

@@ -253,16 +253,17 @@ STRING is the file names as a string, separated by nulls."
 	retval)
     (let ((did-action
            (dnd-handle-multiple-urls
-            window action (mapcar
-                           (lambda (item)
-                             (when coding
-                               (setq item (encode-coding-string item
-                                                                coding)))
-                             (concat "file://"
-                                     (mapconcat 'url-hexify-string
-                                                (split-string item "/")
-                                                "/")))
-                           uri-list))))
+            window (mapcar
+                    (lambda (item)
+                      (when coding
+                        (setq item (encode-coding-string item
+                                                         coding)))
+                      (concat "file://"
+                              (mapconcat 'url-hexify-string
+                                         (split-string item "/")
+                                         "/")))
+                    uri-list)
+            action)))
       (when did-action (setq retval did-action)))
     retval))
 

lisp/x-dnd.el

@@ -384,16 +384,18 @@ STRING is the file names as a string, separated by nulls."
 	retval)
     (let ((did-action
            (dnd-handle-multiple-urls
-            window action (mapcar
-                           (lambda (item)
-                             (when coding
-                               (setq item (encode-coding-string item
-                                                                coding)))
-                             (concat "file://"
-                                     (mapconcat 'url-hexify-string
-                                                (split-string item "/")
-                                                "/")))
-                           uri-list))))
+            window
+            (mapcar
+             (lambda (item)
+               (when coding
+                 (setq item (encode-coding-string item
+                                                  coding)))
+               (concat "file://"
+                       (mapconcat 'url-hexify-string
+                                  (split-string item "/")
+                                  "/")))
+             uri-list)
+            action)))
       (when did-action (setq retval did-action)))
     retval))