-" Entering C mode.
-fun! CMode_map()
- let oldcinkeys=&cinkeys
- let oldcinwords=&cinwords
- set cinkeys=0{,0},:,0#,!^F,o,O,e
- set cinwords=if,else,while,do,for,switch
-endfun
-
-" Leaving C mode.
-fun! CMode_unmap()
- set cinkeys=oldcinkeys
- set cinwords=oldcinwords
-endfun
-
-" Entering Perl mode.
-fun! PerlMode_map()
- let oldcinkeys=&cinkeys
- let oldcinwords=&cinwords
- set cinkeys=0{,0},:,!^F,o,O,e
- set cinwords=if,else,while,do,for,eval
-endfun
-
-" Leaving Perl mode.
-fun! PerlMode_unmap()
- set cinkeys=oldcinkeys
- set cinwords=oldcinwords
-endfun
-