" tweaking is done
" 19.09.2007 NO still some mapleader problems
" 31.01.2017 MB fix more mapleader problems
+" 29.06.2026 Vim add fnameescpe/shellescape
" Help Page: ft-ada-functions
"------------------------------------------------------------------------------
"
function ada#Create_Tags (option)
if a:option == 'file'
- let l:Filename = fnamemodify (bufname ('%'), ':p')
+ let l:Filename = shellescape (fnamemodify (bufname ('%'), ':p'))
elseif a:option == 'dir'
+ let l:Dir = fnamemodify (bufname ('%'), ':p:h')
let l:Filename =
- \ fnamemodify (bufname ('%'), ':p:h') . "*.ada " .
- \ fnamemodify (bufname ('%'), ':p:h') . "*.adb " .
- \ fnamemodify (bufname ('%'), ':p:h') . "*.ads"
+ \ shellescape (l:Dir) . "*.ada " .
+ \ shellescape (l:Dir) . "*.adb " .
+ \ shellescape (l:Dir) . "*.ads"
else
- let l:Filename = a:option
+ let l:Filename = shellescape (a:option)
endif
execute '!ctags --excmd=number ' . l:Filename
endfunction ada#Create_Tags
" vimball.vim : construct a file containing both paths and files
" Maintainer: This runtime file is looking for a new maintainer.
" Original Author: Charles E. Campbell
-" Date: May 20, 2026
+" Date: Jun 29, 2026
" Version: 37 (with modifications from the Vim Project)
" GetLatestVimScripts: 1502 1 :AutoInstall: vimball.vim
" Copyright: (c) 2004-2011 by Charles E. Campbell
call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) gunzip may have failed with <".a:fname.">")
endif
let fname= substitute(a:fname,'\.gz$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.gz' && executable("gzip")
call vimball#ShowMesg(s:WARNING,'(vimball#Decompress) "gzip -d" may have failed with <'.a:fname.">")
endif
let fname= substitute(a:fname,'\.gz$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.bz2' && executable("bunzip2")
call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) bunzip2 may have failed with <".a:fname.">")
endif
let fname= substitute(a:fname,'\.bz2$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.bz2' && executable("bzip2")
call vimball#ShowMesg(s:WARNING,'(vimball#Decompress) "bzip2 -d" may have failed with <'.a:fname.">")
endif
let fname= substitute(a:fname,'\.bz2$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.bz3' && executable("bunzip3")
call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) bunzip3 may have failed with <".a:fname.">")
endif
let fname= substitute(a:fname,'\.bz3$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.bz3' && executable("bzip3")
call vimball#ShowMesg(s:WARNING,'(vimball#Decompress) "bzip3 -d" may have failed with <'.a:fname.">")
endif
let fname= substitute(a:fname,'\.bz3$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
elseif expand("%") =~ '.*\.zip' && executable("unzip")
call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) unzip may have failed with <".a:fname.">")
endif
let fname= substitute(a:fname,'\.zip$','','')
- exe "e ".escape(fname,' \')
+ exe "e ".fnameescape(fname)
if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif
endif