以下是我整理的 emacs 配置文件，供刚开始玩 emacs 的同学参考。网上有人说：emacs 是神的编辑器，如果能够用到这样的编辑器，那这个人就是神了。从我个人的经验来看，emacs 是一把利器，用好它，将会事半功倍。我们大多数的编程是受制于语言（程序员是语言的奴隶），而如果能够掌握好 emacs 这一利器，则对于自己是一个质的飞跃——编程是让语言成为程序员的奴隶。这一点，以后详细谈。
;; 常规设置
(menu-bar-mode -1) ;; 不显示菜单
(tool-bar-mode -1) ;; 不显示工具栏
(scroll-bar-mode -1) ;; 不显示滚动条
(column-number-mode 1) ;; 显示行数和列数
(setq default-directory "d:/home/") ;; 设置默认目录
(appt-activate 1) ;; 启动日历提醒
(setq require-final-newline t) ;; 编辑文件的最后一个字符是回车
(setq bookmark-default-file "~/.emacs.d/.emacs.bmk") ;; 书签文件位置
(fset 'yes-or-no-p 'y-or-n-p) ;; 简化确认时的输入
(global-set-key "\r" 'newline-and-indent) ;; 回车默认缩进
(setq inhibit-startup-message t) ;; 不显示启动时的界面
(show-paren-mode 1) ;; 显示括号的对应反括号
(setq show-paren-style 'mixed) ;; 设置显示括号的样式
(mouse-avoidance-mode 'animate) ;; 光标与鼠标重合时，移开鼠标
(setq frame-title-format "%b -- Do It Yourself") ;; 设置标题
(setq default-tab-width 4) ;; Tab 的宽度为 4
(setq-default make-backup-files nil) ;; 不产生备份文件
(set-frame-position (selected-frame) 400 140) ;; 设置初始的窗口宽高 ;; 增强 find file 及 switch buffer 功能
(require 'ido)
(ido-mode t) ;; 启动 Emacs 服务，下次打开文件时使用同一个 Emacs
(server-start) ;; 设置环境变量
(setenv "LC_CTYPE" "zh_CN.UTF-8") ;; 设置全局快捷键
(global-set-key "\C-c\C-v" 'view-mode) ;; 只读模式
(global-set-key "\C-z" 'set-mark-command) ;; Mark
(global-set-key "\C-xz" 'suspend-frame) ;; 将 Emacs 放到后台运行
(global-set-key [f8] 'occur) ;; 在当前 Buffer 中查找
(global-set-key "\C-x\C-b" 'electric-buffer-list) ;; 列出当前所有 Buffer
(global-set-key (kbd "C--") 'undo) ;; 向前恢复
(global-set-key "\C-c\C-z" 'pop-global-mark) ;; 到之前的 Marker
(global-set-key "\M-/" 'hippie-expand) ;; 智能完成
(global-set-key (kbd "C-SPC") 'nil) ;; 将 C+空格 快捷键置空
(global-set-key "\C-ca" 'org-agenda) ;; 启用 Agenda 模式
(global-set-key "\C-\\" 'toggle-truncate-lines) ;; 切换换行模式 ;; 设置 Windows 下字体
(setq w32-charset-info-alist
(cons '("gbk" w32-charset-gb2312 . 936) w32-charset-info-alist))
(setq default-frame-alist
(append
'((font . "fontset-gbk")) default-frame-alist))
(create-fontset-from-fontset-spec
"-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-gbk")
(set-fontset-font
"fontset-default" nil
"-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-gbk" 'kana
"-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-gbk" 'han
"-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-gbk" 'cjk-misc
"-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-gbk" 'symbol
"-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-default-font "fontset-gbk") ;; 增加 Eshell 命令
;; linux 中 clear
(defun eshell/clear ()
"to clear the eshell buffer."
(interactive)
(let ((inhibit-read-only t))
(erase-buffer))) ;; 用 Windows 文件浏览器打开
(defun eshell/o (&rest args)
"open the doc"
(interactive)
(if (eq nil args)
(setq args '("explorer" ".")))
(apply 'start-process-shell-command "Sub process of Eshell" "*Messages*"
(car args) (cdr args))) ;; 恢复默认宽高设置
(defun retrive-position ()
(interactive)
(set-frame-position (selected-frame) 400 140)
(set-frame-size (selected-frame) 80 40)) ;; 还原最大化窗口
(defun frame-restore ()
"Restore a minimized frame"
(interactive)
(w32-send-sys-command 61728)) ;; 最大化窗口
(defun frame-maximize ()
"Maximize the current frame"
(interactive)
(w32-send-sys-command 61488)) ;; 关闭 Buffer，支持 Server/Client 模式的关闭
(defun my-kill ()
"Kill buffer for server-client and not server-client."
(interactive)
(cond (server-buffer-clients (server-edit))
(t (ido-kill-buffer)))) ;; 设置关闭 Buffer 的快捷键
(global-set-key "\C-xk" 'my-kill) ;; 加入 package 模块，可以通过 list-package 添加扩展
(require 'package)
(package-initialize)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/")) ;; 设置假期，在日历中可以看到
(setq calendar-holidays '((holiday-chinese 1 1 "春节")
(holiday-chinese 1 15 "元宵节")
(holiday-fixed 3 8 "妇女节")
(holiday-fixed 5 1 "劳动节")
(holiday-fixed 6 1 "儿童节")
(holiday-chinese 5 5 "端午节")
(holiday-chinese 7 7 "七夕节")
(holiday-chinese 7 15 "鬼节")
(holiday-fixed 8 20 "纪念")
(holiday-chinese 8 15 "中秋节")
(holiday-chinese 9 9 "重阳节")
(holiday-fixed 10 1 "国庆节") (holiday-chinese 1 1 "张三生日")
(holiday-chinese 3 1 "李四生日"))) ;; 设置多窗口时的快捷键，Shift+方向可以切换窗口，C-c ← 可以回到前一次窗口设置
(when (fboundp 'winner-mode)
(winner-mode)
(windmove-default-keybindings))
在 windows 环境中，添加 emacs 的右键编辑菜单，新建一个 emacs.reg 文件，内容如下：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell]
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\emacs]
@="Emacs (&W)"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\emacs\command]
@="D:\\emacs\\bin\\emacsclientw.exe -a \"d:\\emacs\\bin\\emacsclientw.exe\" \"%1\""
编辑完后，双击 emacs.reg 即可将该配置写入到注册表，这样，右键菜单就会有一个 Emacs(W) 的东东。可以通过这个选项使用 emacs 打开任何文件。