steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Fix ratio and float font lock.

db4
Jose A. Ortega Ruiz 2009-01-14 02:25:31 +01:00
parent 5a43dda03c
commit f64b8a2279
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
misc/fuel/fuel-listener.el
View File

@ -132,8 +132,7 @@ buffer."
(defun fuel-listener--setup-completion () (defun fuel-listener--setup-completion ()
(setq fuel-syntax--current-vocab-function 'fuel-listener--current-vocab) (setq fuel-syntax--current-vocab-function 'fuel-listener--current-vocab)
(setq fuel-syntax--usings-function 'fuel-listener--usings) (setq fuel-syntax--usings-function 'fuel-listener--usings))
(set-syntax-table fuel-syntax--syntax-table))
;;; Stack mode support ;;; Stack mode support
@ -160,7 +159,6 @@ buffer."
(set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex) (set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex)
(set (make-local-variable 'comint-use-prompt-regexp) t) (set (make-local-variable 'comint-use-prompt-regexp) t)
(set (make-local-variable 'comint-prompt-read-only) t) (set (make-local-variable 'comint-prompt-read-only) t)
(set-syntax-table fuel-syntax--syntax-table)
(fuel-listener--setup-completion) (fuel-listener--setup-completion)
(fuel-listener--setup-stack-mode)) (fuel-listener--setup-stack-mode))

14
misc/fuel/fuel-syntax.el
View File

@ -87,11 +87,19 @@
(defconst fuel-syntax--integer-regex (defconst fuel-syntax--integer-regex
"\\_<-?[0-9]+\\_>") "\\_<-?[0-9]+\\_>")
(defconst fuel-syntax--ratio-regex (defconst fuel-syntax--raw-float-regex
"\\_<-?\\([0-9]+\\+\\)?[0-9]+/-?[0-9]+\\_>") "[0-9]*\\.[0-9]*\\([eE][+-]?[0-9]+\\)?")
(defconst fuel-syntax--float-regex (defconst fuel-syntax--float-regex
"\\_<-?[0-9]+\\.[0-9]*\\([eE][+-]?[0-9]+\\)?\\_>") (format "\\_<-?%s\\_>" fuel-syntax--raw-float-regex))
(defconst fuel-syntax--number-regex
(format "\\([0-9]+\\|%s\\)" fuel-syntax--raw-float-regex))
(defconst fuel-syntax--ratio-regex
(format "\\_<[+-]?%s/-?%s\\_>"
fuel-syntax--number-regex
fuel-syntax--number-regex))
(defconst fuel-syntax--bad-string-regex (defconst fuel-syntax--bad-string-regex
"\"\\([^\"]\\|\\\\\"\\)*\n") "\"\\([^\"]\\|\\\\\"\\)*\n")