UNIX/設定、設定ファイル/.emacs


Table of Contents
; 新バッファ作成時のファイル文字コードを *euc-japan* にします。
(set-default-file-coding-system *euc-japan*)

[あ]E.:------Mule: test

M-x set-file-coding-system

; Text モードにするとき、常に auto-fill-mode にします。
(setq text-mode-hook
      '(lambda () (auto-fill-mode 1)))

M-x text-mode
auto-fill-mode 1

M-x auto-fill-mode

(load-library "term/bobcat")

M-x help

(define-key function-key-map [backspace] [8])

(put 'backspace 'ascii-character 8)
(setq keyboard-translate-table
"\^@\^A\^B\^C\^D\^E\^F\^G\^?\^I\^J\^K\^L\^M\^N\^O\^P\^Q\^R\^S\^T\^U\^V\
\^W\^X\^Y\^Z\^[\^\\\^]\^^\^_ !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK\
LMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\^H")
;カーソルの位置が何行目か
(line-number-mode 1)

;nn で「ん」と確定する
(setq enable-double-n-syntax t)
;;かな変換規則
(its-defrule "dhi" "でゅ" nil nil "roma-kana")

;バックアップファイルを作らない
(setq make-backup-files nil)
;括弧の対応表示
(require 'paren)
;;色の設定を変えたいときは、次のように書いてください。 

(make-face 'paren-match)
; マッチしたときのフォアグラウンドの色
(set-face-foreground 'paren-match "gray80")
; マッチしたときのバックグラウンドの色
(set-face-background 'paren-match "CadetBlue4")

(make-face 'paren-mismatch)
; マッチしなかったときのフォアグラウンドの色
(set-face-foreground 'paren-mismatch "white")
; マッチしなかったときのバックグラウンドの色
(set-face-background 'paren-mismatch "lightcoral")

(setq show-paren-face 'paren-match)
(setq show-paren-mismatch-face 'paren-mismatch)

(setq auto-mode-alist
      (cons (cons "\\.pl$" 'perl-mode) auto-mode-alist))
(setq auto-mode-alist
      (cons (cons "\\.plg$" 'prolog-mode) auto-mode-alist))
(setq auto-mode-alist
      (cons (cons "\\.cpp$" 'c++-mode) auto-mode-alist))
;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)
;; Always end a file with a newline
(setq require-final-newline t)
;; Initial 
(setq initial-frame-alist
          (append (list
                   '(foreground-color . "azure3") ;; 文字色
                   '(background-color . "black") ;; 背景色
                   '(border-color     . "black")
                   '(mouse-color      . "white")
                   '(cursor-color     . "white")
                   '(menu-bar-lines . 1)
                   ;'(font . "my-fontset") 
                   ;'(vertical-scroll-bars . nil) ;;スクロールバーを消す
                   '(width . 100) ;; ウィンドウ幅
                   '(height . 35) ;; ウィンドウの高さ
                   '(top . 60) ;;表示位置
                   '(left . 140) ;;表示位置
                   )
                  initial-frame-alist)))
(setq default-frame-alist initial-frame-alist)

(set-face-background 'region "SkyBlue")
(set-face-foreground 'region "black")
;; Set goto-line to M-g
(global-set-key "\M-g" 'goto-line)
;; Ser replace-regexp to M-r
(global-set-key "\M-r" 'replace-regexp)
;;;C-k で改行を含めてカット
(setq kill-whole-line t)

% chmod u+w ~/.emacs

(load-file "/home/circle/gcc/src/elisp/gcc-hankaku-region.el")
M-x gcc-hankaku-region
(global-set-key "\C-t" 'gcc-hankaku-region)
xrea