From 9c1ecca333b68b8d11c0acb8a273d71bea8cf505 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 25 Jul 2019 18:44:13 +0200 Subject: [PATCH] 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 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)))) -- 2.39.2