Fix many-compilations case of compilation-goto-in-progress-buffer

* lisp/progmodes/compile.el (compilation-goto-in-progress-buffer):
Fix thinko in initial version of the function in the
many-compilations case.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f4750c00590..a7575b5a1a1 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -125,7 +125,10 @@ and a string describing how the process finished.")
    ((> (length compilation-in-progress) 1)
     (switch-to-buffer (completing-read
                        "Several compilation buffers; switch to: "
-                       (mapcar #'buffer-name compilation-in-progress)
+                       (mapcar
+                        (lambda (process)
+                          (buffer-name (process-buffer process)))
+                        compilation-in-progress)
                        nil t)))
    (compilation-in-progress
     (switch-to-buffer (process-buffer (car compilation-in-progress))))