diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 18:44:13 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 18:44:17 +0200 |
| commit | 9c1ecca333b68b8d11c0acb8a273d71bea8cf505 (patch) | |
| tree | 436fe5a092cc95e8ff93a385d72c6b93d31a4956 /lisp/progmodes/compile.el | |
| parent | a3c5dcf54e88ea90cc338f39fde530b5eb04553f (diff) | |
| download | emacs-9c1ecca333b68b8d11c0acb8a273d71bea8cf505.tar.gz emacs-9c1ecca333b68b8d11c0acb8a273d71bea8cf505.tar.bz2 emacs-9c1ecca333b68b8d11c0acb8a273d71bea8cf505.zip | |
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.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
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)))) |