 
 ;; Author: Paulo Moura
 ;; Creation date: November 15, 2003
-;; Last modification date: January 30, 2004
+;; Last modification date: January 31, 2004
 ;; Version: 0.5
 
 ;; Installation:




;; create logtalk font-lock-faces

(make-face 'logtalk-directive-face)
(set-face-foreground 'logtalk-directive-face "brown")

(make-face 'logtalk-built-in-predicate-face)
(set-face-foreground 'logtalk-built-in-predicate-face "darkmagenta")

(make-face 'logtalk-built-in-method-face)
(set-face-foreground 'logtalk-built-in-method-face "darkmagenta")

(make-face 'logtalk-message-operator-face)
(set-face-foreground 'logtalk-message-operator-face "blue")

(make-face 'logtalk-string-face)
(set-face-foreground 'logtalk-string-face "firebrick")

(make-face 'logtalk-number-face)
(set-face-foreground 'logtalk-number-face "blue")

(make-face 'logtalk-comment-face)
(set-face-foreground 'logtalk-comment-face "forest green")

(make-face 'logtalk-variable-face)
(set-face-foreground 'logtalk-variable-face "dark slate grey")

(make-face 'logtalk-number-face)
(set-face-foreground 'logtalk-number-face "dark blue")


;; set the font-lock-comment-face to the logtalk-comment-face

(setq font-lock-comment-face 'logtalk-comment-face)


;; set the font-lock-string-face to the logtalk-string-face

(setq font-lock-string-face 'logtalk-string-face)


(setq logtalk-font-lock-strings

		;;
		("\\\\?=" . 'logtalk-built-in-predicate-face)
		;;
		;; dcgs:
		;;
		("-->" . 'logtalk-built-in-predicate-face)
		;;
		;; evaluable functors:
