[Erbot-cvs] erbot erbim.el

[Vivek Dasmohapatra]

CVSROOT:        /sources/erbot
Module name:    erbot
Changes by:     Vivek Dasmohapatra <fledermaus> 06/08/22 00:46:10

Modified files:
        .              : erbim.el 

Log message:
        Tidy+fix the output when too many matching imput methods have been 
found.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbim.el?cvsroot=erbot&r1=1.2&r2=1.3

Patches:
Index: erbim.el
===================================================================
RCS file: /sources/erbot/erbot/erbim.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- erbim.el    22 Aug 2006 00:18:17 -0000      1.2
+++ erbim.el    22 Aug 2006 00:46:10 -0000      1.3
@@ -124,7 +124,7 @@
               (when (or (equal Q "iso-transl") (assoc Q quail-package-alist))
                 ;;(message "%s keymap - %d" Q (length (erbim-keymap-map Q)))
                 ;; extract the inverse keymap if there is one, and pull
-                ;; put the first entry for the char we are looking for:
+                ;; out the first entry for the char we are looking for:
                 (when (setq qsec (assoc char (erbim-keymap-map Q)))
                   ;;(message "found sequence %s" qsec)
                   (setq res (cons (cons Q (cdr qsec)) res)) )) ))
@@ -132,8 +132,8 @@
     ;; feed the results to the user (if there are lots of input methods,
     ;; just list the input methods instead):
     (if (> (length res) 10)
-        (format "%s is in the following input methods:\n%S" 
-                char (mapcar 'car res))
+        (format "%s is in the following input methods:\n%s"
+                c (mapconcat 'car res " "))
       (mapconcat 
        (lambda (R) 
          (if (equal (car R) "iso-transl")