Emacs‎ > ‎

MS Windows emacs23 64bit init.el

Windows 7(64bit)でGNU emacs23(64bit)の設定。

~/.emacs.d/init.el

(add-hook 'w32-ime-on-hook #'(lambda () (set-cursor-color "DeepSkyBlue"))) (add-hook 'w32-ime-off-hook `(lambda () (set-cursor-color ,(frame-parameter nil 'cursor-color)))) (w32-ime-initialize) (require 'smart-ime) (setq-default w32-ime-mode-line-state-indicator "[--]") (setq w32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]")) (global-set-key [home] 'beginning-of-buffer) (global-set-key [end] 'end-of-buffer) ;; ;; MIGEMO ;; (unless (boundp 'isearch-mode-map) (load-library "isearch")) (dolist (key (where-is-internal 'toggle-input-method global-map nil nil (command-remapping 'toggle-input-method))) (when (= (length key) 1) (define-key isearch-mode-map key 'migemo-isearch-toggle-migemo))) (require 'cmigemo) ; ; ; (set-language-environment 'Japanese) (set-default-coding-systems 'euc-jp-unix) (set-buffer-file-coding-system 'euc-jp-unix) (set-clipboard-coding-system 'sjis-mac) (set-file-name-coding-system 'utf-8) (transient-mark-mode 1) (if window-system (progn (setq initial-frame-alist '((width . 80) (height . 40))) (set-background-color "RoyalBlue4") (set-foreground-color "SkyBlue") (set-cursor-color "Green") )) ;;(set-clipboard-coding-system 'sjis-mac) (setq mime-edit-split-message nil) (setq load-path (append (list (expand-file-name "~/.emacs.d/elisp/") ) load-path)) (tool-bar-mode 1) (require 'install-elisp) (setq install-elisp-repository-directory "~/.emacs.d/elisp/") ;;; This was installed by package-install.el. ;;; This provides support for the package system and ;;; interfacing with ELPA, the package archive. ;;; Move this code earlier if you want to reference ;;; packages in your .emacs. (when (load (expand-file-name "~/.emacs.d/elpa/package.el")) (package-initialize)) ;;(setq ssl-certificate-verification-policy 1) (add-to-list 'load-path "~/.emacs.d/el-get/apel") (add-to-list 'load-path "~/.emacs.d/el-get/el-get") (unless (require 'el-get nil t) (url-retrieve "https://github.com/dimitri/el-get/raw/master/el-get-install.el" (lambda (s) (let (el-get-master-branch) (end-of-buffer) (eval-print-last-sexp))))) (require 'el-get) (add-to-list 'load-path "~/.emacs.d/el-get/apel") (add-to-list 'load-path "~/.emacs.d/el-get/flim") (add-to-list 'load-path "~/.emacs.d/el-get/semi") (add-to-list 'load-path "~/.emacs.d/el-get/wanderlust/elmo") (add-to-list 'load-path "~/.emacs.d/el-get/wanderlust/wl") (add-to-list 'load-path "~/.emacs.d/el-get/wanderlust/utils") (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-other-frame "wl" "Wanderlust on new frame." t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) (setq wl-icon-directory "/cygdrive/c/Emacs23/etc/wl") (add-to-list 'load-path "~/.emacs.d/el-get/git-modes") (add-to-list 'load-path "~/.emacs.d/el-get/magit") ;;(add-to-list 'load-path "~/.emacs.d/el-get/git-rebase-mode") ;;(add-to-list 'load-path "~/.emacs.d/el-get/git-commit-mode") (add-to-list 'load-path "~/.emacs.d/el-get/cl-lib") (require 'magit)
Comments