;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)
;; turn on font-lock mode
(global-font-lock-mode t)
;; enable visual feedback on selections
(setq-default transient-mark-mode t)
;; always end a file with a newline
(setq require-final-newline t)
;; stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)
(when window-system
;; enable wheelmouse support by default
(mwheel-install)
;; use extended compound-text coding for X clipboard
(set-selection-coding-system 'compound-text-with-extensions))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(case-fold-search t)
'(cua-mode nil)
;; '(current-language-environment "Chinese-GB")
'(default-input-method "chinese-py-punct")
'(font-lock-maximum-size 256000)
'(global-font-lock-mode t nil (font-lock))
'(gnuserv-program "/usr/lib/xemacs-21.0/i386-pc-linux/gnuserv")
'(show-paren-mode t nil (paren))
'(transient-mark-mode t))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
(tool-bar-mode nil)
;;(setq default-major-mode 'emacs-mule)
;;(set-background-color "gray35")
(set-background-color "darkslategray")
;;(set-foreground-color "white")
(set-foreground-color "wheat")
(set-cursor-color "orchid")
(setq make-backup-files nil)
;;(set-language-environment 'Chinese-GB)
;;(set-keyboard-coding-system 'gb2312)
;;(set-clipboard-coding-system 'gb2312)
;;(set-terminal-coding-system 'gb2312)
;;(set-buffer-file-coding-system 'gb2312)
;;(set-selection-coding-system 'gb2312)
;;(modify-coding-system-alist 'process "*" 'gb2312)
;;(setq default-process-coding-system '(gb2312 . gb2312))
;;(setq-default pathname-coding-system 'gb2312)
;;(setq-default enable-multibyte-characters t)
(setq-default enable-multibyte-characters t)
;;(setq locale-coding-system 'gb2312)
(setq inhibit-startup-message t)