view runtime/ftplugin/pascal.vim @ 17298:3d90ae62deca v8.1.1648

patch 8.1.1648: MS-Windows: build error with normal feaures commit https://github.com/vim/vim/commit/3f3e954d9676e374f222a18786c78e50af5041cb Author: Bram Moolenaar <Bram@vim.org> Date: Sun Jul 7 20:30:48 2019 +0200 patch 8.1.1648: MS-Windows: build error with normal feaures Problem: MS-Windows: build error with normal feaures. Solution: Adjust #ifdef for find_word_under_cursor().
author Bram Moolenaar <Bram@vim.org>
date Sun, 07 Jul 2019 20:45:04 +0200
parents 0877b8d6370e
children e3ec2ec8841a
line wrap: on
line source

" Vim filetype plugin file
" Language:	pascal
" Maintainer:	Dan Sharp <dwsharp at users dot sourceforge dot net>
" Last Changed: 11 Apr 2011
" URL:		http://dwsharp.users.sourceforge.net/vim/ftplugin

if exists("b:did_ftplugin") | finish | endif
let b:did_ftplugin = 1

if exists("loaded_matchit")
    let b:match_ignorecase = 1 " (pascal is case-insensitive)

    let b:match_words = '\<\%(begin\|case\|record\|object\|try\)\>'
    let b:match_words .= ':\<^\s*\%(except\|finally\)\>:\<end\>'
    let b:match_words .= ',\<repeat\>:\<until\>'
    let b:match_words .= ',\<if\>:\<else\>'
endif

" Undo the stuff we changed.
let b:undo_ftplugin = "unlet! b:match_words"