Mercurial > vim
view runtime/syntax/aflex.vim @ 24790:14b86681e6e6 v8.2.2933
patch 8.2.2933: when 'clipboard' is "unnamed" zp does not work correctly
Commit: https://github.com/vim/vim/commit/6e0b553fa12fc5ad5d8ee3d8457e7cb16f38b56f
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Jun 4 17:11:47 2021 +0200
patch 8.2.2933: when 'clipboard' is "unnamed" zp does not work correctly
Problem: When 'clipboard' is "unnamed" zp and zP do not work correctly.
Solution: Pass -1 to str_to_reg() and fix computing the character width
instead of using the byte length. (Christian Brabandt,
closes #8301, closes #8317)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Fri, 04 Jun 2021 17:15:03 +0200 |
| parents | 46763b01cd9a |
| children |
line wrap: on
line source
" Vim syntax file " Language: AfLex (from Lex syntax file) " Maintainer: Mathieu Clabaut <mathieu.clabaut@free.fr> " LastChange: 02 May 2001 " Original: Lex, maintained by Dr. Charles E. Campbell, Jr. " Comment: Replaced sourcing c.vim file by ada.vim and rename lex* " in aflex* " quit when a syntax file was already loaded if exists("b:current_syntax") finish endif " Read the Ada syntax to start with runtime! syntax/ada.vim unlet b:current_syntax " --- AfLex stuff --- "I'd prefer to use aflex.* , but it doesn't handle forward definitions yet syn cluster aflexListGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatString,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,aflexPatCode,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 syn cluster aflexListPatCodeGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 " Abbreviations Section syn region aflexAbbrvBlock start="^\([a-zA-Z_]\+\t\|%{\)" end="^%%$"me=e-2 skipnl nextgroup=aflexPatBlock contains=aflexAbbrv,aflexInclude,aflexAbbrvComment syn match aflexAbbrv "^\I\i*\s"me=e-1 skipwhite contained nextgroup=aflexAbbrvRegExp syn match aflexAbbrv "^%[sx]" contained syn match aflexAbbrvRegExp "\s\S.*$"lc=1 contained nextgroup=aflexAbbrv,aflexInclude syn region aflexInclude matchgroup=aflexSep start="^%{" end="%}" contained contains=ALLBUT,@aflexListGroup syn region aflexAbbrvComment start="^\s\+/\*" end="\*/" "%% : Patterns {Actions} syn region aflexPatBlock matchgroup=Todo start="^%%$" matchgroup=Todo end="^%%$" skipnl skipwhite contains=aflexPat,aflexPatTag,aflexPatComment syn region aflexPat start=+\S+ skip="\\\\\|\\." end="\s"me=e-1 contained nextgroup=aflexMorePat,aflexPatSep contains=aflexPatString,aflexSlashQuote,aflexBrace syn region aflexBrace start="\[" skip=+\\\\\|\\+ end="]" contained syn region aflexPatString matchgroup=String start=+"+ skip=+\\\\\|\\"+ matchgroup=String end=+"+ contained syn match aflexPatTag "^<\I\i*\(,\I\i*\)*>*" contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep syn match aflexPatTag +^<\I\i*\(,\I\i*\)*>*\(\\\\\)*\\"+ contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep syn region aflexPatComment start="^\s*/\*" end="\*/" skipnl contained contains=cTodo nextgroup=aflexPatComment,aflexPat,aflexPatString,aflexPatTag syn match aflexPatCodeLine ".*$" contained contains=ALLBUT,@aflexListGroup syn match aflexMorePat "\s*|\s*$" skipnl contained nextgroup=aflexPat,aflexPatTag,aflexPatComment syn match aflexPatSep "\s\+" contained nextgroup=aflexMorePat,aflexPatCode,aflexPatCodeLine syn match aflexSlashQuote +\(\\\\\)*\\"+ contained syn region aflexPatCode matchgroup=Delimiter start="{" matchgroup=Delimiter end="}" skipnl contained contains=ALLBUT,@aflexListPatCodeGroup syn keyword aflexCFunctions BEGIN input unput woutput yyleng yylook yytext syn keyword aflexCFunctions ECHO output winput wunput yyless yymore yywrap " <c.vim> includes several ALLBUTs; these have to be treated so as to exclude aflex* groups syn cluster cParenGroup add=aflex.* syn cluster cDefineGroup add=aflex.* syn cluster cPreProcGroup add=aflex.* syn cluster cMultiGroup add=aflex.* " Synchronization syn sync clear syn sync minlines=300 syn sync match aflexSyncPat grouphere aflexPatBlock "^%[a-zA-Z]" syn sync match aflexSyncPat groupthere aflexPatBlock "^<$" syn sync match aflexSyncPat groupthere aflexPatBlock "^%%$" " Define the default highlighting. " Only when an item doesn't have highlighting yet hi def link aflexSlashQuote aflexPat hi def link aflexBrace aflexPat hi def link aflexAbbrvComment aflexPatComment hi def link aflexAbbrv SpecialChar hi def link aflexAbbrvRegExp Macro hi def link aflexCFunctions Function hi def link aflexMorePat SpecialChar hi def link aflexPat Function hi def link aflexPatComment Comment hi def link aflexPatString Function hi def link aflexPatTag Special hi def link aflexSep Delimiter let b:current_syntax = "aflex" " vim:ts=10