Meadow¤È¸À¤¦¤Î¤ÏWindows¾å¤ÇÆ°ºî¤¹¤ëEmacs¥¨¥Ç¥£¥¿¤Ç¤¹¡Ê¤³¤Îʸ¾Ï¤âMeadow¾å¤Ç½ñ¤¤¤Æ¤Þ¤¹¡Ë¡£ UNIX·ÏOS¤ÈWindows¤òÊ»ÍѤ¹¤ë¿Í¤Ë¤È¤Ã¤Æ¤Ï¤È¤Æ¤â½ÅÊõ¤Ê¤Î¤Ç¤¹¤¬¡¢É¸½à¤Ç¤ÏÆüËܸìÆþÎÏ¡¦É½¼¨¤¬ ½ÐÍè¤Þ¤»¤ó¡£¤½¤³¤Ç¡¢ÆüËܸìÆþÎÏ¡¦É½¼¨¤ä¤½¤Î¾¤Î¥á¥â¤òÃÖ¤¤¤Æ¤ª¤³¤¦¤È»×¤¤¤Þ¤¹¡£ ´Î¿´¤Î¥Ö¥Ä¤Ïftp://ftp.m17n.org/pub/mule/Windows/¤Ê¤ó¤«¤ËÃÖ¤¤¤Æ¤¢¤ê¤Þ¤¹¡£
¤Þ¤º¤Ï
(set-language-environment "Japanese")
¤Ê¤É¤È¤·¤Þ¤¹¡£
¤³¤ì¤Çɸ½à¤ÇShift-JIS¤¬°·¤ï¤ì¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¼¡¤Ë
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(add-hook 'mw32-ime-on-hook
(lambda () (set-cursor-color "red")))
(add-hook 'mw32-ime-off-hook
(lambda () (set-cursor-color "black")))
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[Ž ]" "[--]"))
¤È¤¹¤ì¤ÐÆüËܸìÆþÎϤ¬½ÐÍè¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤Î¤Þ¤Þ¤À¤È¸¡º÷(C-s)¤ÇÆüËܸ줬ÆþÎϤǤ¤º¡¢¸¡º÷½ÐÍè¤Ê¤¤¤Î¤Ç
(define-key isearch-mode-map "\C-o" 'isearch-edit-string)
¤òÄɲä·¤Þ¤¹¡£
¤³¤ì¤Ç¸¡º÷¥â¡¼¥ÉÃæ¤ËC-o¤ò²¡¤»¤Ðmini-buffer¤ËÆüËܸì¤òÆþÎϤǤ¡¢¸¡º÷¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤ÎºÝ¤ÎC-o¤ÏŬÅö¤Ê¥¡¼¥Ð¥¤¥ó¥É¤ËÃÖ¤´¹¤¨²Äǽ¤Ç¤¹¡£
¤³¤Î¤Þ¤Þ¤Ç¤ÏÆüËܸ줬¤Þ¤È¤â¤Ëɽ¼¨¤µ¤ì¤Ê¤¤¤Î¤Ç
(create-fontset-from-request "private-fontset"
'((width . 8)
(height . 16)
(fixed . t)
(italic . nil))
'((family . "£Í£Ó ¥´¥·¥Ã¥¯")
(family . "Courier New")))
(change-fontset-from-request "private-fontset"
'((width . 8)
(height . 16)
(fixed . t)
(weight . 700)
(italic . nil))
'((family . "£Í£Ó ¥´¥·¥Ã¥¯")
(family . "Courier New"))
1)
(change-fontset-from-request "private-fontset"
'((width . 8)
(height . 16)
(fixed . t)
(italic . nil))
'((family . "£Í£Ó ÌÀÄ«")
(family . "Courier New"))
2)
(change-fontset-from-request "private-fontset"
'((width . 8)
(height . 16)
(fixed . t)
(weight . 700)
(italic . nil))
'((family . "£Í£Ó ÌÀÄ«")
(family . "Courier New"))
3)
(setq default-frame-alist
(append (list
'(font . "private-fontset"))
default-frame-alist))
¤Ê¤É¤È¤·¤ÆÆüËܸì¥Õ¥©¥ó¥È¤ÎÀßÄê¤ò¤·¤Þ¤¹¡£
¾åµ¤Îwidth, height, weight¤òÊѹ¹¤¹¤ì¤Ð¹¥¤ß¤Î¥µ¥¤¥º¤Ë¥Õ¥©¥ó¥È¥µ¥¤¥º¤òÊѹ¹¤Ç¤¤Þ¤¹¡£
¾åµ¤ÎÀßÄê¤Ç¼è¤ê¹ç¤¨¤ºÆüËܸì´Ä¶¤Ë¤ÏÉÔ¼«Í³¤·¤Ê¤¯¤Ê¤Ã¤¿¡Ê¤Ï¤º¡Ë¤Ç¤¹¡£ ¸å¤Ï¼«Ê¬¤¬ÀßÄꤷ¤Æ¤¤¤ë³Æ¼ïÀßÄê¤ò»²¹Í¤Þ¤Ç¤ËºÜ¤»¤Æ¤ª¤¤Þ¤¹¡£
¡úµ¯Æ°»þ¤Î¥¦¥£¥ó¥É¥¦¥µ¥¤¥º¡¦°ÌÃÖ¡¦Á°·Ê¿§¡¦ÇØ·Ê¿§¤ÎÀßÄê
(setq initial-frame-alist
'((foreground-color . "black")
(background-color . "white")
(top . 0) (left . 500)
(width . 100) (height . 60)))
¡ú¹ÔÈֹ桢¥«¥é¥àÈÖ¹æɽ¼¨¤ò͸ú¤Ë¤¹¤ë
(line-number-mode 1)
(column-number-mode 1)
¤½¤Î¾¡¢Emacs·Ï¤Î¥µ¥¤¥È¤ò¸«¤Æ²ó¤ì¤Ð¿§¡¹¤ÈÊØÍø¤ÊÀßÄ꤬¤¢¤ë¤È»×¤¤¤Þ¤¹¡£