|
|
发表于 2003-12-29 15:00:14
|
显示全部楼层
我的dotemacs文件:
- [font=宋体][color=red][size=3]
- ;;***************文件的头部**********************************;;
- ;; Liu Qi's .emacs file
- ;; Liu Qi ,Xi'An , Northwest Polytechnical University
- ;; 12 October 2003
- ;;***************文件的主体部分******************************;;
- ;;把 major mode 设置为 text-mode , 而不是 fundamental-mode 。
- ;;并且在72列处断行。
- (setq default-major-mode 'text-mode)
- (setq text-mode-hook
- '(lambda nil
- (setq fill-column 72)
- (auto-fill-mode 1)))
- ;;关闭出错的时候的提示的声音。
- (setq visible-bell t)
- ;;进行语法加亮
- (global-font-lock-mode t)
- ;;显示时间。
- (display-time)
- ;;显示所在列号。
- (setq column-number-mode t)
- ;;显示适当大小的字体.
- (set-default-font "8x16")
- ;;分别针对字符终端模式和X11模式设置背景色,鼠标滚轮,光标的颜色等属性。
- (cond ((not window-system)
- ;;在模拟终端中运行Emacs的时候可以使用鼠标。
- (xterm-mouse-mode t)
- )
- ((equal window-system 'x)
- ;;以X11方式运行Emacs的时候激活鼠标滚轮。
- (mouse-wheel-mode t)
- ;;并且设置背景色。
- (set-background-color "DarkSlateGray")
- ;;设置光标的颜色。
- (set-cursor-color "sienna")
- ;;设置X11模式启动的 Emacs 的标题。
- (setq frame-title-format "GNU/Emacs@nwpu.edu.cn")
- ;;关闭 Emacs 的启动画面。
- ; (setq inhibit-startup-message t)
- ;;光标躲避鼠标。
- (mouse-avoidance-mode 'animate)
- ;;关闭工具栏.
- ; (tool-bar-mode nil)
- ;;关闭菜单栏.
- ; (menu-bar-mode nil)
- ;;关闭滚动条.
- ; (scroll-bar-mode nil)
- ))
- ;;Emacs 中关于 ibuffer 的设置
- (require 'ibuffer)
- (global-set-key (kbd "C-x C-b") 'ibuffer)
- ;;在Emacs键入M-x run-scheme的时候默认运行mzscheme。
- (setq scheme-program-name "mzscheme")
- ;;定义一些交互式函数,以便可以方便地在Emacs中运行scheme解释器。
- (defun run-scsh ()
- "Run scsh in GNU/Emacs"
- (interactive)
- (run-scheme "scsh"))
- (defun run-s48 ()
- "Run scheme48 in GNU/Emacs"
- (interactive)
- (run-scheme "scheme48"))
- (defun run-mit-scheme ()
- "Run MIT-scheme in GNU/Emacs"
- (interactive)
- (run-scheme "bchscheme"))
- (defun run-mzscheme ()
- "Run Mzscheme in GNU/Emacs"
- (interactive)
- (run-scheme "mzscheme"))
- (defun run-guile ()
- "Run guile in GNU/Emacs"
- (interactive)
- (run-scheme "guile"))
- ;;也可以在Emacs中运行clisp(版本号为2.30),M-x run-lisp命令。
- (setq inferior-lisp-program "/usr/local/bin/clisp")
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;以下是有关Gnus的设置选项
- ;; gnus news groups
- (setq user-mail-address "liuqi@mail.nwpu.edu.cn")
- (setq user-full-name "Liu Qi")
- (setq gnus-your-organization "Xi'An 710072 P.R.China")
- ;;nntp setup
- (setq gnus-select-method '(nntp "news.yaako.com"))
- (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.
- '(canlock-password "c18c08f7a34b66947e04eca4252118631557bffd"))
- (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.
- )
- [/size][/color][/font]
复制代码
|
|