Handle multi-line strings sent to "open file" service

lisp/term/ns-win.el

@@ -264,14 +264,30 @@ The properties returned may include `top', `left', `height', and `width'."
 
 (declare-function dnd-open-file "dnd" (uri action))
 
+;; from http://ergoemacs.org/emacs/modernization_elisp_lib_problem.html
+(defun trim-string (string)
+  "Remove white spaces in beginning and ending of STRING.
+White space here is any of: space, tab, emacs newline (line feed, ASCII 10)."
+(replace-regexp-in-string "\\`[ \t\n]*" "" (replace-regexp-in-string "[ \t\n]*\\'" "" string))
+)
+
+;; function to handle multi line strings that are passed to the "open-file" service
+(defun open-file-service (filepaths)
+  "Opens multiple files at once when multiline string is selected."
+  (setq path_list (split-string filepaths "[\f\t\n\r\v]+"))
+  (while path_list
+    (if (not (equal "" (car path_list)))
+      (dnd-open-file (trim-string (car path_list)) nil))
+    (setq path_list (cdr path_list))))
+
 (defun ns-spi-service-call ()
   "Respond to a service request."
   (interactive)
   (cond ((string-equal ns-input-spi-name "open-selection")
 	 (switch-to-buffer (generate-new-buffer "*untitled*"))
 	 (insert ns-input-spi-arg))
 	((string-equal ns-input-spi-name "open-file")
-	 (dnd-open-file ns-input-spi-arg nil))
+	 (open-file-service ns-input-spi-arg))
 	((string-equal ns-input-spi-name "mail-selection")
 	 (compose-mail)
 	 (rfc822-goto-eoh)