(setq load-path
(append
(list
(expand-file-name "~/.elisp")
)
load-path))
(if (eq emacs-major-version 21)
(setq confirm-kill-emacs 'yes-or-no-p)
(defun my-save-buffers-kill-emacs ()
(interactive)
(if (yes-or-no-p "quit emacs? ")
(save-buffers-kill-emacs)))
(global-set-key "\C-x\C-c" 'my-save-buffers-kill-emacs))
(iswitchb-default-keybindings)
(global-set-key "\C-x\C-b" 'electric-buffer-list)
(iswitchb-default-keybindings)
(resize-minibuffer-mode)
(add-hook 'iswitchb-define-mode-map-hook
(lambda ()
(define-key iswitchb-mode-map "\C-o" 'iswitchb-shrink-buflist)))
(defun iswitchb-shrink-buflist ()
(interactive)
(setq iswitchb-buflist iswitchb-matches)
(erase-buffer))
(setq visible-bell t)
(display-time)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-string-forms
'(month "/" day "(" dayname ") " 24-hours ":" minutes))
(display-time)
(line-number-mode t)
(column-number-mode t)
(setq scroll-conservatively 1)
(setq next-line-add-newlines nil)
(defun previous-line (arg)
(interactive "p")
(if (interactive-p)
(condition-case nil
(line-move (- arg))
((beginning-of-buffer end-of-buffer)))
(line-move (- arg)))
nil)
(global-font-lock-mode)
(setq transient-mark-mode t)
(setq search-highlight t)
(setq query-replace-highlight t)
(global-set-key "\C-t" 'other-window)
(autoload 'ruby-mode "ruby-mode"
"Mode for editing ruby source files" t) 1
(setq auto-mode-alist
(append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby"
"Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby"
"Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook
'(lambda ()
(inf-ruby-keys)))
(global-font-lock-mode t)
(require 'browse-kill-ring)
(global-set-key "\M-y" 'browse-kill-ring)
(setq browse-kill-ring-display-style 'one-line)
(setq browse-kill-ring-quit-action 'kill-and-delete-window)
(setq browse-kill-ring-resize-window t)
(setq browse-kill-ring-separator "-------")
(setq browse-kill-ring-highlight-current-entry t)
(setq browse-kill-ring-separator-face 'region)
(setq browse-kill-ring-maximum-display-length 100)
(setq load-path (cons "~/.emacs.d/epo" load-path))
(autoload 'epo "epo" "Editing Process Organizer" t)
(add-hook 'ruby-mode-hook 'epo)
(add-hook 'emacs-lisp-mode-hook 'epo)
(add-hook 'perl-mode-hook 'epo)
(add-hook 'tex-mode-hook 'epo)
(add-hook 'yatex-mode-hook 'epo)
(setq load-path (cons "~/.emacs.d/epojava" load-path))
(require 'epoan)
(setq auto-mode-alist
(cons (cons "\\.\\(java\\|class\\)$" 'epojava-mode) auto-mode-alist))
(autoload 'epojava-mode "epojava" "Epo-java mode" t)
(setq auto-mode-alist (cons (cons "\\.idl$" 'epoidl-mode) auto-mode-alist))
(autoload 'epoidl-mode "epocc" "Epo-idl mode" t)
(setq auto-mode-alist
(cons (cons "\\.\\(ih\\|hh\\|ic\\)$" 'epocc-mode) auto-mode-alist))
(setq auto-mode-alist
(cons (cons "\\.\\(C\\|cc\\|CC\\|cpp\\|cxx\\|h\\|H\\)$"
'epocc-mode) auto-mode-alist))
(setq auto-mode-alist (cons (cons "\\.c$" 'epoc-mode) auto-mode-alist))
(autoload 'epoc-mode "epocc" "Epo-c mode" t)
(autoload 'epocc-mode "epocc" "Epo-cc mode" t)
(put 'upcase-region 'disabled nil)
(require 'tex-site)
(setq TeX-default-mode 'japanese-latex-mode)
(setq japanese-TeX-command-default "pTeX")
(setq japanese-LaTeX-command-default "pLaTeX")
(setq japanese-LaTeX-default-style "jsarticle")
(setq TeX-file-extensions '("tex" "sty" "cls" "ltx" "texi" "texinfo" "dtx"))
(setq kinsoku-limit 10)
(setq LaTeX-indent-level 4)
(setq TeX-output-view-style '(("^dvi$" "." "/usr/bin/pxdvi %d")))