Browse code
Improving Lisp highlighting
Ed L authored on 09/05/2016 02:48:15
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -13,7 +13,7 @@ |
13 | 13 |
|
14 | 14 |
CodeMirror.defineMode("commonlisp", function (config) { |
15 | 15 |
var specialForm = /^(block|let*|return-from|catch|load-time-value|setq|eval-when|locally|symbol-macrolet|flet|macrolet|tagbody|function|multiple-value-call|the|go|multiple-value-prog1|throw|if|progn|unwind-protect|labels|progv|let|quote)$/; |
16 |
- var assumeBody = /^with|^def|^do|^prog|case$|^cond$|bind$|when$|unless$/; |
|
16 |
+ var assumeBody = /^with|(^|[:])def(?!ault)|^do|^prog|case$|^cond$|bind$|when$|unless$/; |
|
17 | 17 |
var numLiteral = /^(?:[+\-]?(?:\d+|\d*\.\d+)(?:[efd][+\-]?\d+)?|[+\-]?\d+(?:\/[+\-]?\d+)?|#b[+\-]?[01]+|#o[+\-]?[0-7]+|#x[+\-]?[\da-f]+)/; |
18 | 18 |
var symbol = /[^\s'`,@()\[\]";]/; |
19 | 19 |
var type; |