;;; Japanese
(require 'un-define) ; Load Mule-UCS
(set-language-environment "Japanese")
;;(set-buffer-file-coding-system 'utf-8-unix)
;;(set-terminal-coding-system 'utf-8-unix)
;;(set-keyboard-coding-system 'utf-8-unix)
(set-buffer-file-coding-system 'euc-jp)
(set-terminal-coding-system 'euc-jp)
(set-keyboard-coding-system 'euc-jp)
;;;
;;; Canna
(set-input-method 'japanese-canna)
(if (and (boundp 'CANNA) CANNA)
(progn
  (load-library "canna")
  (canna)))
(global-set-key "\C-o" 'canna-toggle-japanese-mode)

    (define-key global-map 'button4
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (scroll-down 5)
    (select-window curwin)
    )))
    (define-key global-map [(shift button4)]
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (scroll-down 1)
    (select-window curwin)
    )))
    (define-key global-map [(control button4)]
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (scroll-down)
    (select-window curwin)
    )))
    ;
    (define-key global-map 'button5
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (scroll-up 5)
    (select-window curwin)
    )))
    (define-key global-map [(shift button5)]
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (select-window (car (mouse-pixel-position)))
    (scroll-up 1)
    (select-window curwin)
    )))
    (define-key global-map [(control button5)]
    '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
    (select-window (car (mouse-pixel-position)))
    (scroll-up)
    (select-window curwin)
    )))

;;・フォントは14ポイントを使う
    (set-face-font 'default "-*-fixed-medium-r-normal--14-*")

;;・行番号を表示する
    (line-number-mode t)

;;・桁位置も表示する
    (column-number-mode t)

;;・行頭で Ctrl + k したときは行ごと削除する
    (setq kill-whole-line t)

;;・ファイル末尾以後に余計な空行が入らないようにする
    (setq next-line-add-newlines nil)

;;・かな入力時に nn で「ん」になるようにする
    (setq enable-double-n-syntax t)