Mercurial > vim
view runtime/ftplugin/scheme.vim @ 11142:a54985a73ab2 v8.0.0458
patch 8.0.0458: potential crash if adding list or dict to dict fails
commit https://github.com/vim/vim/commit/42f45b850df93b806ef44f3025aecedfffb9ae01
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue Mar 14 22:17:14 2017 +0100
patch 8.0.0458: potential crash if adding list or dict to dict fails
Problem: Potential crash if adding list or dict to dict fails.
Solution: Make sure the reference count is correct. (Nikolai Pavlov, closes
#1555)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 14 Mar 2017 22:30:05 +0100 |
parents | 9521463d4fc1 |
children | 167a030448fa |
line wrap: on
line source
" Vim filetype plugin " Language: Scheme " Maintainer: Sergey Khorev <sergey.khorev@gmail.com> " URL: http://sites.google.com/site/khorser/opensource/vim " Original author: Dorai Sitaram <ds26@gte.com> " Original URL: http://www.ccs.neu.edu/~dorai/vimplugins/vimplugins.html " Last Change: Oct 23, 2013 " Only do this when not done yet for this buffer if exists("b:did_ftplugin") finish endif " Don't load another plugin for this buffer let b:did_ftplugin = 1 " Copy-paste from ftplugin/lisp.vim setl comments=:; setl define=^\\s*(def\\k* setl formatoptions-=t setl iskeyword+=+,-,*,/,%,<,=,>,:,$,?,!,@-@,94 setl lisp setl commentstring=;%s setl comments^=:;;;,:;;,sr:#\|,mb:\|,ex:\|# " Scheme-specific settings if exists("b:is_mzscheme") || exists("is_mzscheme") " improve indenting setl iskeyword+=#,%,^ setl lispwords+=module,parameterize,let-values,let*-values,letrec-values setl lispwords+=define-values,opt-lambda,case-lambda,syntax-rules,with-syntax,syntax-case setl lispwords+=define-signature,unit,unit/sig,compund-unit/sig,define-values/invoke-unit/sig endif if exists("b:is_chicken") || exists("is_chicken") " improve indenting setl iskeyword+=#,%,^ setl lispwords+=let-optionals,let-optionals*,declare setl lispwords+=let-values,let*-values,letrec-values setl lispwords+=define-values,opt-lambda,case-lambda,syntax-rules,with-syntax,syntax-case setl lispwords+=cond-expand,and-let*,foreign-lambda,foreign-lambda* endif let b:undo_ftplugin = "setlocal comments< define< formatoptions< iskeyword< lispwords< lisp< commentstring<"