mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-20 00:15:27 +00:00
Code Issues Projects Releases Wiki Activity

When checking for lines with length > 80 columns,

Browse Source 
Estimated hours taken: 0.25
Branches: main

vim/syntax/mercury.vim:
	When checking for lines with length > 80 columns,
	handle tabs properly (assuming the tab size 8).
This commit is contained in:
Fergus Henderson
2003-01-27 09:18:42 +00:00
parent 3fd778ef39
commit 17d6bc9eba
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vim/syntax/mercury.vim
View File

@@ -60,8 +60,12 @@ syn match mercuryStringFmt +\\[abfnrtv]\|\\x[0-9a-fA-F]*\\\|%[-+# *.0-9]*[d
syn region mercuryClauseHead start=+^[a-zA-Z]+ end=+=\|:-\|\.\s*$\|-->+ contains=mercuryComment,mercuryCComment,mercuryAtom,mercuryString syn region mercuryClauseHead start=+^[a-zA-Z]+ end=+=\|:-\|\.\s*$\|-->+ contains=mercuryComment,mercuryCComment,mercuryAtom,mercuryString
syn region mercuryCComment start=+/\*+ end=+\*/+ contains=mercuryToDo syn region mercuryCComment start=+/\*+ end=+\*/+ contains=mercuryToDo
if !exists("mercury_no_highlight_overlong") || !mercury_no_highlight_overlong if !exists("mercury_no_highlight_overlong") || !mercury_no_highlight_overlong
syn match mercuryFirst80 +^.\{80}+ contains=ALL " The complicated regexp here matches an 80-column string,
syn match mercuryTooLong +^.\{81,}+ contains=mercuryFirst80 " with proper treatment of tabs (assuming the tab size is 8):
" each row consists of 10 columns, and each column consists of either 8
" non-tab characters, or 0-7 non-tab characters followed by a tab.
syn match mercuryFirst80 +^\([^ ]\{8}\|[^ ]\{0,7} \)\{10}+ contains=ALL
syn match mercuryTooLong +^\([^ ]\{8}\|[^ ]\{0,7} \)\{10}..*+ contains=mercuryFirst80
endif endif
syn sync fromstart syn sync fromstart