[Gd-chatter] r11352 - trunk/gwydion/tools/elisp

[cpage at gwydiondylan.org]

Author: cpage
Date: Sun May 13 16:00:38 2007
New Revision: 11352

Modified:
   trunk/gwydion/tools/elisp/dylan-mode.el
Log:
Job: minor

Font Lock highlight calls to condition-signaling functions with
`font-lock-warning-face'.

Signaling functions are: signal, error, cerror, break, check-type, abort.


Modified: trunk/gwydion/tools/elisp/dylan-mode.el
==============================================================================
--- trunk/gwydion/tools/elisp/dylan-mode.el	(original)
+++ trunk/gwydion/tools/elisp/dylan-mode.el	Sun May 13 16:00:38 2007
@@ -760,6 +760,13 @@
 				    "\\>")
 			    1 font-lock-keyword-face)
 		      dyl-other-pattern
+		      ;; Condition signaling function calls
+		      (list (concat (regexp-opt
+				     '("signal" "error" "cerror"
+				       "break" "check-type" "abort")
+				     'words)
+				    "[ \t]*(")
+			    1 font-lock-warning-face)
 		      ;; Definition starts
 		      (list (concat "\\b\\(" dyl-define-pattern
 				    "\\(" dyl-constant-simple-definition-pattern "\\|"