-" We'll use Q for various commands. Unmap it.
-map Q <Nop>
-
-" Change to ts=2 with Q2.
-map Q2 :se ts=2<CR>:<CR>
-" Change to ts=4 with Q4.
-map Q4 :se ts=4<CR>:<CR>
-" Change to ts=8 with Q8.
-map Q8 :se ts=8<CR>:<CR>
-" Change to ts=16 with Q6.
-map Q6 :se ts=16<CR>:<CR>
-" Change to ts=32 with Q3.
-map Q3 :se ts=32<CR>:<CR>
-" Change foldmethod with Qf.
-map Qf :se foldenable!<CR>:<CR>
-" Toggle paste mode with Qp.
-map Qp :se paste!<CR>:<CR>
-" Swap hex/decimal statusline with Qx
-map Qx :call Cycle_HexStatusLine()<CR>:<CR>
-" Change statusline verbosity with Qv
-map Qv :call Cycle_VerboseStatusLine()<CR>:<CR>
-" Swap case-sensitivity with Qc.
-map Qc :call Invert_Case()<CR>:<CR>
-" Cycle list styles with Ql.
-map Ql :call Cycle_List()<CR>:<CR>
-" Change number mode with Qn.
-map Qn :call Cycle_Number()<CR>:<CR>
-" Toggle tags with Qt.
-map Qt :Tlist<CR>
-" Clear search pattern with Q/.
-map Q/ :let @/=""<CR>:<CR>
-
-" Leaving Perl mode.
-fun! PerlMode_unmap()
- set cinkeys=oldcinkeys
- set cinwords=oldcinwords
- set foldmethod=manual