Re: dot.emacs sample file

[Noritsugu Nakamura <nnakamur@mxq.mesh.ne.jp>]

中村 のりつぐ です。

In article <864s552mut.fsf@windy.src.argv.org> 
Koichi INOUE <inoue@...> wrote:
> sjisじゃないファイルをつくられてもあまりうれしくない人が多いと思うので、
> buffer-file-coding-systemは必須でしょう。

Meadow とか Mule for Win32 って多分 SJIS がデフォルトになると
思います。私の、Meadow の .emacs を以下に載せておきます。
(本当は、.emacs から Mule for Win32 と判定して 呼び出したファイル)
# まだ結構シンプル


(set-language-environment "Japanese")

;; Windows IME
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
;; modelineにIMEの状態を表示
(setq mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("--" "[あ]" "[--]"))

;; load font setting
(load-file "f:/Meadow/site-lisp/intlfonts.el")

;; for shell
;(setq explicit-shell-file-name "bash.exe")
;(setq shell-file-name "bash.exe")
;(setq shell-command-switch "-c")
(setq explicit-shell-file-name "tcsh.exe")
(setq shell-file-name "tcsh.exe")
(setq shell-command-switch "-c")


;; プロセス呼出し時の文字コード設定
(setq default-process-coding-system
        '(undecided-dos . sjis-dos))

;;; frame
(setq initial-frame-alist
  '((foreground-color . "black");; 文字の色
	(background-color . "snow")	;; 背景色
	(top . 0) (left . 0)		;; 位置(左上の座標)
	(width . 100) (height . 40)	;; 大きさ
	(font . "intlfonts")		;; fontset名
	))

;; hilit19
(cond (window-system
       (setq hilit-mode-enable-list  '(not text-mode)
	     hilit-background-mode   'light
	     hilit-inhibit-hooks     nil
	     hilit-inhibit-rebinding nil)
       (require 'hilit19)
       ))

;; misc
(setq next-line-add-newlines nil)
(line-number-mode 1)
;; tab を 4 に
(setq default-tab-width 4)


       中村 典嗣  E-mail:     nnakamur@...