[gsharp-cvs] CVS update: gsharp/modes.lisp

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv15575

Modified Files:
	modes.lisp 
Log Message:
Allow capital letters in lyrics.

Date: Fri Oct 28 19:20:30 2005
Author: crhodes

Index: gsharp/modes.lisp
diff -u gsharp/modes.lisp:1.6 gsharp/modes.lisp:1.7
--- gsharp/modes.lisp:1.6	Tue Aug  2 02:34:41 2005
+++ gsharp/modes.lisp	Fri Oct 28 19:20:30 2005
@@ -76,7 +76,7 @@
 (loop for c in '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M 
 		 #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)
       for i from 65
-      do (set-key (make-insert-fun i) 'lyrics-table `((,c :shift))))
+      do (set-key (make-insert-fun i) 'lyrics-table `((,c))))
 
 (loop for c in '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m 
 		 #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)