%%http://lsr.di.unimi.it/LSR/Item?id=1095

% For version "2.19" and higher: dam = #(define-event-function () () etc.

\paper { tagline = ##f }

dam = #(define-event-function () ()
  #{  
     -\tweak bound-details.right-broken.text ##f
     -\tweak bound-details.right.text 
        #(markup #:translate (cons .7 -1) #:line (#:null #:musicglyph "pedal.*")) 
     \glissando 
  #})

{ 
 << { s1 R1 } \\ { a1 \dam\once\hideNotes e } >>
}

{ 
  << 
    { s1 R1 } \\
    {
      \once\override Glissando.breakable = ##t
      \once\override Glissando.after-line-breaking = ##t
      a1 \dam\once\hideNotes\break e 
    }
  >>
}