From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Emmanuel Briot Newsgroups: gmane.emacs.bugs Subject: kill-compilation in Emacs 21 NT (ACT tracking number: B514-001) Date: Tue, 14 May 2002 14:36:13 +0200 Sender: bug-gnu-emacs-admin@gnu.org Message-ID: <200205141236.g4ECaD519842@lyon.act-europe.fr> Reply-To: briot@act-europe.fr NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1021380178 10204 127.0.0.1 (14 May 2002 12:42:58 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 14 May 2002 12:42:58 +0000 (UTC) Cc: laurent.guerby@bnpparibas.com, report@gnat.com Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 177bdp-0002eT-00 for ; Tue, 14 May 2002 14:42:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 177be6-0003KA-00; Tue, 14 May 2002 08:43:14 -0400 Original-Received: from lyon.act-europe.fr ([212.157.227.160]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 177bbh-0002Jx-00 for ; Tue, 14 May 2002 08:40:45 -0400 Original-Received: (from briot@localhost) by lyon.act-europe.fr (8.11.6/8.11.6) id g4ECaD519842; Tue, 14 May 2002 14:36:13 +0200 Original-To: bug-gnu-emacs@gnu.org Errors-To: bug-gnu-emacs-admin@gnu.org X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.bugs:1357 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:1357 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"))))