erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erbot-cvs] erbot/contrib translate.el


From: Vivek Dasmohapatra
Subject: [Erbot-cvs] erbot/contrib translate.el
Date: Thu, 18 May 2006 18:37:58 +0000

CVSROOT:        /sources/erbot
Module name:    erbot
Branch:         
Changes by:     Vivek Dasmohapatra <address@hidden>     06/05/18 18:37:58

Modified files:
        contrib        : translate.el 

Log message:
        Ok, this time i _think_ I've cracked it: This seems to make 
libtranslate behave.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/contrib/translate.el.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: erbot/contrib/translate.el
diff -u erbot/contrib/translate.el:1.4 erbot/contrib/translate.el:1.5
--- erbot/contrib/translate.el:1.4      Thu May 18 17:47:46 2006
+++ erbot/contrib/translate.el  Thu May 18 18:37:58 2006
@@ -212,14 +212,14 @@
               (translate-full-name to-lang)) )
      ( t
        (with-temp-buffer
-         (let ( (lang     (getenv "LANG"))
-                (lc-ctype (getenv "LC_CTYPE"))
+         (let ( (lc-all (getenv "LC_ALL"))
+                (lang   (getenv "LANG"))
                 (coding-system-for-read  'utf-8)
                 (coding-system-for-write 'utf-8)
                 (process-coding-system-alist '("." . utf-8)) )
            (insert text)
-           (setenv "LANG"     "en_GB.UTF-8")
-           (setenv "LC_CTYPE" "ja_JP.UTF-8") ;; seems to work. here be dragons
+           (setenv "LC_ALL" nil)
+           (setenv "LANG"   "en_GB.UTF-8")
            (setq status
                  (call-process-region (point-min) (point-max)
                                       translate-program
@@ -227,11 +227,11 @@
                                       "-f" from "-t" to)
                  translation (buffer-substring-no-properties (point-min)
                                                              (point-max)))
-           (setenv "LANG"     lang)
-           (setenv "LC_CTYPE" lc-ctype) 
+           (setenv "LANG" lang)
+           (setenv "LC_ALL" lc-all)
            )) ))
      (if (/= 0 status)
          (error "%d - %s" status translation))
-     translation ))                     ;
+     translation ))
 
 (provide 'translate)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]