.emacs of OK


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

;色んなサイトからもらってきてます。細かい説明はここではしないで
;とりあえず貼りつけておきます。
;なにかあれば本人まで直接聞いてください。
;(本人もよく分かってない部分もありますけど)
;このファイルが同じでも、XIMが効く環境と効かない環境があるしな・・・
;
;===================================
;; load path
;===================================
;(setq load-path (cons "/usr/share/emacs/22.2/lisp/" load-path))
(setq load-path (cons "/usr/share/emacs/23.2/lisp/" load-path))
 
;===================================
; Language
;===================================
(if (string-match "^21\." emacs-version)
(require 'un-define))
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)
;(set-buffer-file-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
;(set-clipboard-coding-system 'utf-8)
 
;===================================
; font
;===================================
; emacs23 用設定
(cond ( (string-match "^23\." emacs-version)
(cond (window-system
;(set-default-font "Bitstream Vera Sans Mono-15")
(set-fontset-font (frame-parameter nil 'font)
  'japanese-jisx0208
;      '("IPAゴシック" . "unicode-bmp"))
  '("IPAGothic" . "unicode-bmp"))
;    '("Yutapon coding Heavy" . "unicode-bmp"))
;    '("Hiragino Gothic" . "unicode-bmp"))
))))
 
; emacs21 用設定
;(cond ((string-match "^21\." emacs-version)
;(cond (window-system
;(create-fontset-from-fontset-spec
; "-shinonome-gothic-medium-r-normal--18-*-*-*-*-*-fontset-18")
;(set-default-font "fontset-18")))))
;===================================
(pc-selection-mode)          ;;shift+矢印キーでの範囲選択
;;===================================
;;行番号表示モード
;====================================
(autoload 'setnu-mode "setnu" nil t)
(global-set-key [f12] 'setnu-mode)   ;;F12でトグル動作
;====================================
; カーソル移動設定
;====================================
;カーソル移動を論理行ではなく、物理行(見たまま)単位で移動する。
(require 'physical-line)
(setq-default physical-line-mode t)
;; dired-mode は論理行移動のままにする.
(setq physical-line-ignoring-mode-list '(dired-mode))
;====================================
; 最近使ったファイル」を(メニューに)表示する
;====================================
; M-x recentf-open-files で履歴一覧バッファが表示される。
(require 'recentf)
;;http://homepage.mac.com/zenitani/elisp-j.html#recentf
;; /sudo:hogehoge などが履歴に残っていると、起動時に毎回パ
;; スワードを聞いてくるのでその履歴だけを削除する。
;;(setq recentf-exclude '("^/[^/:]+:")) ;;tramp対策。
(setq recentf-auto-cleanup 'never) ;;tramp対策。
(recentf-mode 1)
;=================
;    elscreen
;=================
(load "elscreen" "ElScreen" t)
;===================
;(setq skk-kutouten-type 'en);;句読点をカンマ、ピリオドにhttp://d.hatena.ne.jp/suztomo/20080921/1222009884
 
;==================================
;C-hをBackspaceとして使う 
;http://www.fan.gr.jp/~ring/Meadow/meadow.html#back-space
(keyboard-translate ?\C-h ?\C-?)
(global-set-key "\C-h" nil)
;==================================
 
;(add-to-list 'load-path "/usr/share/emacs/site-lisp/yatex/")
;============================================================
;;; YaTeX
;(setq YaTeX-prefix "\C-c" )
(setq YaTeX-inhibit-prefix-letter nil)
;========================================================