Vivek Dasmohapatra
2012-06-19 13:15:51 UTC
CVSROOT: /sources/erbot
Module name: erbot
Changes by: Vivek Dasmohapatra <fledermaus> 12/06/19 13:15:51
Modified files:
contrib : translate.el
Log message:
utf8 encoding restrictions on hebrew, papiementu lifted; minor output munging
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/contrib/translate.el?cvsroot=erbot&r1=1.7&r2=1.8
Patches:
Index: translate.el
===================================================================
RCS file: /sources/erbot/erbot/contrib/translate.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- translate.el 30 Sep 2009 22:23:04 -0000 1.7
+++ translate.el 19 Jun 2012 13:15:51 -0000 1.8
@@ -19,7 +19,7 @@
;; This is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This is distributed in the hope that it will be useful,
@@ -47,7 +47,7 @@
usually text, and occasionally web-page as well. No other types are currently
known.")
-(defvar translate-unsupported-langs '("he" "pap")
+(defvar translate-unsupported-langs nil
"Languages (two/three letter codes) that we cannot utf-8 encode yet.")
(defgroup translate nil
@@ -232,6 +232,6 @@
)) ))
(if (/= 0 status)
(error "%d - %s" status translation))
- translation ))
+ (replace-regexp-in-string "<.*?>" "" translation) ))
(provide 'translate)
Module name: erbot
Changes by: Vivek Dasmohapatra <fledermaus> 12/06/19 13:15:51
Modified files:
contrib : translate.el
Log message:
utf8 encoding restrictions on hebrew, papiementu lifted; minor output munging
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/contrib/translate.el?cvsroot=erbot&r1=1.7&r2=1.8
Patches:
Index: translate.el
===================================================================
RCS file: /sources/erbot/erbot/contrib/translate.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- translate.el 30 Sep 2009 22:23:04 -0000 1.7
+++ translate.el 19 Jun 2012 13:15:51 -0000 1.8
@@ -19,7 +19,7 @@
;; This is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This is distributed in the hope that it will be useful,
@@ -47,7 +47,7 @@
usually text, and occasionally web-page as well. No other types are currently
known.")
-(defvar translate-unsupported-langs '("he" "pap")
+(defvar translate-unsupported-langs nil
"Languages (two/three letter codes) that we cannot utf-8 encode yet.")
(defgroup translate nil
@@ -232,6 +232,6 @@
)) ))
(if (/= 0 status)
(error "%d - %s" status translation))
- translation ))
+ (replace-regexp-in-string "<.*?>" "" translation) ))
(provide 'translate)