+ note_tab_p_ = p;
+}
+
+bool
+My_lily_lexer::chordmodifier_b (String s) const
+{
+ return chordmodifier_tab_p_->elem_b (s);
+}
+
+void
+My_lily_lexer::set_chordmodifier_table (Notename_table *p)
+{
+ delete chordmodifier_tab_p_;
+ chordmodifier_tab_p_ = p;
+}
+
+char
+My_lily_lexer::escaped_char(char c) const
+{
+ switch(c)
+ {
+ case 'n':
+ return '\n';
+ case 't':
+ return '\t';
+
+ case '\'':
+ case '\"':
+ case '\\':
+ return c;
+ }
+ return 0;
+}
+
+Input
+My_lily_lexer::here_input () const
+{
+ Source_file * f_l= source_file_l ();
+ return Input (f_l, (char*)here_ch_C ());