Mercurial > emacs
comparison lisp/progmodes/compile.el @ 93336:6598459f3056
(compilation-mode-tool-bar-map): Only enable
kill if a process is running.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Fri, 28 Mar 2008 10:06:03 +0000 |
| parents | 57fa8ebfd227 |
| children | c9abaca676e7 |
comparison
equal
deleted
inserted
replaced
| 93335:36e2d4840e38 | 93336:6598459f3056 |
|---|---|
| 1427 "right-arrow" 'next-error-no-select 'next-error-no-select map | 1427 "right-arrow" 'next-error-no-select 'next-error-no-select map |
| 1428 :rtl "left-arrow" | 1428 :rtl "left-arrow" |
| 1429 :help "Goto next error") | 1429 :help "Goto next error") |
| 1430 (tool-bar-local-item | 1430 (tool-bar-local-item |
| 1431 "cancel" 'kill-compilation 'kill-compilation map | 1431 "cancel" 'kill-compilation 'kill-compilation map |
| 1432 :enable '(let ((buffer (compilation-find-buffer))) | |
| 1433 (get-buffer-process buffer)) | |
| 1432 :help "Stop compilation") | 1434 :help "Stop compilation") |
| 1433 (tool-bar-local-item | 1435 (tool-bar-local-item |
| 1434 "refresh" 'recompile 'recompile map | 1436 "refresh" 'recompile 'recompile map |
| 1435 :help "Restart compilation") | 1437 :help "Restart compilation") |
| 1436 (append map help)))) | 1438 (append map help)))) |