add a * when rendering executable paths

This commit is contained in:
Martin Grenfell 2008-06-21 20:46:35 +12:00
parent d56bf992d2
commit 59b132f0f7

View File

@ -1270,6 +1270,10 @@ endfunction
function! s:oPath.StrDisplay() dict
let toReturn = self.GetLastPathComponent(1)
if self.isExecutable
let toReturn = toReturn . '*'
endif
let bookmarks = self.BookmarkNames()
if !empty(bookmarks)
let toReturn .= ' {' . join(bookmarks, ',') . '}'
@ -2502,6 +2506,9 @@ function! s:StripMarkupFromLine(line, removeLeadingSpaces)
"strip off any bookmark flags
let line = substitute (line, ' {[^}]*}', "","")
"strip off any executable flags
let line = substitute (line, '*\ze\($\| \)', "","")
let wasdir = 0
if line =~ '/$'
let wasdir = 1