贴一个自己用的Emacs环境配置

;; 从别人那里抄的

(global-set-key "\C-x\C-b" 'electric-buffer-list)
;; C-x C-b 缺省的绑定很不好用,改成一个比较方便的 electric-buffer-list
;; 之后:
;;      光标自动转移到 Buffer List buffer 中;
;;      n, p    上下移动选择 buffer;
;;      S       保存改动的 buffer;
;;      D       删除 buffer
;; 除此之外, 不错的选择还有 ibuffer, 不妨试试 M-x ibuffer.

(global-set-key "\C-x\C-j" 'dired-jump)
;; Dired-x 在 Dired 之上又提供了很多有用的功能,这是其中之一.可以方便的在
;; 任何时候跳转到当前目录的 Dired buffer 中.

(global-set-key "\C-xk" 'kill-this-buffer)
;; 按下 C-x k 立即关闭当前的 buffer, 需要关闭别的 buffer 时, 按 C-x C-b
;; 用 D 就 ok 了.

(global-set-key "\C-z" 'set-mark-command)
;; C-SPC 多数时候都是操作系统的输入法切换, set-mark-command 无论如何都要
;; 设置在一个方便的位置. 而用来挂起 Emacs 的命令可以用 C-x C-z, 也很方便.

(global-set-key "\M-o" 'other-window)
;; 除了在 Dired buffer 中, 基本都可以用来 other-window.

(setq inhibit-startup-message t)
;; 不显示Emacs的开始画面.

(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)
;; 在mode-line上显示时间.

(setq diary-file "~/.emacs.d/.diary")
;; 默认的日记文件

(scroll-bar-mode nil)
(tool-bar-mode nil)
;; 不要scroll-bar和tool-bar

(setq transient-mark-mode t)
;;

(display-time-mode t)        ; 显示时间
(column-number-mode t)       ; 显示行号
(show-paren-mode t)          ; 高亮批配的括号

(cond ((not window-system)
       ;; 如果不在Window环境中(字符界面时)
       (menu-bar-mode nil)
       ;; 关闭菜单
      )

)

;;设置颜色
(set-background-color "gray10")
(set-foreground-color "green")
(set-cursor-color "green")

;; 装载 Mew
(setq load-path (cons "c:/Emacs/site-lisp/mew" load-path))
(autoload 'mew "mew" nil t)
(setq mew-icon-directory "c:/Emacs/site-lisp/mew/etc")

;; 设置Info文件搜索路径
(setq Info-directory-list '(
    "c:/Emacs/info/"
    "c:/WinAVR/info/"
))