+(defvar prolog-font-lock-keywords
+ '(("\\(#[<=]=>\\|:-\\)\\|\\(#=\\)\\|\\(#[#<>\\/][=\\/]*\\|!\\)"
+ 0 font-lock-keyword-face)
+ ("\\<\\(is\\|write\\|nl\\|read_\\sw+\\)\\>"
+ 1 font-lock-keyword-face)
+ ("^\\(\\sw+\\)\\s-*\\((\\(.+\\))\\)*"
+ (1 font-lock-function-name-face)
+ (3 font-lock-variable-name-face)))
+ "Font-lock keywords for Prolog mode.")
+
+(defvar prolog-mode-syntax-table