[Emacs-diffs] Changes to emacs/lisp/progmodes/antlr-mode.el

[Romain Francoise]

Index: emacs/lisp/progmodes/antlr-mode.el
diff -c emacs/lisp/progmodes/antlr-mode.el:1.24 
emacs/lisp/progmodes/antlr-mode.el:1.25
*** emacs/lisp/progmodes/antlr-mode.el:1.24     Mon Aug  1 08:37:49 2005
--- emacs/lisp/progmodes/antlr-mode.el  Fri Aug 26 18:03:45 2005
***************
*** 829,835 ****
  `antlr-font-lock-maximum-decoration'.")
  
  (defvar antlr-default-face 'antlr-default)
! (defface antlr-default
    "Face to prevent strings from language dependent highlighting.
  Do not change."
    :group 'antlr)
--- 829,835 ----
  `antlr-font-lock-maximum-decoration'.")
  
  (defvar antlr-default-face 'antlr-default)
! (defface antlr-default nil
    "Face to prevent strings from language dependent highlighting.
  Do not change."
    :group 'antlr)
***************
*** 925,931 ****
       ("\\$\\sw+" (0 keyword-face))
       ;; the tokens are already fontified as string/docstrings:
       (,(lambda (limit)
!        (if antlr-literal-regexp
             (antlr-re-search-forward antlr-font-lock-literal-regexp limit)))
        (1 antlr-literal-face t)
        :XEMACS (0 nil))                        ; XEmacs bug workaround
--- 925,931 ----
       ("\\$\\sw+" (0 keyword-face))
       ;; the tokens are already fontified as string/docstrings:
       (,(lambda (limit)
!        (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,2234 ****
--- 2229,2236 ----
      (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,2249 ****
    (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")))
  
  (defun antlr-run-tool-interactive ()
    ;; code in `interactive' is not compiled
--- 2243,2250 ----
    (interactive (antlr-run-tool-interactive))
    (or saved (save-some-buffers (not antlr-ask-about-save)))
    (let ((default-directory (file-name-directory file)))
!     (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