Emacsの設定

.emacs

(setq load-path (cons "~/.emacs.d/elisp" load-path))
(setq load-path (cons "~/.emacs.d/elisp/mml-major-mode" load-path))

; メニュー画面非表示
(setq inhibit-startup-message t)

; scratchの記述を非表示
(setq initial-scratch-message nil)

; スクロールは1行ずつ
(setq scroll-step 1)

; バッファの最後でnewlineでの新規行追加を禁止
(setq next-line-add-newlines nil)

; 最終行に必ず一行挿入
(setq require-final-newline t)

; 現在の関数名の表示
(which-function-mode 1)

; 日本語環境設定
(set-language-environment "Japanese")

;; カーソル行のハイライト
;(global-hl-line-mode t)

; 列番号をエコーに表示
(custom-set-variables '(column-number-mode t))

; 現在のバッファ中の式の再評価をF6に割り当て
(global-set-key [f6] 'eval-buffer)

; ファイル再読み込みをF5に割り当て
(defun revert-buffer-no-confirm (&optional force-reverting)
  "Interactive call to revert-buffer. Ignoring the auto-save
 file and not requesting for confirmation. When the current buffer
 is modified, the command refuses to revert it, unless you specify
 the optional argument: force-reverting to true."
  (interactive "P")
  ;;(message "force-reverting value is %s" force-reverting)
  (if (or force-reverting (not (buffer-modified-p)))
      (revert-buffer :ignore-auto :noconfirm)
    (error "The buffer has been modified")))
(global-set-key [f5] 'revert-buffer-no-confirm)

; フォント変更
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Myrica M" :foundry "outline" :slant normal :weight normal :height 113 :width normal)))))

; タイトルバーにバッファ名を表示
(setq frame-title-format (format "%%b - Emacs"))


;; MML
(require 'fmp7-mode)
;; (autoload 'fmp7-mode "fmp7-mode" "Major mode of MML for FMP7" t)
(modify-coding-system-alist 'file "\\.mwi\\'" 'shift_jis-dos)
(require 'pmd-mode)
;; (autoload 'pmd-mode "pmd-mode" "Major mode of MML for PMD" t)
(modify-coding-system-alist 'file "\\.mml\\'" 'shift_jis-dos)