[Erbot-cvs] erbot erbtranslate.el

[Vivek Dasmohapatra]

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

Modified files:
        .              : erbtranslate.el 

Log message:
        List origin/destination languages resulting from a one-endpoint search
        in a compact form, so the user can see what is available.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbtranslate.el.diff?tr1=1.16&tr2=1.17&r1=text&r2=text

Patches:
Index: erbot/erbtranslate.el
diff -u erbot/erbtranslate.el:1.16 erbot/erbtranslate.el:1.17
--- erbot/erbtranslate.el:1.16  Tue May  9 18:27:21 2006
+++ erbot/erbtranslate.el       Tue May  9 18:48:42 2006
@@ -209,21 +209,22 @@
      ( (or (not to) (not from)) ;; one end point specified
        (let ( (dir (if from "From" "To")) 
               (op  (if from 'car 'cadr))
+              (op2 (if from 'cadr 'car))
               (s   nil)
               (x   0) 
               (fl  (format "%s" (or from to))) )
          (mapc 
           (lambda (p) (if (member-ignore-case fl (funcall op p)) 
-                          (setq x (1+ x) s (cons p s))))
+                          (setq x (1+ x) 
+                                s (cons (car (funcall op2 p)) s))))
           erbtranslate-pairs)
          (setq fl (or (erbtranslate-full-name fl) fl))
          (apply 'concat 
                 (format "%s %s: %d language(s) available.\n" dir fl x) 
-                (if (<= (length s) 20) 
-                    (mapcar (lambda (x) 
-                              (format "%s -> %s\n" 
-                                      (princ (car  x)) 
-                                      (princ (cadr x)))) s)) )) )
+                (if (<= (length s) 100) 
+                    (list 
+                     (mapconcat 
+                      (lambda (x) (erbtranslate-full-name x)) s ", ")) ))) )
      (t ;; fully spec'd translation 
       (let ( (s nil) 
              (x   0)