Avoid mapcar in two cases in files.el.

* lisp/files.el (find-file-other-window, find-file-other-frame):
Use mapc instead of mapcar.

Fixes: debbugs:18175

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e3cedd50a1..f5ad8de3f8c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
         * url/url-cookie.el (url-cookie-write-file): Let-bind print-length
         and print-level to nil to avoid writing a garbled list.  (Bug#16805)
 
+        * files.el (find-file-other-window, find-file-other-frame):
+        Use mapc instead of mapcar.  (Bug#18175)
+
 2015-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
diff --git a/lisp/files.el b/lisp/files.el
index f8318d8a34d..e6d80a9a4dc 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1489,8 +1489,9 @@ expand wildcards (if any) and visit multiple files."
     (if (listp value)
         (progn
           (setq value (nreverse value))
-          (cons (switch-to-buffer-other-window (car value))
-                (mapcar 'switch-to-buffer (cdr value))))
+          (switch-to-buffer-other-window (car value))
+          (mapc 'switch-to-buffer (cdr value))
+          value)
       (switch-to-buffer-other-window value))))
 
 (defun find-file-other-frame (filename &optional wildcards)
@@ -1512,8 +1513,9 @@ expand wildcards (if any) and visit multiple files."
     (if (listp value)
         (progn
           (setq value (nreverse value))
-          (cons (switch-to-buffer-other-frame (car value))
-                (mapcar 'switch-to-buffer (cdr value))))
+          (switch-to-buffer-other-frame (car value))
+          (mapc 'switch-to-buffer (cdr value))
+          value)
       (switch-to-buffer-other-frame value))))
 
 (defun find-file-existing (filename)