emacs-site插件文件夹可以在下面地址下载，里面也有个emacs配置不过是旧的。 http://download.csdn.net/detail/tujiaw/3736262
;;设置一个读取插件的默认路径
(add-to-list 'load-path "~/emacs-site/")
;;显示行号
(global-linum-mode t)
;;显示时间，格式如下
(display-time-mode t)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
;;在标题栏提示你目前在什么位置
;;(setq frame-title-format "root@%b")
(defun frame-title-string ()
"Return the file name of current buffer, using ~ if under home directory"
(let
((fname (or
(buffer-file-name (current-buffer))
(buffer-name)))
(max-len 100))
(when (string-match (getenv "HOME") fname)
(setq fname (replace-match "~" t t fname)))
(if (> (length fname) max-len)
(setq fname
(concat "..."
(substring fname (- (length fname) max-len)))))
fname))
(setq frame-title-format '("tjw-emacs@"(:eval (frame-title-string))))
;;支持emacs和外部程序粘贴
(setq x-select-enable-clipboard t)
;;选择一个颜色主题
(require 'color-theme)
(color-theme-dark-blue)
;;设置括号配对功能
(show-paren-mode t)
(setq show-paren-style 'parentheses)
;;查找\打开文件时,列出文件列表
(require 'ido)
(ido-mode t)
;;设置文件的标题栏
(require 'tabbar)
(tabbar-mode)
;;语法加亮
(global-font-lock-mode t)
;;高亮显示区域选择
(transient-mark-mode t)
;;shift键加方向键选取
(pc-selection-mode)
;;标题栏切换的快捷键
(global-set-key [M-up] 'tabbar-backward-group)
(global-set-key [M-down] 'tabbar-forward-group)
(global-set-key [M-left] 'tabbar-backward)
(global-set-key [M-right] 'tabbar-forward)
(setq gdb-many-windows t)
;;...
(load-library "multi-gud.el")
(load-library "multi-gdb-ui.el")
;;设置快捷键
(global-set-key [f1] 'kill-buffer)
(global-set-key [f3] 'goto-line)
(global-set-key [f4] 'set-mark-command)
(global-set-key [f5] 'compile)
(global-set-key [f6] 'gdb)
(global-set-key [f7] 'bookmark-set)
(global-set-key [f8] 'bookmark-jump)
(global-set-key [f9] 'cvs-update)
;;定义F12键为激活ecb
(global-set-key [f12] 'ecb-activate)
(global-set-key [(control tab)] 'switch-to-buffer)
(global-set-key (kbd "M-]") 'comment-dwim)
(global-set-key [delete] 'delete-region)
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching paren if on a paren; otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
(global-set-key "%" 'match-paren)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;C/C++
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun linux-cpp-mode ()
"my cpp mode define"
(interactive)
(c-set-style "K&R")
(setq c-basic-offset 4)
(c-toggle-hungry-state)
;(c-toggle-auto-state)
(define-key c++-mode-map [return] 'newline-and-indent)
)
(add-hook 'c-mode-hook 'linux-c-mode)
(add-hook 'c++-mode-hook 'linux-cpp-mode)
;; 设置imenu的排序方式为按名称排序
(setq imenu-sort-function 'imenu--sort-by-name)
(defun linux-c-mode()
;;将回车代替C-j的功能，换行的同时对齐
(define-key c-mode-map [return] 'newline-and-indent)
;;(interactive)
;;设置C程序的对齐风格
(c-set-style "Stroustrup")
;;自动模式，在此种模式下当你键入{时，会自动根据你设置的对齐风格对齐
;;(c-toggle-auto-state)
;;此模式下，当按Backspace时会删除最多的空格,使得if缩进正常
(c-toggle-hungry-state)
;;TAB键的宽度设置为4
(setq c-basic-offset 4)
;; 在菜单中加入当前Buffer的函数索引
(imenu-add-menubar-index)
;; 在状态条上显示当前光标在哪个函数体内部
(which-function-mode)
)
(defun geosoft-backward-word ()
;; Move one word backward. Leave the pointer at start of word
;; Treat _ as part of word
(interactive)
(backward-word 1)
(backward-char 1)
(cond ((looking-at "_") (geosoft-backward-word))
(t (forward-char 1))))
(setq default-directory "~")
(setq-default indent-tabs-mode nil)
(setq nxml-child-indent 4)
(global-auto-revert-mode t);
(tool-bar-mode nil);
;;(setq c-default-style
;;'((c-mode . "Stroustrup")))
(setq-default tab-width 4)
(setq c-basic-offset 4)
(setq default-fill-column 80)
(setq column-number-mode t)
(setq make-backup-files nil)
(put 'upcase-region 'disabled nil)