我的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.
'(tool-bar-mode nil))
(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 "SystemWindow" :foreground "SystemWindowText" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "outline" :family "Consolas")))))

 

;;--------------设置字体用的 防止中文变成无法识别的框框

 

;;-------------------启动窗口大小
(setq default-frame-alist
'((height . 40) (width . 105) (menu-bar-lines . 10) (tool-bar-lines . 0)))

 

;;--------------窗口界面设置
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")

(set-scroll-bar-mode nil)
;;取消滚动栏

 

;;--------------------显示时间设置

(display-time-mode 1);;启用时间显示设置，在minibuffer上面的那个杠上
(setq display-time-24hr-format t);;时间使用24小时制
(setq display-time-day-and-date t);;时间显示包括日期和具体时间
(setq display-time-use-mail-icon t);;时间栏旁边启用邮件设置
(setq display-time-interval 10);;时间的变化频率，单位多少来着？

 

;;------------关闭emacs启动时的画面
(setq inhibit-startup-message t)

 

;;------------关闭gnus启动时的画面
(setq gnus-inhibit-startup-message t)

 

 

;; ------------改变 Emacs 固执的要你回答 yes 的行为。按 y 或空格键表示 yes，n 表示 no。
(fset 'yes-or-no-p 'y-or-n-p)

;;自动补全括号
(electric-pair-mode 1)

;;自动补尖括号
(setq electric-pair-pairs '(
(?\" . ?\")
(?\< . ?\>)
) )