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.
|