emacs 配置文件

(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.
 )
(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.
 '(default ((t (:inherit nil :stipple nil :background "#ffffff" :foreground "#141312" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 102 :width normal :foundry "unknown" :family "WenQuanYi Micro Hei Mono")))))


;; remove startup-message
(setq inhibit-startup-message t)
(setq gnus-inhibit-startup-message t)
;; smooth scroll
    ;; scroll one line at a time (less "jumpy" than defaults)
   
    (setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time
   
    (setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
   
    (setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse
   
    (setq scroll-step 1) ;; keyboard scroll one line at a time
;; cperl-mode
    (mapc
     (lambda (pair)
       (if (eq (cdr pair) 'perl-mode)
           (setcdr pair 'cperl-mode)))
     (append auto-mode-alist interpreter-mode-alist))
;; set load-path
     ;;; Emacs Load Path
     (setq load-path (cons "~/.emacs.d" load-path))

;; auto-complete
     (require 'auto-complete)
     (global-auto-complete-mode t)
;; change ctrl-space for scim
;(global-set-key [(f2)] 'set-mark-command)
;(global-set-key [(control space)] nil)
cat(global-unset-key (kbd "C-SPC"))
(global-set-key (kbd "M-SPC") 'set-mark-command)
;; time
(display-time)
;; column number
(column-number-mode t)
;; show ()
(show-paren-mode t)
;; no backup file
;(setq-default make-backup-files nil)