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_^$!#%&{}@'`.,;()-")
- .emacsの指定
ショートカットのリンク先を修正する
C:\Meadow\2.00\bin\RunMW32.exe -l C:\Meadow\.emacs