;------for meadow------
(if (featurep 'meadow)
    (progn
     (defun eql (a b) "alias for `eq'."
	(eq a b))
      (defun exec-ccl-string (CCL-PROG STATUS STR) "alias for `ccl-execute-on-string'."
	(ccl-execute-on-string CCL-PROG STATUS STR))
      (set-background-color "#fff0e0")
      (set-language-environment "Japanese")
      (set-default-coding-systems 'sjis)
      (set-keyboard-coding-system 'sjis)
      (set-terminal-coding-system 'sjis)
      (setq file-name-coding-system 'sjis)
      (set-clipboard-coding-system 'sjis-dos)
      (set-w32-system-coding-system 'sjis-dos)
      (string-match "Meadow-\\([0-9]\\.[0-9]+\\)" (Meadow-version))
      (if (> (string-to-number (match-string 1 (Meadow-version))) 1.0)
        (set-input-method "MW32-IME")(select-input-method "MW32-IME"))
      (toggle-input-method)
      (setq-default mw32-ime-mode-line-state-indicator "[--]")
      (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
      (mw32-ime-initialize)
      (setq load-path (append load-path '("F:/programs/site-lisp")))
      (load "f:/Programs/Meadow/bdf-font.el")
      (load "f:/Programs/Meadow/fixedsys-font.el")
      (set-default-font "fixedsys-fontset")
      (set-fontset-font "fixedsys-fontset" 'korean-ksc5601 "hanglm16")
      (set-fontset-font "fixedsys-fontset" 'chinese-gb2312 "gb16fs")
      (set-fontset-font "fixedsys-fontset" 'ipa "etl16-ipa")
      (set-fontset-font "fixedsys-fontset" 'latin-iso8859-1 "8x16")
      (setq default-frame-alist 
	    (append '((background-color . "#fff0e0")
		      (font . "fixedsys-fontset")
		      (ime-font . "fixedsys-jisx0208")) 
		    default-frame-alist))
      )
  )