Mercurial > emacs

changeset 65161:451eb4a93201

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* progmodes/antlr-mode.el (antlr-default): Fix defface form. (antlr-font-lock-additional-keywords): Fix reference to `antlr-font-lock-literal-regexp' erroneously changed during the mass face rename. (antlr-run-tool): Use `compilation-start'.
author Romain Francoise <romain@orebokech.com>
date Fri, 26 Aug 2005 18:03:46 +0000
parents b5106d08c7ec
children 217750047c30
files lisp/ChangeLog lisp/progmodes/antlr-mode.el
diffstat 2 files changed, 12 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Aug 26 15:56:48 2005 +0000
+++ b/lisp/ChangeLog	Fri Aug 26 18:03:46 2005 +0000
@@ -39,6 +39,12 @@
 
 2005-08-26  Romain Francoise  <romain@orebokech.com>
 
+	* progmodes/antlr-mode.el (antlr-default): Fix defface form.
+	(antlr-font-lock-additional-keywords): Fix reference to
+	`antlr-font-lock-literal-regexp' erroneously changed during the
+	mass face rename.
+	(antlr-run-tool): Use `compilation-start'.
+
 	* textmodes/sgml-mode.el (sgml-validate): Use `compilation-start'
 	instead of the obsolete `compile-internal'.
 
--- a/lisp/progmodes/antlr-mode.el	Fri Aug 26 15:56:48 2005 +0000
+++ b/lisp/progmodes/antlr-mode.el	Fri Aug 26 18:03:46 2005 +0000
@@ -829,7 +829,7 @@
 `antlr-font-lock-maximum-decoration'.")
 
 (defvar antlr-default-face 'antlr-default)
-(defface antlr-default
+(defface antlr-default nil
   "Face to prevent strings from language dependent highlighting.
 Do not change."
   :group 'antlr)
@@ -925,7 +925,7 @@
      ("\\$\\sw+" (0 keyword-face))
      ;; the tokens are already fontified as string/docstrings:
      (,(lambda (limit)
-	 (if antlr-literal-regexp
+	 (if antlr-font-lock-literal-regexp
 	     (antlr-re-search-forward antlr-font-lock-literal-regexp limit)))
       (1 antlr-literal-face t)
       :XEMACS (0 nil))			; XEmacs bug workaround
@@ -2229,6 +2229,8 @@
     (cons (if glibs (concat " -glib " (mapconcat 'car glibs ";")) "")
 	  (cons unknown glibs))))
 
+(autoload 'compilation-start "compile")
+
 (defun antlr-run-tool (command file &optional saved)
   "Run Antlr took COMMAND on grammar FILE.
 When called interactively, COMMAND is read from the minibuffer and
@@ -2241,9 +2243,8 @@
   (interactive (antlr-run-tool-interactive))
   (or saved (save-some-buffers (not antlr-ask-about-save)))
   (let ((default-directory (file-name-directory file)))
-    (require 'compile)			; only `compile' autoload
-    (compile-internal (concat command " " (file-name-nondirectory file))
-		      "No more errors" "Antlr-Run")))
+    (compilation-start (concat command " " (file-name-nondirectory file))
+		       nil #'(lambda (mode-name) "*Antlr-Run*"))))
 
 (defun antlr-run-tool-interactive ()
   ;; code in `interactive' is not compiled