--- .emacs-original	Sun Feb 18 21:56:44 2001
+++ .emacs	Sun Feb 18 21:56:38 2001
@@ -82,16 +82,45 @@
         katakana-jisx0201:-*-*-*-*-*-*-16-*-*-*-*-*-JISX0201.1976-0,
         korean-ksc5601:-*-Seoul-*-*-*-*-16-*-*-*-*-*-ksc5601"
      t))
+(if (fboundp 'new-fontset)
+    (create-fontset-from-fontset-spec
+     "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-14,
+        thai-tis620:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-tis620.2529-1,
+        lao:-Misc-Fixed-*-*-*-*-16-*-*-*-*-*-MuleLao-1,
+        vietnamese-viscii-lower:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
+        vietnamese-viscii-upper:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
+        chinese-big5-1:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
+        chinese-big5-2:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
+        chinese-gb2312:-*-Beijing-*-*-*-*-16-*-*-*-*-*-gb2312,
+        japanese-jisx0208:-*-\x8d\xd7\x96\xbe\x92\xa9\x91\xcc-*-*-*-*-14-*-*-*-*-*-jisx0208-sjis,
+        katakana-jisx0201:-*-*-*-*-*-*-16-*-*-*-*-*-JISX0201.1976-0,
+        korean-ksc5601:-*-Seoul-*-*-*-*-16-*-*-*-*-*-ksc5601"
+     t))
 
 ; Use the fontset we just created
 (modify-frame-parameters
  (selected-frame)
- '((height . 44)
+ '((height . 34)
    (width . 80)
-   (font . "fontset-mac")))
+;   (font . "fontset-mac")))
+   (font . "fontset-14")))
 
 ; Here is where I keep my Emacs Lisp info files
 (setq
  Info-default-directory-list
  '("~emacs/../elisp-manual-20-2.5/" "~emacs/info"))
+;;;;;;
+(setq load-path
+      (append
+        (list
+;        (expand-file-name "~emacs/site-lisp"))
+        "~emacs/site-lisp/egg"
+        "~emacs/site-lisp/tc-2.1/lisp"
+        "~emacs/site-lisp")
+	load-path))
+;(load "egg")
+(set-language-environment 'Japanese)
+;(load "yc-3.2.4")
+;(load "tc-setup")
+;(autoload 'yc "yc" nil t)