kill-compilation in Emacs 21 NT (ACT tracking number: B514-001)

kill-compilation in Emacs 21 NT (ACT tracking number: B514-001)

[Emmanuel Briot]

Dear Emacs maintainers:


In GNU Emacs 21.2.1, on Windows NT:

The following bug has been reported by one of our customers: the command
kill-compilation doesn't work in a compilation buffer (C-c C-k).

The workaround is to replace the definition of kill-compilation with


compile.el:

   (defun kill-compilation ()
     "Kill the process made by the \\[compile] command."
     (interactive)
     (let ((buffer (compilation-find-buffer)))
       (if (get-buffer-process buffer)
           (progn
             (interrupt-process (get-buffer-process buffer))
             (sit-for 1)
             (delete-process (get-buffer-process buffer)))
        (error "The compilation process is not running"))))