[Top][All Lists]
[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)