|
|
发表于 2005-10-19 16:13:05
|
显示全部楼层
试试这个.emacs配置文件
感觉xemacs比emacs好配置一些,你可以试试。
- (custom-set-variables
- ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
- ;; Your init file should contain only one such instance.
- '(case-fold-search t)
- '(current-language-environment "Chinese-GB")
- '(default-input-method "chinese-py-punct")
- '(global-font-lock-mode t nil (font-lock))
- '(transient-mark-mode t))
- (custom-set-faces
- ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
- ;; Your init file should contain only one such instance.
- )
- ;;设置背景颜色
- (set-background-color "black")
- ;;设置字体颜色
- (set-foreground-color "white")
- ;;关闭启动画面
- (setq inhibit-startup-message t)
- ;;显示列号
- (setq column-number-mode t)
- ;;不用 TAB 字符来indent
- ;;(setq-default indent-tabs-mode nil)
- ;;(setq default-tab-width 8)
- ;;(setq tab-stop-list ())
- ;;(loop for x downfrom 40 to 1 do
- ;; (setq tab-stop-list (cons (* x 4) tab-stop-list)))
- ;;设置 sentence-end 可以识别中文标点
- ;;(setq sentence-end "\\([。!?]\\|……\\|[.?!][]"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
- ;;(setq sentence-end-double-space nil)
- ;;递归的使用 minibuffer
- (setq enable-recursive-minibuffers t)
- ;;防止页面滚动时跳动
- ;;(setq default-major-mode 'text-mode)
- ;;括号匹配时显示另外一边的括号
- (show-paren-mode t)
- (setq show-paren-style 'parentheses)
- ;;可以直接打开和显示图片
- (auto-image-file-mode)
- ;;Emacs 中,改变文件时,默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去
- ;;掉(并不可取),也可以制定备份的方式。这里采用的是,把所有的文件备份都放
- ;;在一个固定的地方("~/var/tmp")。对于每个备份文件,保留最原始的两个版本和
- ;;最新的五个版本。并且备份的时候,备份文件是复本,而不是原件。
- (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)
- ;;不要 menu-bar 和 tool-bar
- ;;(menu-bar-mode -1)
- ;;(tool-bar-mode -1)
- ;;键盘输入的编码,用于输入法:
- (set-keyboard-coding-system 'chinese-iso-8bit)
- ;;终端显示的编码:
- (set-terminal-coding-system 'chinese-iso-8bit)
- ;;剪切板,用于和其他程序之间复制内容:
- (set-clipboard-coding-system 'chinese-iso-8bit)
- ;;要求精确匹配
- (setq-default case-fold-search nil)
- ;;替换时不改变大小写
- (setq-default case-replacd nil)
- ;;状态行上显示时间
- (display-time)
复制代码 |
|