(setq inhibit-startup-message t)
(display-time)
(setq line-number-mode t)
(setq mode-line-inverse-video t)
(global-set-key "\C-h" 'delete-backward-char)
(setq next-line-add-newlines nil)
       (defun previous-line (arg)
         (interactive "p")
         (condition-case nil
             (line-move (- arg))
           (beginning-of-buffer)))
(line-number-mode 1)

;----- autoload -----
(setq load-path
      (nconc (list
	      "/usr/local/lib/xemacs-20.3/lisp"
	      "/usr/local/lib/xemacs/site-lisp"
	      )load-path))
	(fmakunbound 'c-mode)
	(makunbound 'c-mode-map)
	(fmakunbound 'c++-mode)
	(makunbound 'c++-mode-map)
	(makunbound 'c-style-alist)
	(autoload 'c++-mode  "cc-mode" "C++ Editing Mode" t)
	(autoload 'c-mode    "cc-mode" "C Editing Mode" t)
	(autoload 'objc-mode "cc-mode" "Objective-C Editing Mode" t)
	(setq auto-mode-alist
	  (append '(("\\.C$"     . c++-mode)
		    ("\\.cc$"    . c++-mode)
		    ("\\.cpp"    . c++-mode)
		    ("\\.hh$"    . c++-mode)
		    ("\\.c$"     . c-mode)
		    ("\\.h$"     . c-mode)
		    ("\\.m$"  . objc-mode)
		   ) auto-mode-alist))

;----- Canna -----
(setq canna-server "ns.flathill.gr.jp")
(load-library "canna")(canna)
(put 'eval-expression 'disabled nil)
(setq default-input-method 'japanese-canna)
(global-set-key "\C-c\C-d" 'canna-touroku)

;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/flathill/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(custom-set-variables
 '(user-mail-address "flathill@azuki.flathill.gr.jp" t)
 '(query-user-mail-address nil))
(custom-set-faces)

(setq minibuffer-max-depth nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Window tips
;;;

(cond
 ((string-match "XEmacs" emacs-version)
  (setq url-be-asynchronous t)
  (setq-default buffer-file-coding-system 'iso-2022-jp)
  (setq keyboard-coding-system    'iso-2022-jp)
  (setq terminal-coding-system    'iso-2022-jp)
  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
  (delete-menu-item '("Apps" "Read Mail (VM)..."))
  (delete-menu-item '("Apps" "Read Mail (MH)..."))
  (delete-menu-item '("Apps" "Send mail..."))
  (setq toolbar-mail-reader 'Mew)
  (setq toolbar-mail-commands-alist
        (cons '(Mew . mew) toolbar-mail-commands-alist))
  )
 )

(set-face-font
 'default
 '(
   "-misc-fixed-medium-r-normal--12-110-*-*-c-70-iso8859-1"
   "-misc-fixed-medium-r-normal--14-132-75-75-c-70-jisx0201.1976-0"
   "-misc-fixed-medium-r-normal--14-132-75-75-c-140-jisx0208.1983-0"
   "-jis-fixed-medium-r-normal--16-150-75-75-c-160-jisx0208.1983-0"
   "-misc-fixed-medium-r-normal--14-132-75-75-c-140-jisx0212.1990-0"
   )
 'global '(mule-fonts) )