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

FUEL: fix highlighting of strings escaping quote characters 

(modify-syntax-entry ?\\ "_" table) was wrong, instead a bigger regexp
is needed.
char-rename
Björn Lindqvist 2016-06-30 01:00:42 +02:00
parent d9f17317e3
commit e8a62460aa
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
misc/fuel/factor-mode.el
View File

@ -183,7 +183,7 @@ these lines in your .emacs:
;;; Regexps galore: ;;; Regexps galore:
;; Utility regexp used by other regexps to match a Factor symbol name ;; Utility regexp used by other regexps to match a Factor symbol name
(setq-local symbol "\\(\\(?:\\sw\\|\\s_\\|\\s(\\|\\s)\\)+\\)") (setq-local symbol "\\(\\(?:\\sw\\|\\s_\\|\\s(\\|\\s)\\|\\s\\\\)+\\)")
(setq-local ws+ "[ \n\t]+") (setq-local ws+ "[ \n\t]+")
(setq-local symbols-to-semicolon "\\([^;\t]*\\)\\(;\\)") (setq-local symbols-to-semicolon "\\([^;\t]*\\)\\(;\\)")
@ -872,7 +872,6 @@ With prefix, non-existing files will be created."
(modify-syntax-entry ?# "_" table) (modify-syntax-entry ?# "_" table)
(modify-syntax-entry ?! "_" table) (modify-syntax-entry ?! "_" table)
(modify-syntax-entry ?\n "> " table) (modify-syntax-entry ?\n "> " table)
(modify-syntax-entry ?\\ "_" table)
(modify-syntax-entry ?$ "_" table) (modify-syntax-entry ?$ "_" table)
(modify-syntax-entry ?@ "_" table) (modify-syntax-entry ?@ "_" table)
(modify-syntax-entry ?? "_" table) (modify-syntax-entry ?? "_" table)

6
misc/fuel/strange-syntax.factor
View File

@ -12,6 +12,10 @@ TUPLE: a-tuple slot1 slot2 { slot3 integer } ;
USING: tools.test ; USING: tools.test ;
! ! Strings
"containing \"escapes" drop
! ! Symbol names ! ! Symbol names
! All slashes are symbol constituents. ! All slashes are symbol constituents.
@ -19,6 +23,8 @@ TUPLE: a-tuple slot1 slot2 { slot3 integer } ;
: slash\hack ( -- y ) 20 ; : slash\hack ( -- y ) 20 ;
TUPLE: oh\no ;
! As are quotes ! As are quotes
: don't-do-that ( x -- y ) ; : don't-do-that ( x -- y ) ;