1 

     2 (require 'compile)

     3 

     4 (defvar log4-hi-keywords

     5   '(("FATAL\\|ERROR" . compilation-error-face)

     6     ("WARN" . compilation-warning-face)

     7     ("INFO\\|DEBUG\\|TRACE" . compilation-info-face) ))

     8 

     9 ;;;###autoload

    10 (define-minor-mode log4-hi-mode

    11   "Highlight standard elements in log4* like log-files."

    12   nil " log4-hi" nil

    13   :global nil

    14   (message "%s" log4-hi-mode)

    15   (catch 'exit

    16     (when log4-hi-mode

    17       (font-lock-mode 1)

    18       (font-lock-add-keywords nil log4-hi-keywords)

    19       (throw 'exit nil))

    20     (font-lock-remove-keywords nil log4-hi-keywords))

    21   (font-lock-fontify-buffer))

    22 

    23 (provide 'log4-hi-mode)