Thanks Johann, if it's of any help to others, here's what I settled on:


I made a file named pta-mode.py in my emacs directory, where I keep
other lisp files, and put this in it:


<fixed><fontfamily><param>Courier New</param>;; This is basically a
list of lists with a regular expression and

;; then the font name (or face name).  The numbers below refer to \\(

;; ... \\) constructs that mark what part of the re you want

;; highlighted 

(defconst pta-font-lock-keywords

 '(

   ("- \\(ERROR\\) - \\w*\\(.*\\)" (1 font-lock-warning-face) 

    (2 font-lock-comment-face))

   ("- \\(WARN\\)  - \\w*\\(.*\\)" (1 font-lock-type-face) 

    (2 font-lock-comment-face))

   )

 "Expressions to highlight in PTA mode.")


(defun pta-mode ()

  (setq font-lock-defaults '(pta-font-lock-keywords))

)</fontfamily></fixed>


Then I added this to my .emacs file to load this, and select it for
use on all my *.log files (which suits my needs):


<fixed><fontfamily><param>Courier New</param>(autoload 'pta-mode
"pta-mode" "PTA log mode." t)

(add-to-list 'auto-mode-alist '("\\.log$" . pta-mode))</fontfamily></fixed>


On Thursday, May 22, 2003, at 02:11  PM,
myrkraverk@users.sourceforge.net wrote:


<excerpt>Hi,


Matt Noel writes:

<excerpt>I want to setup a very simple mode for colorizing a log file. 
All I 

need to do is highlight any lines with the string ERROR on them.  I've 

tried reading the documentation for font-lock but it's not clear how
to 

do this.


Could someone point me to a simple example, or send one?

</excerpt>

Here is an example, it doesn't though specify how you use the mode on

the log file.  Maybe you can edit it to suit your need.


;; This is basically a list of lists with a regular expression and

;; then the font name (or face name).  The numbers below refer to \\(

;; ... \\) constructs that mark what part of the re you want

;; highlighted 

(defconst masp-font-lock-keywords

 '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[
\t]*\\(\\sw+\\(\\.[lLwWbBsS]\\)?\\)?"

    (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t))

   ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.[lLwWbBsS]\\)?\\)" 1
font-lock-keyword-face)

   ("^\\(\\s-+\\|\\sw+:\\s-+\\)\\(\\\\[a-zA-Z0-9]+\\)"

    (2 font-lock-constant-face))

   ("\\(\\\\\\sw+\\)"

    (1 font-lock-variable-name-face)))

 "Additional expressions to highlight in Assembler mode.")


(defun masp-mode ()

;;...

  (setq font-lock-defaults '(masp-font-lock-keywords))

;;...

)



Hope this helps,


Johann


-- 

This line is left blank intentionally



</excerpt>