Package-Name: iiimecf
Gentoo-Package: app-emacs/iiimecf
Requires: emacs mule-ucs
Source: ftp://ftp.debian.org/debian/pool/main/i/iiimecf/iiimecf_(\d+(.\d+)+).orig.tar.gz $1
Repack:
	tar xzvfp "$(SOURCE)"
	test -d iiimecf-"$(VERSION)" || mv [Ii][Ii][Ii][Mm][Ee][Cc][Ff]* iiimecf-"$(VERSION)"
Compile:
	cp -pf Change* COPYING README* "$(PREFIX)/"
	rm -f path.el
	echo  >path.el '(setq load-path (cons "." (cons "/usr/share/emacs/site-lisp/mule-ucs" load-path)))'
	echo >>path.el '(setq byte-compile-warnings nil)'
	emacs -q -no-site-file -batch -l path.el -l iiimcf-comp.el
	rm -rf "$(PREFIX)"/lisp
	cp -av lisp "$(PREFIX)"/
Install:
	rm -rf /usr/share/emacs/site-lisp/iiimecf
	ln -s "$(PREFIX)"/lisp /usr/share/emacs/site-lisp/iiimecf
Patch: <<EOT
# see also: http://www.redhat.com/archives/fedora-ja-list/2005-January/msg00005.html
######## begin patch to avoid error on first C-\
--- lisp/iiimcf-sc.el.old	2002-07-15 20:18:05 +0900
+++ lisp/iiimcf-sc.el	2006-07-07 19:17:33 +0900
@@ -222,6 +222,11 @@
 	  (setq ic-id (iiimcf-create-ic
 		       im-id (iiimcf-server-control-get-ic-attribute im-id))
 		uic (iiimcf-UI-create-context nil nil ic-id))
+	  ;; FIXME: ic-id doesn't seem to get set the first time
+	  (if (not ic-id)
+	      (setq ic-id (iiimcf-create-ic
+			   im-id (iiimcf-server-control-get-ic-attribute im-id))
+		    uic (iiimcf-UI-create-context nil nil ic-id)))
 	  (iiimcf-ic-id-put ic-id 'iiimcf-server-control-uic uic)
 	  (iiimcf-UI-set-keymap
 	   uic iiimcf-server-control-preedit-state-keymap)
######## end patch to avoid error on first C-\
######## begin Debian patches (0.6-7)
diff -urNad lisp/iiimcf.el /tmp/dpep.moTFKS/iiimecf-0.6/lisp/iiimcf.el
--- lisp/iiimcf.el	2002-07-15 20:18:05.000000000 +0900
+++ /tmp/dpep.moTFKS/iiimecf-0.6/lisp/iiimcf.el	2005-02-02 20:05:26.000000000 +0900
@@ -322,6 +322,22 @@
     (modechange 31 65535)
     (kana 21 65535)
     (kanji 25 65535)
+    (?! 517 ?!)
+    (?\" 152 ?\")
+    (?# 520 ?#)
+    (?$ 515 ?$)
+    (?% 53 ?%) ; with shift key
+    (?& 150 ?&)
+    (?' 222 ?')
+    (?\( 519 ?\()
+    (?\) 522 ?\))
+    (?{ 161 ?{)
+    (?} 162 ?})
+    (?+ 521 ?+)
+    (?< 153 ?<)
+    (?> 160 ?>)
+    (?? 47 ??)
+    (?_ 523 ?_)
     (undefined 0)
     (char-undefined 0)))
 
@@ -438,6 +454,7 @@
 	      kchar (or (nth 2 slot)
 			kcode))
       (setq kcode (iiimcf-basic-event-type-to-keycode base)))
+    (if (eq base ?%) (setq kmod 1))
     (if (numberp kcode)
 	(list (cons 0 kcode)
 	      (cons 0 kchar)
######## end Debian patches
EOT

/pkg/iiimecf/
/usr/share/emacs/site-lisp/iiimecf
