 
 
 
-;; create logtalk font-lock-faces
-
+;; make logtalk font-lock-faces
+
+(make-face 'logtalk-default-face)
 (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-variable-face)
+(make-face 'logtalk-number-face)
+(make-face 'logtalk-comment-face)
 (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)
+
+;; set logtalk font-lock-faces
+
+(setq logtalk-default-face 'default)
+(setq logtalk-directive-face 'font-lock-keyword-face)
+(setq logtalk-built-in-predicate-face 'font-lock-builtin-face)
+(setq logtalk-built-in-method-face 'font-lock-builtin-face)
+(setq logtalk-message-operator-face 'font-lock-function-name-face)
+(setq logtalk-variable-face 'font-lock-variable-name-face)
+(setq logtalk-number-face 'font-lock-constant-face)
+(setq logtalk-comment-face 'font-lock-comment-face)
+(setq logtalk-string-face 'font-lock-string-face)
+
 
 
 (setq logtalk-font-lock-strings

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


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

;; Installation:
