我的emacs設定。

;-------------------------中文設定--------------------------
;; Setup GBK environment
(require 'mule-gbk)
(set-terminal-coding-system 'chinese-gbk)
(set-keyboard-coding-system 'chinese-gbk)
(set-language-environment 'chinese-gbk)
(setq locale-coding-system 'chinese-gbk)
(setq current-language-environment "Chinese-GBK")
;; Setup X Selection for mule-gbk
(mule-gbk-selection-setup)
(prefer-coding-system 'gbk)

;;-------------------------向其他X程序粘貼中文---------------
(when (fboundp 'utf-translate-cjk-mode)
;; Load modified utf-translate-cjk-mode
(require 'gbk-utf-mode)
;; Turn on utf-translate-cjk-mode
(utf-translate-cjk-mode 1)
;; Setup X selection for unicode encoding
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))

;;-------------------------語法加亮--------------------------
(global-font-lock-mode 't)

;;-------------------------關閉錯誤提示的Beep音--------------
(setq visible-bell t)

;;-------------------------關閉啟動時的`開機畫面'------------
(setq inhibit-startup-message t)

;;-------------------------顯示列號--------------------------
(setq column-number-mode t)

;;-------------------------括號匹配--------------------------
;;括號匹配時顯示另一端的括號，而不是跳過去
(show-paren-mode t)
(setq show-paren-style 'parentheses)

;;-------------------------標題攔顯示buffer的名字------------
(setq frame-title-format "emacs@%b")

;;-------------------------Shell 使用 ansi color-------------
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;;-------------------------使用Win下的選擇習慣---------------
;;用shift+方向鍵進行選擇
(pc-selection-mode)

;;-------------------------讓Emacs擁有tabs-------------------
;;http://learn.tsinghua.edu.cn/homepage/2001315450/emacs_elisp.html
;;到上面的網頁下載tabbar.el 保存到/usr/share/emacs/site-lisp/
(require 'tabbar)
(tabbar-mode)
(define-prefix-command 'lwindow-map)
;;(global-set-key (kbd "") 'lwindow-map)
;;這兒的設定王垠的主頁顯示有問題，
(global-set-key (kbd "<s-up>") 'tabbar-backward-group)
(global-set-key (kbd "<s-down>") 'tabbar-forward-group)
(global-set-key (kbd "<s-left>") 'tabbar-backward)
(global-set-key (kbd "<s-right>") 'tabbar-forward)
;;使用Win+方向鍵在tabbed buffer之間切換
;;加載了 session 之后菜單上會多兩項：最近訪問過的文件和最近修改過的文件 /usr/share/emacs/site-lisp/session.el
(require 'session)
(add-hook 'after-init-hook 'session-initialize)
;;保存上次打開的文件記錄
(load "desktop")
(desktop-load-default)
(desktop-read)
;;如果session跟desktop配合，下次啟動Emacs 的時候，就像根本沒有關閉 Emacs 一樣
;;把這幾行加入 .emacs 就可以把 C-x C-b 那個普通的 buffer menu 換成非常方便的 ibuffer 啦
(require 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer)
;;最方便的切換buffer，尋找文件的擴展
(require 'ido)
(ido-mode t)
;;使用這個，你就可以方便的在最近編輯的 buffer 之間切換了。切換的時候會出現一個小窗口顯示附近的buffer，就像翻頁一樣
(require 'swbuff)
(global-set-key (kbd "") 'swbuff-switch-to-previous-buffer)
(global-set-key (kbd "") 'swbuff-switch-to-next-buffer)
(setq swbuff-exclude-buffer-regexps
     '("^ " "\*.*\*"))

(setq swbuff-status-window-layout 'scroll)
(setq swbuff-clear-delay 1)
(setq swbuff-separator "|")
(setq swbuff-window-min-text-height 1)
;;ecb
;;(add-to-list 'load-path "/usr/share/emacs/site-lisp/ecb")
;;(require 'ecb)


(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.
 '(ecb-options-version "2.27"))
(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.
 )
;;設定顯示時間
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)

原文轉自：http://www.kjueaiud.com