Merge branch 'emacs' of http://git.hacks-galore.org/jao/factor
commit
5a43dda03c
|
@ -95,7 +95,7 @@ PRIVATE>
|
||||||
[ [ see ] with-string-writer \ $code swap 2array ] bi 3array ; inline
|
[ [ see ] with-string-writer \ $code swap 2array ] bi 3array ; inline
|
||||||
|
|
||||||
: (fuel-word-def) ( name -- str )
|
: (fuel-word-def) ( name -- str )
|
||||||
fuel-find-word [ [ def>> pprint ] with-string-writer ] when* ; inline
|
fuel-find-word [ [ def>> pprint ] with-string-writer ] [ f ] if* ; inline
|
||||||
|
|
||||||
: (fuel-vocab-summary) ( name -- str ) >vocab-link summary ; inline
|
: (fuel-vocab-summary) ( name -- str ) >vocab-link summary ; inline
|
||||||
|
|
||||||
|
|
|
@ -94,7 +94,7 @@
|
||||||
"\\_<-?[0-9]+\\.[0-9]*\\([eE][+-]?[0-9]+\\)?\\_>")
|
"\\_<-?[0-9]+\\.[0-9]*\\([eE][+-]?[0-9]+\\)?\\_>")
|
||||||
|
|
||||||
(defconst fuel-syntax--bad-string-regex
|
(defconst fuel-syntax--bad-string-regex
|
||||||
"\"[^\"]*$")
|
"\"\\([^\"]\\|\\\\\"\\)*\n")
|
||||||
|
|
||||||
(defconst fuel-syntax--word-definition-regex
|
(defconst fuel-syntax--word-definition-regex
|
||||||
(fuel-syntax--second-word-regex
|
(fuel-syntax--second-word-regex
|
||||||
|
@ -226,7 +226,7 @@
|
||||||
;; CHARs:
|
;; CHARs:
|
||||||
("CHAR: \\(.\\)\\( \\|$\\)" (1 "w"))
|
("CHAR: \\(.\\)\\( \\|$\\)" (1 "w"))
|
||||||
;; Strings
|
;; Strings
|
||||||
("\\(\"\\)[^\n\r\f]*\\(\"\\)" (1 "\"") (2 "\""))
|
("\\(\"\\)\\([^\n\r\f\\\"]\\|\\\\\"?\\)*\\(\"\\)" (1 "\"") (3 "\""))
|
||||||
;; Let and lambda:
|
;; Let and lambda:
|
||||||
("\\_<\\(!(\\) .* \\()\\)" (1 "<") (2 ">"))
|
("\\_<\\(!(\\) .* \\()\\)" (1 "<") (2 ">"))
|
||||||
("\\(\\[\\)\\(let\\|wlet\\|let\\*\\)\\( \\|$\\)" (1 "(]"))
|
("\\(\\[\\)\\(let\\|wlet\\|let\\*\\)\\( \\|$\\)" (1 "(]"))
|
||||||
|
|
Loading…
Reference in New Issue