Author: Wang Chunyu
File : $Id: notes-emacs,v 1.134 2004/09/11 05:48:50 spr Exp $
URL : http://db.cs.hit.edu.cn/people/WangChunyu/interests/m/em/mposts/note002.html
===>>> 如果你第一次看这里，记得从下往上看 :) Command line 中：
"gnuclientw.exe" "-q" "+%l" "%f"
GNUSERV setup:
(gnuserv-start)
(setq gnuserv-frame (selected-frame))
(setenv "GNUSERV_SHOW_EMACS" "1")
----
Calendar 中显示农历节日
(setq local-holidays
'((holiday-chinese 1 15 "元宵节 (正月十五)")
(holiday-chinese 5 5 "端午节 (五月初五)")
(holiday-chinese 9 9 "重阳节 (九月九)")
(holiday-chinese 8 15 "中秋节 (八月十五)")))
(autoload 'chinese-year "cal-china" "Chinese year data" t)
(defun holiday-chinese (cmonth cday string)
"Chinese calendar holiday, month and day in Chinese calendar (CMONTH, CDAY).
If corresponding MONTH and DAY in gregorian calendar is visible,
the value returned is the list \(((MONTH DAY year) STRING)).
Returns nil if it is invisible in the current calendar window."
(let* ((m displayed-month)
(y displayed-year)
(gdate (calendar-gregorian-from-absolute
(+ (cadr (assoc cmonth (chinese-year y))) (1- cday)))))
(increment-calendar-month m y (- 11 (car gdate)))
(if (> m 9) (list (list gdate string)))))
----
查看 frame 参数
(frame-parameter nil 'width)
(frame-parameter nil 'height)
(frame-parameter nil 'left)
(frame-parameter nil 'top)
放在 default-frame-alist 中的四个参数，先调整、查看，再修改
或者更直接的：
(frame-parameters nil)
----
设置 C Source 目录
(setq find-function-C-source-directory "~/work/emacs/src")
----
不显示 HTML 中的标签
HTML-mode:
C-x C-i (sgml-tags-invisible)
----
颠倒一块文本
M-x reverse-region 以行为单位颠倒文本
----
BibTeX 管理 bib 文件
添加、修改很方便。from o8o@smth:
1. 可以根据需要插入一个模板 (参考 C-c C-e C-h)；
2. 可以方便清除模板中不需要的项目 (C-c C-c)；
3. 插入后可以生成一个自己需要的 Key (自动或手动的)；
4. 可以根据 Key 把参考文献排序插入，不用担心重复查入同一条文献
(C-h v bibtex-maintain-sorted-entries)；
5. 在各个项中移动很方便 (TAB & C-j)。
----
RefTeX 管理/浏览/调整 TeX 文件中的章节、标签、引用、索引等
可以和 AUCTeX 配合使用。
(setq reftex-plug-into-AUCTeX t)
(add-hook 'TeX-mode-hook 'turn-on-reftex)
还可以再 TeX buffer 中创建索引、标签、引用等。
----
插入 -*- MODENAME -*- 标签
(defun chunyu-insert-file-variable ()
"Insert file variable string \"-*- Major-Mode-Name -*-\" with
comment char"
(interactive)
(insert
(concat comment-start " -*- "
(substring
(symbol-name (symbol-value 'major-mode)) 0 -5)
" -*- " comment-end)))
----
CVS AUCTeX 中有 ConTeXt 模式
不需要自己装了，而且绑定和 LaTeX-mode 差不多。
export CVS_RSH="ssh"
cvs -z3 -d:ext:[email protected]:/cvsroot/auctex co auctex
cd auctex && ./autogen.sh && ./configure
(如果在 Windows 上，编辑 Makefile, doc/Makefile，修改其中的 info,
prefix 目录)
make && make install
----
feedmail instead of fakemail
feedmail package 似乎可以代替 fakemail.exe 发信，不过还不清楚如何配置。
可惜如果在 Windows 上，需要 sh.exe 和 rmail.exe 等:(。
----
去掉 .emacs 中不再需要的绑定（现在很少使用了）
(define-prefix-command 'ctl-x-m-map)
(global-set-key "\C-xm" 'ctl-x-m-map)
(define-key ctl-x-m-map "e" 'cvs-examine)
(define-key ctl-x-m-map "m" 'man-follow)
(define-key ctl-x-m-map "g" 'run-scheme)
(define-key ctl-x-m-map "b" 'list-bookmarks)
(define-key ctl-x-m-map "l" 'browse-kill-ring)
(define-key ctl-x-m-map "a" 'align-current)
----
Commentary of emacs-cvs/lisp/iimage.el
should be:
(autoload 'iimage-mode "iimage" "Inline image." t)
(autoload 'turn-on-iimage-mode "iimage" "Inline image." t)
;; ``I''nfo-mode-hook
(add-hook 'Info-mode-hook 'turn-on-iimage-mode)
----
使用 gnuserv.exe 少不了的参数:
(gnuserv-start)
(setq gnuserv-frame (selected-frame))
(setenv "GNUSERV_SHOW_EMACS" "1")
----
当前终端能否显示支持的字体（判断图形终端的令一个方法）
(display-multi-font-p)
Return non-nil if DISPLAY is a graphic display.
(display-multi-font-p &optional DISPLAY)
----
通过 smbclient 在 Linux box 上给 Windows box 发送 net message
Linux -> Windows (Net-Message) in Emacs:
M-| smbclient -M 机器名
或者直接：
cat "Hello!" | smbclient -M 机器名
----
Outline minor mode 的键前缀
缺省的：
C-c @
或者自己修改：
(setq outline-minor-mode-prefix "\C-c\C-o")
----
Windows 上用相关联的程序打开文件
(eval-after-load "dired"
'(progn
;; Dired 原来的 “o” 对我来说基本没用。
(define-key dired-mode-map "o" 'chunyu-dired-open-explorer)))
(defun chunyu-dired-open-explorer ()
(interactive)
(let ((file-name (dired-get-file-for-visit)))
(if (file-exists-p file-name)
(w32-shell-execute "open" file-name nil 1))))
原来使用 cmd.exe 的 start 命令，但路径中不能有空格。这个
w32-shell-execute 就没问题了，还不错。
此外，从另一个人的 .emacs 中学来的，可以同时打开所有做标记的文件：
(defun dired-execute-file (&optional arg)
(interactive "P")
(mapcar #'(lambda (file) (w32-shell-execute "open" file))
(dired-get-marked-files nil arg)))
而且可以绑定到鼠标上，用鼠标中键(mouse-2)或双击(double-mouse-1)打开：
(define-key dired-mode-map [mouse-2] 'dired-mouse-execute-file)
(defun dired-mouse-execute-file (event)
"In dired, execute the file or goto directory name you click on."
(interactive "e")
(set-buffer (window-buffer (posn-window (event-end event))))
(goto-char (posn-point (event-end event)))
(dired-execute-file))
----
使用 Windows 上的左右 Win 键
(setq w32-pass-rwindow-to-system nil)
(setq w32-rwindow-modifier 'hyper)
(setq w32-pass-lwindow-to-system nil)
(setq w32-lwindow-modifier 'hyper)
例如：
(global-set-key [(hyper ?z)] 'compile)
----
Dumping emacs 的参数
#!/bin/sh
MYEMACS=$1
./$MYEMACS --batch --load ~/.emacs.d/.emacs.el \
--execute "(dump-emacs \"mymacs\" \"$MYEMACS\")"
----
几个 list 命令，列出一些变量
M-x list-colors-display RET
M-x list-faces-display RET
(setq list-faces-sample-text
"赵钱孙李 周吴郑王 abcdefg..z ABCDEFG..Z")
M-x list-charset-chars
M-x list-character-sets
M-x list-load-path-shadows
M-x list-options
M-x list-color-display
M-x list-registers
M-x list-command-history
M-x list-processes
M-x list-input-method
----
CVS Emacs 查看 utf-8
M-x utf-translate-cjk-mode
(utf-translate-cjk-mode 1)
----
执行 cmd.exe 的 start 命令
(start-process "dir" nil "cmd.exe" "/c" "start" "c:")
当然，用 w32-shell-execute 更好些。
----
beginning-of-buffer 的前缀参数
M-2 M-x beginning-of-buffer RET (M-2 M- that will switch from a .cpp file to the associated .h file,
Daniel> if there is one. For example, if I have Hash.cpp opened and
Daniel> press the selected keys, emacs switches to Hash.h. If there is
Daniel> no Hash.h nothing is done. Any help appreciated. Thanks!
Daniel> -- Daniel
另外：ff-find-related-file
----
hideshow minor mode
hs-minor-mode
----
重复前一个复杂命令
C-x Esc Esc
C-x M-:
----
在 .emacs 中设置缺省的 TAGS 文件
(visit-tags-table "/path/to/table")
----
M-; 灵活注释 (C-h k M-;)
如果 transient-mark-mode 开启并且 region 有效： comment-region
但如果只有注释： uncomment-region
否则，如果当前行为空行，插入一个注释， 并缩进： ...
否则，如果给定前缀参数： comment-kill
否则： comment-indent
----
M-x toggle-debug-on-quit
碰到停下来的时候C-q，一般能看到什么地方出的问题。
----
转换当前 buffer 的修改标记(Modification-flag)
M-~ / C-u M-~ not-modified
----
C-x @: event-apply-*-modifier
C-x @ c event-apply-control-modifier
C-x @ S event-apply-shift-modifier
C-x @ a event-apply-alt-modifier
C-x @ m event-apply-meta-modifier
C-x @ s event-apply-super-modifier
C-x @ h event-apply-hyper-modifier
----
find-function-setup-keys 提供的几个键，直接找到lisp中函数或变量的定义位置
(find-function-setup-keys) which sets up some shortcuts.
C-x [4,5] F find-function
C-x [4,5] V find-variable
C-x K find-function-on-key
----
消除错误提示音(ring-bell)
方法1: 用屏幕闪烁代替 ring bell
(setq visible-bell 1)
方法2: 修改 ring bell 函数
(setq ring-bell-function 'ignore)
方法3: 修改 message 声音
(set-message-beep 'silent)
----
用 C-x RET c 编码、保存，改变文件的 dos/unix 格式
(先把文件改动一下，或者用 C-u M-~ 把文件设置为已改动)
C-x RET c chinese-iso-8bit-dos RET C-x C-s
不论原来是什么都保存为 dos 格式；
(改动一下文件)
C-x RET c chinese-iso-8bit-unix RET C-x C-s
不论原来是什么都保存为 unix 格式。
这个命令还可以用来以某种编码打开文件……
----
编辑已经提交的 CVS log。
>>>>> "Luc" == Luc Teirlinck writes: Is there
> a reasonably easy way to correct the per file CVS log entry for an
> already committed change? I inadvertently forgot a per file
Use PCL-CVS's `l' command to get the log and then hit `e'
(or M-x cvs-mode-edit-log) on the log entry you want to change.
Stefan
> The only way to change a CVS log entry is to edit the repository. The
> cvs frontend does not allow that.
cvs admin -m:
Stefan
----
几个设置 mark 的键
M-C-SPC mark-sexp 标记一个表达式
M-@ mark-word 标记一个词
M-h mark-paragraph 标记一整段
C-M-h mark-defun 标记一个函数的定义
这些命令重复按的时候，region 每次都会扩展。比如 M-h M-h 相当于 M-2 M-h。
之前加一个 C-SPC C-SPC 打开 transient-mark-mode 看的更清楚。
----
暂时打开 transient-mark-mode 的两种方法：
C-SPC C-SPC 两次 set-mark-command
C-u C-x C-x 交换 mark 和 point 时用 C-u 前缀
----
Emacs 添加行号，使用 setnu.el
http://www.zipworld.com.au/~peterm/download/setnu.el
----
info path
(add-to-list 'Info-default-directory-list "d:/MinGW/info")
----
align: （文档在 emacs/lisp/align.el 的注释中）
将下面的格式： int a = 1;
short foo = 2;
double blah = 4;
自动改为格式： int a = 1;
short foo = 2;
double blah = 4;
(require 'align)
M-x align-current RET
M-x align-entire RET
----
Emacs Lisp 的交互环境
M-x ielm RET
Provides a nice interface to evaluating Emacs Lisp expressions. Input
is handled by the comint package, and output is passed through the
pretty-printer.
----
判断 emacs 的颜色数：
display-color-cells
(when (> (display-color-cells) 16) ... )
----
(hi-lock-mode 1) 高亮模式
C-x w b hi-lock-write-interactive-patterns
C-x w r unhighlight-regexp
C-x w h highlight-regexp
C-x w p highlight-phrase
C-x w l highlight-lines-matching-regexp
C-x w i hi-lock-find-patterns
;; Sample file patterns:
; Hi-lock: (("^;;; .*" (0 (quote hi-black-hb) t)))
; Hi-lock: ( ("make-variable-buffer-\\(local\\)" (0 font-lock-keyword-face)(1 'italic append)))))
; Hi-lock: end
----
emacs 的一些程序的用处
b2m 将邮件文件从RMAIL格式转化成UNIX的mbox格式。
ebrowse 使emacs可以调用C++的类的层级结构。
emacsclient 在emacs服务器上启动一个emacs进程。
etags 也是一个产生源码互相参照标签文件的程序。
grep-changelog 列印变更日志(ChangeLogs)中符合不同条件的项目。
rcs-checkin 一个将文件加入RCS(修改管理系统)的脚本。
cvtmail 将老式的goslings emacs邮件目录转化成 gnu-rmail 格式。
digest-doc 为man page建立nroff输出的虑镜。
emacserver 使其他的程序或者shell可以读写一个正在运行的emacs并且共享buffers。
fakemail 是一个和sendmail类似的到 /bin/mail的界面。
hexl 将二进制文件转化成emacs十六进制模式可以用的格式。
movemail 可以读取POP3邮箱。
profile 为emacs的Lisp代码的profiling产生一个周期性事件。
rcs2log 由RCS文件产生一个修改日志的前缀。
sorted-doc 建立texinfo文件的虑镜
vcdiff 比较SCCS文件。
----
中文天干地支
from smth
在~/.emacs中加入如下代码
(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])
然后在 calendar 中按 p C 就可以看到中文的天干地支了
----
C-x C-n (M-x set-goal-column)
设置 next-line 或 previous-line 命令所去的列，需要在某个列移动光标的时
候很有用。可以防止由于 (setq track-eol t) 有时候带来的不便。
加个非空的参数即可取消，比如 C-u C-x C-n。
----
type C-u 1 0 0 C-u 1 to insert 100 1's.
----
C-u 0 C-x C-s never makes a backup file.
----
Dired 中标记文件名和标记含有某些行的文件
* . 标记同一扩展名的文件
% g 标记其中有匹配 regexp 的行的文件
----
(partial-completion-mode 1)
M-x t-t-l for M-x toggle-truncate-lines
or (M-x t SPC t SPC l RET)
C-x C-f for opening "/usr/include/sys/time.h"
----
直接关掉 buffer
-(global-set-key "\C-xk" 'kill-buffer-directly)
+(global-set-key "\C-xk" 'kill-this-buffer)
kill-this-buffer 就可以直接关闭 buffer。
或者下面这个，不删除 *scratch* 缓冲的。
(defun chunyu-kill-this-buffer ()
(interactive)
(if (equal (buffer-name) "*scratch*")
(progn (erase-buffer)
(set-buffer-modified-p nil)
(bury-buffer))
(kill-buffer (current-buffer))))
----
imenu 根据 buffer 中的函数定义来移动光标
-(define-key ctl-x-m-map "i" 'boxquote-insert-file)
+(define-key ctl-x-m-map "i" 'imenu) ; boxquote-insert-file
----
(which-func-mode 1)
在 mode-line 中显示当前行在那个函数中
----
(icomplete-mode 1)
用 M-x 执行某个命令的时候，在输入的同时给出可选的命令名提示。
----
Emacs 的 Emerge 很好用
M-x emerge-files RET
So cool.
----
修改 Dired 中内容
Dired 使用 ls 得到缓冲内容，缺省的参数为 "-al"，可以通过
(setq dired-listing-switches "-avl")
在 .emacs 中修改，参数其中的 "v" 可以使大写的文件名在顶部。也可以在
Dired 缓冲中使用命令：
C-u s
临时修改。
----
不显示 Emacs 的开始画面
(setq inhibit-startup-message t)
----
Emacs 找不到合适的模式时，缺省使用 text-mode
(setq default-major-mode 'text-mode)
----
存盘的时候，要求最后一个字符时换行符
有一些文件，需要这样的格式，比如 /etc/fstab 文件，没有文件末尾的换行会
发生错误。
(setq require-final-newline t)
----
Mini buffer 不要自动调整大小
(setq resize-mini-windows nil)
----
在行尾上下移动的光标，始终保持在行尾
(setq track-eol t)
----
让 Emacs 中的 man page buffer，使用当前窗口，并成为当前缓冲区
M-x man-follow 或者 M-x man 弹出的 buffer 的方式。
(setq Man-notify-method 'pushy)
----
当有两个文件名相同的缓冲时，使用前缀的目录名做 buffer 名字
默认是 foobar，foobar ……的形式
(setq uniquify-buffer-name-style 'forward)
----
提示命令所绑定的键的时间
当使用 M-x COMMAND 后，过 1 秒钟显示该 COMMAND 绑定的键
(setq suggest-key-bindings 1)
----
当行数超过一定数值，不再显示行号
(setq line-number-display-limit 1000000)
----
保留删除文本的 kill-ring 最多的记录个数
(setq kill-ring-max 200)
----
打开 CVS 中的文件的符号连接时，无须询问
(setq vc-follow-symlinks t)
----
M-x apropos 时多查询些结果，但需要更多的 CPU
(setq apropos-do-all nil)
----
每当设置书签的时候都保存书签文件，否则只在你退出 Emacs 时保存
(setq bookmark-save-flag 1)
----
在 mode-line 上显示时间
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-use-mail-icon t)
(setq display-time-interval 10)
----
在行首 C-k 时，同时删除该行
(setq-default kill-whole-line t)
----
设置时间戳，标识出最后一次保存文件的时间
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
----
Emacs 的备份
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("." . "~/var/tmp")))
(setq backup-by-copying t)
Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去
掉(并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放
在一个固定的地方("~/var/tmp")。对于每个备份文件，保留最原始的两个版本和
最新的五个版本。并且备份的时候，备份文件是复本，而不是原件。
----
改变 Emacs 固执的要你回答 yes 的行为，按 y 或空格键表示 yes，n 表示 no
(fset 'yes-or-no-p 'y-or-n-p)
----
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))
----
用于编辑远程文件的 tramp 和 ange-ftp 的设置
(setq tramp-unified-filenames t)
(setq tramp-auto-save-directory "~/var/tramp")
(setq ange-ftp-generate-anonymous-password "[email protected]")
(setq ange-ftp-default-user t)
----
.emacs 中设置 register
Register 是一种资源，可以用来保存文本(text)，位点(mark)，文件名或目录，
数值等。所有的大小写字母和数字都可以用作 Register。
C-x j e 就打开 .emacs.el 文件
(set-register ?e '(file . "~/.emacs.d/.emacs.el"))
C-x j g
(set-register ?g '(file . "~/.emacs.d/.gnus.el"))
----
调整 Emacs 的行距
(setq-default line-spacing nil)
----
设置 DISPLAY 变量
到我的 Windwos 机器，上面装了 X-Win32，用来显示 Linux 机器上的 X 程序
(setenv "DISPLAY" "chunyu:0")
----
minibuffer 缺省输入
(minibuffer-electric-default-mode 1)
----
minibuffer 中输入部分命令就可以使用补全
例如：
M-x t-t-l RET
就可以执行
M-x toggle-truncate-lines。其中的 "-" 处只需按空格。
(partial-completion-mode 1)
----
打开压缩文件时自动解压缩
(auto-compression-mode 1)
----
显示列号
(column-number-mode 1)
----
光标不要闪烁
(blink-cursor-mode -1)
----
高亮显示匹配的括号
(show-paren-mode 1)
----
不要 menu-bar 和 tool-bar
(menu-bar-mode -1)
(tool-bar-mode -1)
或者，在 Windows 上，通过注册表：
HKEY_LOCAL_MACHINE\SOFTWARE\GNU\Emacs\EMACS.Toolbar=0 (REG_SZ)
----
给出用 M-x foo-bar-COMMAND 输入命令的提示
(icomplete-mode 1)
----
方便打开文件和转换 buffer 的模式
(ido-mode 1)
ido 模式中，使用 tramp 的补全方式
(setq ido-enable-tramp-completion t)
ido 模式中不保存目录列表
(setq ido-save-directory-list-file nil)
----
自己的名字和邮件地址
很多地方用得到，比如 VC(version control) 中产生 ChangeLog 文件
(setq user-full-name "Chunyu Wang")
(setq user-mail-address "dddkk(at)sina(dot)com")
----
关于 mail 的简单设置
(setq mail-signature-file "~/.sig/default")
(setq mail-user-agent 'gnus-user-agent)
(setq mail-alias-file "~/.mailrc")
----
设置 gnus 的初始化文件
(setq gnus-inhibit-startup-message t)
(setq gnus-init-file "~/.emacs.d/.gnus.el")
----
Dired 中递归的删除、复制子目录
(setq dired-recursive-deletes t)
(setq dired-recursive-copies t)
----
通过 Dired 中的 CVS 目录进入 pcl-cvs 界面
在一个 CVS 本地拷贝目录的 Dired buffer 中时，如果进入 CVS 目录，自动进
入 PCL-CVS 界面：
(setq cvs-dired-use-hook 'always)
----
Emacs 的 Calendar
Emacs 中有日历，而且可以称之为一个系统，因为其中除了最常用的日历之外，
还有其他的近十种历法，其中有日记、约会提醒、纪念日提示以及节假日提示等
等。其中的历法包括中国的农历、希伯来历、伊斯兰历、法国革命历、中美玛雅
历等等，可以根据经纬度告知你的所在的每天日出日落的时间等等。
----
保存日记的文件
(setq diary-file "~/.emacs.d/.diary")
----
查看日出日落时间
设置所在地的经纬度和地名，calendar 中按 S，可以根据这些信息告知你每天的
日出和日落的时间：
(setq calendar-latitude +45.75)
(setq calendar-longitude +126.63)
(setq calendar-location-name "Harbin")
----
有关日历的设置
(setq calendar-remove-frame-by-deleting t)
(setq calendar-week-start-day 1) ; 每周第一天是周一
(setq mark-diary-entries-in-calendar t) ; 标记有记录的日子
(setq mark-holidays-in-calendar nil) ; 标记节假日
(setq view-calendar-holidays-initially nil) ; 不显示节日列表
----
去掉了不感兴趣的节日
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq solar-holidays nil)
(setq general-holidays '((holiday-fixed 1 1 "元旦")
(holiday-fixed 4 1 "愚人节")
(holiday-float 5 0 2 "母亲节")
(holiday-float 6 0 3 "父亲节")))
----
Calendar 中 p C 可以看到我们的阴历有中文的天干地支
(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])
----
开启语法高亮
(global-font-lock-mode 1)
语法高亮，除 shell-mode 和 text-mode 之外的模式中使用语法高亮
(setq font-lock-maximum-decoration t)
(setq font-lock-global-modes '(not shell-mode text-mode))
(setq font-lock-verbose t)
(setq font-lock-maximum-size
'((t . 1048576) (vm-mode . 5250000)))
----
中文设置
默认的语言环境：
(set-language-environment 'Chinese-GB)
键盘输入的编码，用于输入法：
(set-keyboard-coding-system 'chinese-iso-8bit)
终端显示的编码：
(set-terminal-coding-system 'chinese-iso-8bit)
剪切板，用于和其他程序之间复制内容：
(set-clipboard-coding-system 'chinese-iso-8bit)
----
缺省书签的文件
(setq bookmark-default-file "~/.emacs.d/.emacs.bmk")
或者，不同的机器上用不同的文件：
(setq bookmark-default-file
(substitute-in-file-name "~/.emacs.d/emacs_$HOSTNAME.bmk"))
其中的 HOSTNAME 是环境变量，Windows 系统上或许需要自己定义一下。
----
保存缩写定义的文件
(setq abbrev-file-name "~/.emacs.d/.abbrev_defs")
----
保存 customize 设置的文件
M-x customize 功能保存设置的文件，默认的是 Emacs 的初始化文件 .emacs。
但是我比较喜欢用另外的文件保存：
(setq custom-file "~/.emacs.d/.emacs_custom.el")
当然，这样还需要在 .emacs 中加载一下：
(load custom-file)
----
Emacs TODO 模式的相关文件
(setq todo-file-do "~/.emacs.d/todo-do")
(setq todo-file-done "~/.emacs.d/todo-done")
(setq todo-file-top "~/.emacs.d/todo-top")
----
?
Copyright © 2002-2004 DataBase Laboratory.All rights reserved.
This page was last modified on Saturday, 11 September 2004 by Wang Chunyu. Powered by Zope 2.6.2.
本文地址：http://com.8s8s.com/it/it27400.htm