From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Markus Gritsch Newsgroups: gmane.emacs.devel Subject: Re: Inserting "-*- mode: ..." before turning mode on in (compilation-start) Date: Sat, 28 May 2005 14:05:23 +0200 Message-ID: <42985E83.3020607@iue.tuwien.ac.at> References: <429750D7.1080402@iue.tuwien.ac.at> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1117282514 31651 80.91.229.2 (28 May 2005 12:15:14 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 28 May 2005 12:15:14 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat May 28 14:15:05 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Dc0Cj-0003oh-SX for ged-emacs-devel@m.gmane.org; Sat, 28 May 2005 14:14:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Dc0HD-0003QJ-32 for ged-emacs-devel@m.gmane.org; Sat, 28 May 2005 08:18:51 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Dc09B-0007mK-LQ for emacs-devel@gnu.org; Sat, 28 May 2005 08:10:33 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Dc096-0007jY-Va for emacs-devel@gnu.org; Sat, 28 May 2005 08:10:29 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Dc096-0007iO-LG for emacs-devel@gnu.org; Sat, 28 May 2005 08:10:28 -0400 Original-Received: from [195.3.96.102] (helo=email.aon.at) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Dc05Y-0005wm-Bv for emacs-devel@gnu.org; Sat, 28 May 2005 08:06:48 -0400 Original-Received: (qmail 23225 invoked from network); 28 May 2005 12:05:29 -0000 Original-Received: from m203p021.adsl.highway.telekom.at (HELO [10.0.0.5]) ([62.47.193.85]) (envelope-sender ) by smarthub71.highway.telekom.at (qmail-ldap-1.03) with SMTP for ; 28 May 2005 12:05:29 -0000 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.1) Gecko/20040707 X-Accept-Language: en-us, en Original-To: rms@gnu.org In-Reply-To: X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:37828 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:37828 Richard Stallman wrote: > Does this patch give good results? Yes, it works perfectly now. Thank you, Markus > *** compile.el 20 May 2005 17:56:45 -0400 1.356 > --- compile.el 28 May 2005 05:02:27 -0400 > *************** > *** 935,946 **** > (substitute-env-vars (match-string 1 command)) > "~") > default-directory)) > (erase-buffer) > ! ;; output a mode setter, for saving and later reloading this buffer > (insert "-*- mode: " name-of-mode > "; default-directory: " (prin1-to-string default-directory) > ! " -*-\n" command "\n") > ! (setq thisdir default-directory)) > (set-buffer-modified-p nil)) > ;; If we're already in the compilation buffer, go to the end > ;; of the buffer, so point will track the compilation output. > --- 935,954 ---- > (substitute-env-vars (match-string 1 command)) > "~") > default-directory)) > + ;; Select the desired mode. > + (if (not (eq mode t)) > + (funcall mode) > + (setq buffer-read-only nil) > + (with-no-warnings (comint-mode)) > + (compilation-shell-minor-mode)) > + (if highlight-regexp > + (set (make-local-variable 'compilation-highlight-regexp) > + highlight-regexp)) > (erase-buffer) > ! ;; Output a mode setter, for saving and later reloading this buffer. > (insert "-*- mode: " name-of-mode > "; default-directory: " (prin1-to-string default-directory) > ! " -*-\n" command "\n") (setq thisdir default-directory)) > (set-buffer-modified-p nil)) > ;; If we're already in the compilation buffer, go to the end > ;; of the buffer, so point will track the compilation output. > *************** > *** 963,976 **** > ;; don't override users' setting of $EMACS. > (unless (getenv "EMACS") '("EMACS=t")) > (copy-sequence process-environment)))) > - (if (not (eq mode t)) > - (funcall mode) > - (setq buffer-read-only nil) > - (with-no-warnings (comint-mode)) > - (compilation-shell-minor-mode)) > - (if highlight-regexp > - (set (make-local-variable 'compilation-highlight-regexp) > - highlight-regexp)) > (set (make-local-variable 'compilation-arguments) > (list command mode name-function highlight-regexp)) > (set (make-local-variable 'revert-buffer-function) > --- 971,976 ----