原文
首先是对汉字的支持，在$HOME目录下新建".Xresources"文件，添加内容如下(前提是已经安装WQY)

Emacs.Font:fontset-chinese Emacs.Fontset-0:-*-fixed-medium-r-*-*-14-*-*-*-c-*-fontset-chinese,\ chinese-gb2312:-*-wenquanyi bitmap song-*-*-normal--*-*-*-*-*-*-iso10646-1

接下来是".emacs"文件中的配置（注释以";"为行首,一般用";;"）：

设置中文语言环境

(set-language-environment 'Chinese-GB)

写文件的编码方式

(set-buffer-file-coding-system 'gb2312)

新建文件的编码方式

(setq default-buffer-file-coding-system 'gb2312)

终端方式的编码方式

(set-terminal-coding-system 'utf-8)

键盘输入的编码方式

(set-keyboard-coding-system 'gb2312)

读取或写入文件名的编码方式

(setq file-name-coding-system 'utf-8)

打开就启用 text 模式

(setq default-major-mode 'text-mode)

禁用启动信息

(setq inhibit-startup-message t)

语法高亮

(global-font-lock-mode t)

打开图片显示功能

(auto-image-file-mode t)

以 y/n 替代 yes/no

(fset 'yes-or-no-p 'y-or-n-p)

显示行列号

(column-number-mode t)

显示括号匹配

(show-paren-mode t)

显示时间，格式如下

(display-time-mode 1) (setq display-time-24hr-format t) (setq display-time-day-and-date t)

隐藏工具栏

(tool-bar-mode nil)

隐藏滚动条

(scroll-bar-mode nil)

光标靠近鼠标指针时，让鼠标指针自动让开

(mouse-avoidance-mode 'animate)

不要在鼠标光标出插入

(setq mouse-yank-at-point t)

高亮显示选中的区域

(transient-mark-mode t)

支持emacs和外部程序的拷贝粘贴

(setq x-select-enable-clipboard t)

在标题栏提示当前位置

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

显示80列就换行

(setq default-fill-column 80)

禁止终端响铃

(setq visiable-bell t)

设置tab为4个空格的宽度

(setq default-tab-width 4)

代码折叠

(load-library "hideshow") (add-hook 'java-mode-hook 'hs-minor-mode) (add-hook 'perl-mode-hook 'hs-minor-mode) (add-hook 'php-mode-hook 'hs-minor-mode) (add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)

设置个人信息

(setq user-full-name "Jiao Jiachuan") (setq user-mail-address "HeirJoe@Gmail.com")

加载配色文件

(load-file "~/myEmacs/color-theme.el")

选择配色方案

(require 'color-theme) (color-theme-dark-blue)

显示标签

(load-file "~/myEmacs/tabbar.el") (require 'tabbar) (tabbar-mode)

所有的备份文件转移到~/Backup目录下

(setq backup-directory-alist (quote (("." . "~/Backup")))) (setq version-control t) (setq kept-old-versions 2) (setq kept-new-versions 5) (setq delete-old-versions t) (setq backup-directory-alist '(("." . "~/Backup"))) (setq backup-by-copying t)

AucTeX

(load "auctex.el" nil t t) (load "preview-latex.el" nil t t) (setq TeX-auto-save t) (setq TeX-parse-self t) (setq-default TeX-master nil) (add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar) (add-hook 'LaTeX-mode-hook 'turn-on-auto-fill) (add-hook 'LaTeX-mode-hook 'turn-on-reftex)

定义DOS格式到UNIX格式的转换命令函数

(defun dos2unix () (interactive) (goto-char (point-min)) (while (search-forward "\r" nil t) (replace-match "")))

有关Emacs的常用站点：
王垠的个人主页 Emacs 中文化指南 Emacs 中文站 GNU Emacs