emacs configuration

;;设置背景色。

(set-background-color "white")

;;设置光标的颜色。

(set-cursor-color "sienna")

;;关闭出错的时候的提示的声音。

(setq visible-bell t)

;;进行语法加亮

(global-font-lock-mode t)

;;显示时间。
(setq display-time-day-and-date t)
(setq display-time-24hr-format t)

(display-time)

;;显示所在列号。

(setq column-number-mode t)

;;光标躲避鼠标。

(mouse-avoidance-mode 'animate)

;;关闭工具栏.

(tool-bar-mode nil)

;;关闭菜单栏.

(menu-bar-mode nil)

;;关闭滚动条.

(scroll-bar-mode nil)

;;ido.el

(ido-mode t)

;;自动补全功能，这事从王垠的网站直接Copy过来的，引用一些他对此的说明 

;;你可以设置以下 hippie-expand 的补全方式。它是一个优先列表， hippie-expand 会优先使用表最前面的函数来补全 

;;这是说，首先使用当前的buffer补全，如果找不到，就到别的可见的窗口里寻找，如果还找不到，那么到所有打开的buffer去找，如果还……那么到kill-ring里，到文件名，到简称列表里，到list，…… 当前使用的匹配方式会在 echo 区域显示。 

;;特别有意思的是 try-expand-line，它可以帮你补全整整一行文字。我很多时后有两行文字大致相同，只有几个字不一样，但是我懒得去拷贝粘贴以下。那么我就输入这行文字的前面几个字。然后多按几下 M-/ 就能得到那一行。 

(global-set-key [(meta ?/)] 'hippie-expand) 

(setq hippie-expand-try-functions-list 

'(try-expand-line 

try-expand-line-all-buffers 

try-expand-list 

try-expand-list-all-buffers 

try-expand-dabbrev 

try-expand-dabbrev-visible 

try-expand-dabbrev-all-buffers 

try-expand-dabbrev-from-kill 

try-complete-file-name 

try-complete-file-name-partially 

try-complete-lisp-symbol 

try-complete-lisp-symbol-partially 

try-expand-whole-kill)) 

;;时间显示包括日期和具体时间 

(setq display-time-day-and-date t)

;;时间栏旁边启用邮件设置 

(setq display-time-use-mail-icon t)

;;在标题栏显示buffer的名字

(setq frame-title-format "emacs@%b")

;;让 Emacs 可以直接打开和显示图片

(auto-image-file-mode)

;;不产生备份文件

;(setq make-backup-files nil)

;;临时文件放到同一个目录下

(setq backup-directory-alist '(("." . "/tmp")))

http://dolive.javaeye.com/blog/246060