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)