[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erbot-cvs] erbot erbim.el
From: |
Vivek Dasmohapatra |
Subject: |
[Erbot-cvs] erbot erbim.el |
Date: |
Tue, 22 Aug 2006 10:20:50 +0000 |
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)))