[gsharp-cvs] CVS gsharp

[crhodes]

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)))