[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erbot-cvs] erbot erbtranslate.el
From: |
D. Goel |
Subject: |
[Erbot-cvs] erbot erbtranslate.el |
Date: |
Mon, 24 Apr 2006 17:45:30 +0000 |
CVSROOT: /cvsroot/erbot
Module name: erbot
Branch:
Changes by: D. Goel <address@hidden> 06/04/24 17:45:30
Modified files:
. : erbtranslate.el
Log message:
improve a bit more: functionality
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbtranslate.el.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
Patches:
Index: erbot/erbtranslate.el
diff -u erbot/erbtranslate.el:1.3 erbot/erbtranslate.el:1.4
--- erbot/erbtranslate.el:1.3 Mon Apr 24 16:57:18 2006
+++ erbot/erbtranslate.el Mon Apr 24 17:45:30 2006
@@ -1,5 +1,5 @@
;;; erbtranslate.el --- Natural Language translation functions. CURRENTLY
INSECURE.
-;; Time-stamp: <2006-04-24 12:37:46 deego>
+;; Time-stamp: <2006-04-24 13:41:30 deego>
;; Copyright (C) 2002 Alejandro Benitez
;; Emacs Lisp Archive entry
;; Filename: erbc
@@ -54,14 +54,16 @@
-(defun fsi-translate (from to text)
+(defun fsi-translate (from to &rest text)
(erbtranslate-enabled-check)
(require 'shs)
+ (setq text (mapconcat #'(lambda (arg) (format "%s" arg))
+ text " "))
(shsp
(list
"translate-bin" "-f" (format "%s" from)
"-t" (format "%s" to))
- nil text))
+ nil (format "%s" text)))
@@ -69,25 +71,25 @@
(defalias 'fsi-t8-l 'fsi-translate-list-pairs)
-(defun fsi-translate-list-pairs ()
+(defun fsi-translate-list-pairs (&rest args)
(erbtranslate-enabled-check)
(erbn-shell-command-to-string "translate-bin --list-pairs"
- t))
+ '(t)))
(defalias 'fsi-t8-s 'fsi-translate-list-services)
-(defun fsi-translate-list-services ()
+(defun fsi-translate-list-services (&rest args)
(erbtranslate-enabled-check)
(erbn-shell-command-to-string "translate-bin --list-services"
- t))
+ '(t)))
-(defun fsi-translate-web-page (from to url)
+(defun fsi-translate-web-page (from to url &rest args)
(erbtranslate-enabled-check)
(shsp (list "translate-bin" "-f"
(format "%s" from) "-t"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erbot-cvs] erbot erbtranslate.el,
D. Goel <=