[pure-lang-svn] SF.net SVN: pure-lang: [371] pure/trunk/etc/pure-mode.el.in

[<ag...@us...>]

Revision: 371
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=371&view=rev
Author:   agraef
Date:     2008-07-02 14:34:02 -0700 (Wed, 02 Jul 2008)

Log Message:
-----------
Fontification fixes for pure-eval mode.

Modified Paths:
--------------
    pure/trunk/etc/pure-mode.el.in

Modified: pure/trunk/etc/pure-mode.el.in
===================================================================
--- pure/trunk/etc/pure-mode.el.in	2008-07-02 20:46:27 UTC (rev 370)
+++ pure/trunk/etc/pure-mode.el.in	2008-07-02 21:34:02 UTC (rev 371)
@@ -126,7 +126,7 @@
   :group 'pure)
 
 (defcustom pure-msg-regexp
-  "^[ \t]*\\(\\([^:\n]+\\):\\([0-9]+\\)\\(\\.[0-9]+\\)?\\):"
+  "^[ \t]*\\(\\([^:\n]+\\):\\([0-9]+\\)\\(\\.[0-9]+\\)?\\): "
 "*Regexp to match error and warning messages with source line references in
 the Pure eval buffer. Expression 1 denotes the whole source line info,
 expression 2 the file name and expression 3 the corresponding line number."
@@ -161,12 +161,12 @@
 ;    (list pure-prompt-regexp 0 'font-lock-preprocessor-face t)
    (list pure-msg-regexp 0 'font-lock-warning-face t)
    (list "::\\([A-Za-z_][A-Za-z_0-9]*\\)" 1 'font-lock-type-face)
-   (list "\\<\\(catch\\|throw\\)\\>" 0 'font-lock-builtin-face)
+;   (list "\\<\\(catch\\|throw\\)\\>" 0 'font-lock-builtin-face)
    (list
     (concat "\\<\\("
-	    "case\\|def\\|e\\(lse\\|nd\\|xtern\\)\\|i\\(f\\|nfix[lr]?\\)\\|"
-	    "let\\|nullary\\|o\\(f\\|therwise\\)\\|p\\(refix\\|ostfix\\)\\|"
-	    "then\\|using\\|w\\(hen\\|ith\\)"
+	    "def\\|extern\\|infix[lr]?\\|"
+	    "let\\|nullary\\|p\\(refix\\|ostfix\\)\\|"
+	    "using"
 	    "\\)\\>")
     0 'font-lock-keyword-face))
   "Rules for fontifying in Pure-Eval mode.")


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.