From: Markus Gritsch <gritsch@iue.tuwien.ac.at>
Cc: emacs-devel@gnu.org
Subject: Re: Inserting "-*- mode: ..." before turning mode on in (compilation-start)
Date: Sat, 28 May 2005 14:05:23 +0200 [thread overview]
Message-ID: <42985E83.3020607@iue.tuwien.ac.at> (raw)
In-Reply-To: <E1DbzsH-0004wM-Q8@fencepost.gnu.org>
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 ----
prev parent reply other threads:[~2005-05-28 12:05 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-05-27 16:54 Inserting "-*- mode: ..." before turning mode on in (compilation-start) Markus Gritsch
2005-05-28 11:53 ` Richard Stallman
2005-05-28 12:05 ` Markus Gritsch [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=42985E83.3020607@iue.tuwien.ac.at \
--to=gritsch@iue.tuwien.ac.at \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.