XEmacs21.4でWnnとたまごが動くようにする

そのままではエラーを吐くので、以下のように変更した。

--- /etc/skel/.xemacs.el	Fri Mar 29 23:12:00 2002
+++ /home/dellin/.xemacs/init.el	Sun May  5 16:50:47 2002
@@ -60,14 +61,20 @@
         (equal emacs-ime "wnn6")
         (equal emacs-ime "Wnn6"))
   (progn
-    (autoload 'egg "egg" "Initialize EGG." t)
-    (egg)
+;;    (autoload 'egg "egg" "Initialize EGG." t)
+;;    (egg)
+    (load "egg")
+    (load "egg-wnn")
     (global-set-key "\C-\\" 'toggle-egg-mode)
     (define-key isearch-mode-map "\C-\\" 'isearch-fep-egg)
     (autoload 'toggle-egg-mode "egg" "Initialize EGG." t)
     (autoload 'isearch-fep-egg "isearch-ext"
       "Read string for incremental search by using egg." t)
 
+;;    (setq default-input-method "japanese-egg-wnn") ;for xemacs21.4
+    (set-input-method "japanese-egg-wnn") ;; dellin
+    (set-language-info "Japanese" 'input-method "japanese-egg-wnn")
+
     (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
     (garbage-collect)
 
@@ -107,8 +115,9 @@
       (global-set-key "\C-\\" 'toggle-input-method)
       ;; (global-set-key "\C-o" 'toggle-input-method)
       (load "wnn7egg-leim")
-      (select-input-method "japanese-egg-wnn7")
-      (set-language-info "Japanese" 'input-method "japanese-egg-wnn7")
+      ;(select-input-method "japanese-egg-wnn7")      ;for xemacs-21.1
+      ;(setq default-input-method "japanese-egg-wnn7") ;for xemacs21.4
+      ;(set-language-info "Japanese" 'input-method "japanese-egg-wnn7")
 
       ;; "nn" で「ん」を入力
       (setq enable-double-n-syntax t)
@@ -168,7 +179,7 @@
       ;;かんなの変換中に C-h を使う (with term/keyswap)
       (define-key canna-mode-map [?\177] [?\C-h])
 
-      (select-input-method 'japanese-canna)
+      (set-input-method 'japanese-canna) ;for xemacs21.4
    )
 )

このページに対する感想・リンク希望などがありましたら、 dellin@team-ct.orgまでメールください。