[gsharp-cvs] CVS gsharp

rstrandh rstrandh at common-lisp.net
Tue Jan 16 05:11:09 UTC 2007


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




More information about the Gsharp-cvs mailing list