我的emacs 23配置

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)