[Erbot-cvs] erbot erbtranslate.el

[Vivek Dasmohapatra]

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

Modified files:
        .              : erbtranslate.el 

Log message:
        Use full names even if no language pairs match our criteria.

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

Patches:
Index: erbot/erbtranslate.el
diff -u erbot/erbtranslate.el:1.12 erbot/erbtranslate.el:1.13
--- erbot/erbtranslate.el:1.12  Tue May  9 18:00:05 2006
+++ erbot/erbtranslate.el       Tue May  9 18:12:32 2006
@@ -215,7 +215,7 @@
           (lambda (p) (if (member-ignore-case fl (funcall op p)) 
                           (setq x (1+ x) s (cons p s))))
           erbtranslate-pairs)
-         (if (< 0 x) (setq fl (or (erbtranslate-full-name fl) fl)))
+         (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) 
@@ -233,9 +233,8 @@
            (if (and (member-ignore-case fl (car p)) (member tl (cadr p))) 
                (setq x (1+ x) s (cons p s)) )) 
          erbtranslate-pairs)
-        (if (< 0 x) 
-            (setq fl (or (erbtranslate-full-name fl) fl)
-                  tl (or (erbtranslate-full-name tl) tl)))
+        (setq fl (or (erbtranslate-full-name fl) fl)
+              tl (or (erbtranslate-full-name tl) tl))
         (apply 'concat 
                (format "%s -> %s: %d pair(s) available.\n" fl tl x) 
                (mapcar (lambda (x)