diff options
Diffstat (limited to 'lisp/progmodes/antlr-mode.el')
| -rw-r--r-- | lisp/progmodes/antlr-mode.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 0415aa910dd..88ad7098c89 100644 --- 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 |