* 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'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abcd17557015c42186b66b166a077f0164dcac0c..e655c91e6130b0f39330e60ce2bf9230fc57b0e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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'.
 

diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 0415aa910dde2f4292476fb9770861e2b14733db..88ad7098c899d3cf5008335906223cec6b192693 100644 (file)
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -829,7 +829,7 @@ in the grammar's actions and semantic predicates, see
 `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 @@ group.  The string matched by the first group is highlighted with
      ("\\$\\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 @@ vocabulary of the super-grammar or nil if it is not needed."
     (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 @@ called interactively, the buffers are always saved, see also variable
   (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