Meadow設定

(set-language-environment "Japanese")
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(create-fontset-from-request "private-fontset"
                              '((width . 8)
                                (height . 16)
                                (fixed . t)
                                (italic . nil))
                              '((family . "MS ゴシック")
                                (family . "Courier New")))
 (setq default-frame-alist
       (append (list '(font . "private-fontset"))
                default-frame-alist))

(setq kill-whole-line t)
(setq make-backup-files nil)
(global-font-lock-mode t)
(setq auto-save-default nil)
(setq-default tab-width 4)

(defun my-c-mode-hook ()
  (c-set-style "bsd")
  (setq tab-width 4)
  (setq c-basic-offset tab-width))
(add-hook 'c-mode-hook 'my-c-mode-hook)
(defun my-c++-mode-hook ()
  (c-set-style "bsd")
  (setq tab-width 4)
  (setq c-basic-offset tab-width))
(add-hook 'c++-mode-hook 'my-c-mode-hook)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Shell - Shell モード、Shell コマンドの設定
;;;

;;; Cygwin の bash を使う場合
(setq explicit-shell-file-name "c:\\cygwin\\bin\\bash.exe") ; シェルモード用
;(setq shell-file-name "c:\\cygwin\\bin\\sh.exe")          ; シェルコマンド用
(setq shell-command-switch "-c")

;;; argument-editing の設定
(require 'mw32script)
(mw32script-init)

;;; coding-system の設定
(add-hook 'shell-mode-hook
          (lambda ()
;           (set-buffer-process-coding-system 'undecided-dos 'sjis-unix)))
           (set-buffer-process-coding-system 'sjis-dos 'sjis-unix)))

;;; ^M をとる
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)

;;; shell-modeでの補完 (for drive letter)
(setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@'`.,;()-")

ショートカットのリンク先を修正する

C:\Meadow\2.00\bin\RunMW32.exe -l C:\Meadow\.emacs