[Emacs-diffs] master 9c1ecca: Fix many-compilations case of compilation-goto-in-progress-buffer

[Lars Ingebrigtsen]

branch: master
commit 9c1ecca333b68b8d11c0acb8a273d71bea8cf505
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/progmodes/compile.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f4750c0..a7575b5 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))))