display marks on tree

This commit is contained in:
Martin Grenfell 2008-06-06 22:27:01 +12:00
parent 7b26dac959
commit 782e60efc9

View File

@ -1211,6 +1211,11 @@ function! s:oPath.StrDisplay() dict
let toReturn .= ' -> ' . self.symLinkDest let toReturn .= ' -> ' . self.symLinkDest
endif endif
let marks = self.MarkNames()
if !empty(marks)
let toReturn .= ' {' . join(marks, ',') . '}'
endif
if self.isReadOnly if self.isReadOnly
let toReturn .= s:tree_RO_str let toReturn .= s:tree_RO_str
endif endif
@ -2763,6 +2768,7 @@ function! s:MarkNode(name)
if currentNode != {} if currentNode != {}
let marks = s:GetMarks() let marks = s:GetMarks()
let marks[a:name] = currentNode.path let marks[a:name] = currentNode.path
call s:RenderView()
else else
call s:Echo("select a node first") call s:Echo("select a node first")
endif endif