[Maxima-commits] CVS: maxima/src init-cl.lisp,1.84,1.85

[Vadim V. Z. <vv...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv2628

Modified Files:
	init-cl.lisp 
Log Message:
Russian language support


Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- init-cl.lisp	16 Jan 2007 16:30:10 -0000	1.84
+++ init-cl.lisp	17 Jan 2007 16:47:14 -0000	1.85
@@ -242,6 +242,14 @@
 		    	    (setq *maxima-lang-subdir* language))    
 		      (if (zl-member codeset '("utf-8" "utf8"))
 		    	    (setq *maxima-lang-subdir* (concatenate 'string *maxima-lang-subdir* ".utf8"))))
+		    ;; Russian. Default codepage cp1251 
+		    ((string= language "ru")
+		      (setq *maxima-lang-subdir* language)    
+		      (cond 
+		          ((zl-member codeset '("utf-8" "utf8"))
+		    	      (setq *maxima-lang-subdir* (concatenate 'string *maxima-lang-subdir* ".utf8")))
+			  ((zl-member codeset '("koi8-r" "koi8r"))
+		    	      (setq *maxima-lang-subdir* (concatenate 'string *maxima-lang-subdir* ".koi8r")))))
 		    (t  (setq *maxima-lang-subdir* nil)))
 	    )))))