(compilation-mode-tool-bar-map): Only enable

kill if a process is running.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 764d32c9ec9c68ac0a8530fbbac10fb742f802f4..1139f40eb51d785829f47189fff029d9e983494f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-03-28  Jan Djärv  <jan.h.d@swipnet.se>
+
+       * progmodes/compile.el (compilation-mode-tool-bar-map): Only enable
+       kill if a process is running.
+
+       * progmodes/grep.el (grep-mode-tool-bar-map): The same.
+
 2008-03-28  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc.el: Add new backend function 'status-extra-headers.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index be69da1d7f6be5cf308f7d5fd1e9b47bd3a30abb..4ee96c6e76afdc22118ed746978168a4a758b325 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1429,6 +1429,8 @@ Returns the compilation buffer created."
         :help "Goto next error")
        (tool-bar-local-item 
         "cancel" 'kill-compilation 'kill-compilation map
+        :enable '(let ((buffer (compilation-find-buffer)))
+                   (get-buffer-process buffer))
         :help "Stop compilation")
        (tool-bar-local-item 
         "refresh" 'recompile 'recompile map