From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 25 Jul 2019 16:44:13 +0000 (+0200)
Subject: Fix many-compilations case of compilation-goto-in-progress-buffer
X-Git-Tag: emacs-27.0.90~1817^2~130
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c1ecca333b68b8d11c0acb8a273d71bea8cf505;p=emacs.git

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.
---

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))))