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

Modified Files: modes.lisp Log Message: Make sure the file ends with a newline.

Also, untabify to make it easier to edit with Climacs.

--- /project/gsharp/cvsroot/gsharp/modes.lisp 2006/08/02 02:14:44 1.20 +++ /project/gsharp/cvsroot/gsharp/modes.lisp 2007/01/16 05:11:09 1.21 @@ -104,12 +104,12 @@ (lambda () (append-char (cur-element) code)))

(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) + #\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))))

(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) + #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z) for i from 97 do (set-key (make-insert-fun i) 'lyrics-table`((,c))))

@@ -178,6 +178,3 @@ (set-key (make-insert-fun 253) 'lyrics-table '((:dead--acute) (#\y)))

(set-key (make-insert-fun 255) 'lyrics-table '((:dead--diaeresis :shift) (#\y))) - - - \ No newline at end of file