--- magicpoint-1.09a/contrib/mgp-mode.el.pix	Fri Dec 17 20:21:19 1999

+++ magicpoint-1.09a/contrib/mgp-mode.el	Sun Oct  7 18:07:18 2001

@@ -157,6 +157,17 @@

 		 ("^%.*" nil defun)

 		 ))))))

+(defvar mgp-font-lock-keywords

+  (list

+     ;; keywords

+     (cons (concat "^%\\(" (mapconcat 'identity mgp-directives "\\|") "\\)\\b") 0)

+

+     (cons "^%%.*\n" '(0 font-lock-comment-face t))

+

+;     (cons "^%.*" '(1 font-lock-function-name-face))

+     )

+  "Additional expressions to highlight in gmp mode.")

+

 ;; History

 (defvar mgp-history nil

@@ -183,10 +194,13 @@

 (if mgp-mode-syntax-table

     ()

   (setq mgp-mode-syntax-table (make-syntax-table))

-  (modify-syntax-entry ?% ".   " mgp-mode-syntax-table)

-  (modify-syntax-entry ?\" ".   " mgp-mode-syntax-table)

-  (modify-syntax-entry ?\\ ".   " mgp-mode-syntax-table)

-  (modify-syntax-entry ?' "w   " mgp-mode-syntax-table))

+

+  ;; comment delimiters

+  (modify-syntax-entry ?\# "<"  mgp-mode-syntax-table)

+  (modify-syntax-entry ?\n ">"  mgp-mode-syntax-table)

+  (modify-syntax-entry ?\%  "_ 23" mgp-mode-syntax-table)

+

+  (modify-syntax-entry ?\" "\"" mgp-mode-syntax-table))

 ;; Mode Map

 (defvar mgp-mode-map nil

@@ -260,6 +274,10 @@

   (make-local-variable 'mgp-page-separator)

   (make-local-variable 'mgp-emph-color)

   (make-local-variable 'mgp-emph-color-normal)

+

+  (make-local-variable 'font-lock-defaults)

+  (setq font-lock-defaults '(mgp-font-lock-keywords))

+

   (run-hooks 'mgp-mode-hook))