(setq load-path
      (append
       (list
       (expand-file-name "~/.elisp/")
       )
       load-path))
(if (equal (getenv "LANG") "ja_JP.UTF-8")
        (progn (set-language-environment "Japanese")
               (set-default-coding-systems 'utf-8-unix)
               (set-keyboard-coding-system 'utf-8-unix)
               (set-buffer-file-coding-system 'utf-8-unix)
               (if (not window-system) (set-terminal-coding-system 'utf-8-unix))
               )
    (progn (set-language-environment "Japanese")
           (set-default-coding-systems 'euc-japan-unix)
           (set-keyboard-coding-system 'euc-japan-unix)
           (set-buffer-file-coding-system 'euc-japan-unix)
           (if (not window-system) (set-terminal-coding-system 'euc-japan-unix))
           )
     )
;;; speed up
(setq default-file-name-coding-system nil)
(setq file-name-coding-system nil)

(setq initial-scratch-message nil)

(setq next-line-add-newlines nil)
(line-number-mode 1)
(column-number-mode 1)

(menu-bar-mode 0)
(load "term/bobcat")

(setq display-time-24hr-format t)
(setq display-time-format "%m/%d(%a) %R")
(setq display-time-day-and-date t)
(display-time)


(global-set-key "\e[1~" 'beginning-of-buffer )
(global-set-key "\e[4~" 'end-of-buffer )

(if (fboundp 'make-backup-file-name-original)
    nil
  (fset 'make-backup-file-name-original
        (symbol-function 'make-backup-file-name))
  (defun make-backup-file-name (fn)
    (if (and (file-exists-p (expand-file-name "~/.backup"))
             (file-directory-p (expand-file-name "~/.backup/")))
        (concat (expand-file-name "~/.backup/") (file-name-nondirectory fn))
      (make-backup-file-name-original fn)
    )))