+" Set mark and update highlighting.
+if has("signs")
+ au Signs BufEnter * call <SID>Highlight_Signs()
+ au Signs CursorHold * call <SID>Highlight_Signs()
+endif
+
+fun! <SID>Prep_Signs()
+ if ! exists("b:signdot") || ! g:marksigns
+ let b:signdot=0
+ endif
+ if ! exists("b:signdash") || ! g:marksigns
+ let b:signdash=0
+ endif
+ if ! exists("b:signquote") || ! g:marksigns
+ let b:signquote=0
+ endif
+ if ! exists("b:signcaret") || ! g:marksigns
+ let b:signcaret=0
+ endif
+ if ! exists("b:signless") || ! g:marksigns
+ let b:signless=0
+ endif
+ if ! exists("b:signgreater") || ! g:marksigns
+ let b:signgreater=0
+ endif
+ if ! exists("b:signleft") || ! g:marksigns
+ let b:signleft=0
+ endif
+ if ! exists("b:signright") || ! g:marksigns
+ let b:signright=0
+ endif
+ if ! exists("b:signsquareleft") || ! g:marksigns
+ let b:signsquareleft=0
+ endif
+ if ! exists("b:signsquareright") || ! g:marksigns
+ let b:signsquareright=0
+ endif
+ if ! exists("b:signbraceleft") || ! g:marksigns
+ let b:signbraceleft=0
+ endif
+ if ! exists("b:signbraceright") || ! g:marksigns
+ let b:signbraceright=0
+ endif
+ if ! exists("b:signa") || ! g:marksigns
+ let b:signa=0
+ endif
+ if ! exists("b:signb") || ! g:marksigns
+ let b:signb=0
+ endif
+ if ! exists("b:signc") || ! g:marksigns
+ let b:signc=0
+ endif
+ if ! exists("b:signd") || ! g:marksigns
+ let b:signd=0
+ endif
+ if ! exists("b:signe") || ! g:marksigns
+ let b:signe=0
+ endif
+ if ! exists("b:signf") || ! g:marksigns
+ let b:signf=0
+ endif
+ if ! exists("b:signA") || ! g:marksigns
+ let b:signA=0
+ endif
+ if ! exists("b:signB") || ! g:marksigns
+ let b:signB=0
+ endif
+ if ! exists("b:signC") || ! g:marksigns
+ let b:signC=0
+ endif
+ if ! exists("b:signD") || ! g:marksigns
+ let b:signD=0
+ endif
+ if ! exists("b:signE") || ! g:marksigns
+ let b:signE=0
+ endif
+ if ! exists("b:signF") || ! g:marksigns
+ let b:signF=0
+ endif
+endfun!
+
+fun! <SID>Place_Sign(number, line, old, name)
+ if a:line == a:old
+ return a:old
+ endif
+
+ exe "sign unplace " . (g:firstsign + a:number) . " buffer=" . bufnr("")
+ " Don't place the sign if it would conflict with the last change sign.
+ exe "sign place " . (g:firstsign + a:number) . " line=" . a:line . " name=" . a:name . " buffer=" . bufnr("")
+ return a:line
+endfun
+
+fun! <SID>Highlight_Signs(...)
+ if ! has("signs") || ! g:marksigns || Uncluttered_Buffer()
+ return
+ endif
+
+ call <SID>Prep_Signs()
+
+ let b:signdot = <SID>Place_Sign(0, line("'."), b:signdot, "MarkDot")
+ let b:signdash = <SID>Place_Sign(1, line("''"), b:signdash, "MarkDash")
+ let b:signquote = <SID>Place_Sign(2, line("'\""), b:signquote, "MarkQuote")
+ let b:signcaret = <SID>Place_Sign(3, line("'^"), b:signcaret, "MarkCaret")
+ let b:signless = <SID>Place_Sign(4, line("'<"), b:signless, "MarkLess")
+ let b:signgreater = <SID>Place_Sign(5, line("'>"), b:signgreater, "MarkGreater")
+ let b:signleft = <SID>Place_Sign(6, line("'("), b:signleft, "MarkLeft")
+ let b:signright = <SID>Place_Sign(7, line("')"), b:signright, "MarkRight")
+ let b:signsquareleft = <SID>Place_Sign(8, line("'["), b:signsquareleft, "MarkSquareLeft")
+ let b:signsquareright = <SID>Place_Sign(9, line("']"), b:signsquareright, "MarkSquareRight")
+ let b:signbraceleft = <SID>Place_Sign(10, line("'{"), b:signbraceleft, "MarkBraceLeft")
+ let b:signbraceright = <SID>Place_Sign(11, line("'}"), b:signbraceright, "MarkBraceRight")
+
+ let b:signa = <SID>Place_Sign(12, line("'a"), b:signa, "Marka")
+ let b:signb = <SID>Place_Sign(13, line("'b"), b:signb, "Markb")
+ let b:signc = <SID>Place_Sign(15, line("'c"), b:signc, "Markc")
+ let b:signd = <SID>Place_Sign(16, line("'d"), b:signd, "Markd")
+ let b:signe = <SID>Place_Sign(17, line("'e"), b:signe, "Marke")
+ let b:signf = <SID>Place_Sign(18, line("'f"), b:signf, "Markf")
+ let b:signA = <SID>Place_Sign(19, line("'A"), b:signA, "MarkA")
+ let b:signB = <SID>Place_Sign(20, line("'B"), b:signB, "MarkB")
+ let b:signC = <SID>Place_Sign(21, line("'C"), b:signC, "MarkC")
+ let b:signD = <SID>Place_Sign(22, line("'D"), b:signD, "MarkD")
+ let b:signE = <SID>Place_Sign(23, line("'E"), b:signE, "MarkE")
+ let b:signF = <SID>Place_Sign(24, line("'F"), b:signF, "MarkF")
+endfun
+
+" Toggle signs.
+fun! <SID>Cycle_Signs(resize)
+ if ! has("signs")
+ return
+ endif
+ call Iain_Vars()
+ let g:marksigns = ! g:marksigns
+
+ if g:marksigns
+ " Signs to highlight marks.
+ " Syntax won't work properly in Vim 6.
+ if <SID>Has_Unicode()
+ sign define MarkDash text=’ texthl=MarkSign
+ sign define MarkDot text=• texthl=MarkDot
+ sign define MarkQuote text=” texthl=MarkSign
+ else
+ sign define MarkDash text=' texthl=MarkSign
+ sign define MarkDot text=* texthl=MarkDot
+ sign define MarkQuote text=" texthl=MarkSign
+ endif
+ sign define MarkCaret text=^ texthl=MarkDot
+ sign define MarkLess text=< texthl=MarkSign
+ sign define MarkGreater text=> texthl=MarkSign
+ sign define MarkLeft text=( texthl=MarkSign
+ sign define MarkRight text=) texthl=MarkSign
+ sign define MarkSquareLeft text=[ texthl=MarkSign
+ sign define MarkSquareRight text=] texthl=MarkSign
+ sign define MarkBraceLeft text={ texthl=MarkSign
+ sign define MarkBraceRight text=} texthl=MarkSign
+ sign define Marka text=a texthl=MarkSign linehl=MarkLine
+ sign define Markb text=b texthl=MarkSign linehl=MarkLine
+ sign define Markc text=c texthl=MarkSign linehl=MarkLine
+ sign define Markd text=d texthl=MarkSign linehl=MarkLine
+ sign define Marke text=e texthl=MarkSign linehl=MarkLine
+ sign define Markf text=f texthl=MarkSign linehl=MarkLine
+ sign define MarkA text=A texthl=MarkSign linehl=MarkLine
+ sign define MarkB text=B texthl=MarkSign linehl=MarkLine
+ sign define MarkC text=C texthl=MarkSign linehl=MarkLine
+ sign define MarkD text=D texthl=MarkSign linehl=MarkLine
+ sign define MarkE text=E texthl=MarkSign linehl=MarkLine
+ sign define MarkF text=F texthl=MarkSign linehl=MarkLine
+
+ if a:resize
+ call Resize_Columns("+", 2)
+ endif
+ call <SID>Highlight_Signs()
+ else
+ exe "sign unplace " . (g:firstsign + 0)
+ exe "sign unplace " . (g:firstsign + 1)
+ exe "sign unplace " . (g:firstsign + 2)
+ exe "sign unplace " . (g:firstsign + 3)
+ exe "sign unplace " . (g:firstsign + 4)
+ exe "sign unplace " . (g:firstsign + 5)
+ exe "sign unplace " . (g:firstsign + 6)
+ exe "sign unplace " . (g:firstsign + 7)
+ exe "sign unplace " . (g:firstsign + 8)
+ exe "sign unplace " . (g:firstsign + 9)
+ exe "sign unplace " . (g:firstsign + 10)
+ exe "sign unplace " . (g:firstsign + 11)
+ exe "sign unplace " . (g:firstsign + 12)
+ exe "sign unplace " . (g:firstsign + 13)
+ exe "sign unplace " . (g:firstsign + 14)
+ exe "sign unplace " . (g:firstsign + 15)
+ exe "sign unplace " . (g:firstsign + 16)
+ exe "sign unplace " . (g:firstsign + 17)
+ exe "sign unplace " . (g:firstsign + 18)
+ exe "sign unplace " . (g:firstsign + 19)
+ exe "sign unplace " . (g:firstsign + 20)
+ exe "sign unplace " . (g:firstsign + 21)
+ exe "sign unplace " . (g:firstsign + 22)
+ exe "sign unplace " . (g:firstsign + 23)
+ exe "sign unplace " . (g:firstsign + 24)
+
+ sign undefine MarkDash
+ sign undefine MarkDot
+ sign undefine MarkQuote
+ sign undefine MarkCaret
+ sign undefine MarkLess
+ sign undefine MarkGreater
+ sign undefine MarkLeft
+ sign undefine MarkRight
+ sign undefine MarkSquareLeft
+ sign undefine MarkSquareRight
+ sign undefine MarkBraceLeft
+ sign undefine MarkBraceRight
+ sign undefine Marka
+ sign undefine Markb
+ sign undefine Markc
+ sign undefine Markd
+ sign undefine Marke
+ sign undefine Markf
+ sign undefine MarkA
+ sign undefine MarkB
+ sign undefine MarkC
+ sign undefine MarkD
+ sign undefine MarkE
+ sign undefine MarkF
+
+ call <SID>Prep_Signs()
+ if a:resize
+ call Resize_Columns("-", 2)
+ endif
+ endif
+endfun
+
+fun! <SID>Has_Unicode()
+ if ! has('multi_byte')
+ return 0
+ endif
+
+ if version < "602"
+ return 0
+ endif
+
+ if &tenc =~? '^u\(tf\|cs\)'
+ return 1
+ endif
+
+ if ! strlen(&tenc) && &enc =~? '^u\(tf\|cs\)'
+ return 1
+ endif
+
+ return 0
+endfun
+