From e2561c80134f16663c1a05e081d3719d80f3114f Mon Sep 17 00:00:00 2001
From: Marc Hohl <marc@hohlart.de>
Date: Fri, 17 Jan 2014 18:22:24 +0100
Subject: [PATCH] TabNoteHead.style = #'slash supported.

---
 ly/property-init.ly |  2 ++
 scm/tablature.scm   | 13 +++++++------
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 42a1d5100c..852dbcee9e 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -273,12 +273,14 @@ unHideNotes = {
 improvisationOn = {
   \set squashedPosition = #0
   \override NoteHead.style = #'slash
+  \override TabNoteHead.style = #'slash
   \override Accidental.stencil = ##f
   \override AccidentalCautionary.stencil = ##f
 }
 improvisationOff = {
   \unset squashedPosition
   \revert NoteHead.style
+  \revert TabNoteHead.style
   \revert Accidental.stencil
   \revert AccidentalCautionary.stencil
 }
diff --git a/scm/tablature.scm b/scm/tablature.scm
index 0cd113fbbc..668bf2faa3 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -23,17 +23,18 @@
   (let ((style (ly:grob-property grob 'style)))
 
     (case style
-      ((cross) "2cross"))))
+      ((cross) "2cross")
+      ((slash) "2slash")
+      (else #f))))
 
 ;; ensure we only call note head callback when
-;; 'style = 'cross
+;; style is set to a known value
 (define-public (tab-note-head::whiteout-if-style-set grob)
   (let ((style (ly:grob-property grob 'style)))
 
-    (if (and (symbol? style)
-             (eq? style 'cross))
-        (stencil-whiteout (ly:note-head::print grob))
-        (tab-note-head::print grob))))
+    (case style
+      ((cross slash) (stencil-whiteout (ly:note-head::print grob)))
+      (else (tab-note-head::print grob)))))
 
 ;; definitions for the "moderntab" clef:
 ;; the "moderntab" clef will be added to the list of known clefs,
-- 
2.39.2