[Erbot-cvs] erbot erbim.el

[Vivek Dasmohapatra]

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

Modified files:
        .              : erbim.el 

Log message:
        Tidy up init code, preload input method maps, remove old debug sexps
        from comments at end of buffer.

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

Patches:
Index: erbim.el
===================================================================
RCS file: /sources/erbot/erbot/erbim.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- erbim.el    22 Aug 2006 00:46:10 -0000      1.3
+++ erbim.el    22 Aug 2006 10:20:50 -0000      1.4
@@ -76,10 +76,6 @@
         (mapcar
          (lambda (M) (erbim-map-internal M iseq-str)) (cddr map))) ) ))
 
-;; load iso-transl's inverted keymap
-(add-to-list 'erbim-keymaps-map 
-             (cons "iso-transl" (erbim-map iso-transl-ctl-x-8-map)))
-
 (defun erbim-package-list ()
   "Return the list of input methods that erbim can understand.
 iso-transl is not exactly an input method, but it is a special case."
@@ -147,17 +143,11 @@
     (if key (where-is-char key (mapcar 'symbol-name im-list)) 
       "where-is-char <CHAR-OR-SEQUENCE> [ INPUT-METHOD INPUT-METHOD... ]") ))
 
-(provide 'erbim)
+;; load iso-transl's inverted keymap
+(add-to-list 'erbim-keymaps-map 
+             (cons "iso-transl" (erbim-map iso-transl-ctl-x-8-map)))
+;; trigger the preprocessing of the rest of the input methods:
+(where-is-char "x")
 
-;; (where-is-char "Þ")
-;; (assoc (erbim-enc "þ") (erbim-keymap-map "iso-transl"))
+(provide 'erbim)
 
-;; (setq erbim-keymaps-map nil)
-;; (insert "\n" (pp (assoc "japanese" erbim-keymaps-map)))
-;; (insert "\n" (pp (nth 2 (assoc "greek-babel" quail-package-alist))))
-;; (insert "\n" (pp (assoc "greek-babel" erbim-keymaps-map)))
-
-;; (erbim-map iso-transl-ctl-x-8-map)
-;; (insert "\n" 
-;;   (pp (erbim-map (nth 2 (assoc "greek-babel" quail-package-alist)))))
-;; (erbim-map (nth 2 (assoc "greek-babel" quail-package-alist)))