Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv19095

Modified Files: modes.lisp Log Message: Fix M-h in lyrics mode

--- /project/gsharp/cvsroot/gsharp/modes.lisp 2006/05/23 10:55:26 1.14 +++ /project/gsharp/cvsroot/gsharp/modes.lisp 2006/06/05 10:06:58 1.15 @@ -89,7 +89,7 @@ :inherit-from (rhythmic-table))

(set-key (lambda () (erase-char (cur-element))) 'lyrics-table '((#\h :control))) -(set-key 'com-erase-element 'lyrics-table '((#\h :meta))) +(set-key `(com-erase-element *numeric-argument-marker*) 'lyrics-table '((#\h :meta))) (set-key 'insert-lyrics-element 'lyrics-table '((#\Space :control)))