我的emacs配置文件

;;-----------------------------------------------;; cedet(load-file "~/tools/emacs/cedet/common/cedet.el");;-----------------------------------------------;; ecb(add-to-list 'load-path "~/tools/emacs/ecb")(require 'ecb);; 启动时开启(setq ecb-auto-activate t);; 关闭tip(setq ecb-tip-of-the-day nil);; 各窗口间切换(global-set-key [M-left] 'windmove-left)(global-set-key [M-right] 'windmove-right)(global-set-key [M-up] 'windmove-up)(global-set-key [M-down] 'windmove-down);; 隐藏和显示ecb窗口 (C-F1,C-F2)(define-key global-map [(control f1)] 'ecb-hide-ecb-windows)(define-key global-map [(control f2)] 'ecb-show-ecb-windows);; 使某一ecb窗口最大化 (C-c1,C-c2,C-c3,C-c4)(define-key global-map "/C-c1" 'ecb-maximize-window-directories)(define-key global-map "/C-c2" 'ecb-maximize-window-sources)(define-key global-map "/C-c3" 'ecb-maximize-window-methods)(define-key global-map "/C-c4" 'ecb-maximize-window-history);; 恢复ecb窗口原始布局 (C-c`)(define-key global-map "/C-c`" 'ecb-restore-default-window-sizes);; 自动补全检索范围;;(setq semanticdb-project-roots;;(list;;(expand-file-name "~/project")));; 自动补全按键绑定;;(global-set-key [(control tab)] 'senator-complete-symbol);;;(global-set-key [(control tab)] ' senator-completion-menu-popup);; (global-set-key [(control tab)] 'semantic-ia-complete-symbol-menu);;------------------------------------------------;; cscope(load-file "~/tools/emacs/xcscope.el");; 不要自动更新数据库文件;;(setq cscope-do-not-update-database t);;-----------------------------------------------;; 颜色主题(load-file "~/tools/emacs/color-theme.el");; 我的主题(color-theme-gnome2);;-----------------------------------------------;; 自动编译（快捷键F9）(defun quick-compile () "A quick compile funciton for C" (interactive) (compile (concat "gcc " (buffer-name (current-buffer)) " -g ")))(global-set-key [(f9)] 'quick-compile);;-----------------------------------------------;; gdb(setq gdb-many-windows t) ;;gdb many windows mode(setq gdb-use-separate-io-buffer nil);;-----------------------------------------------;; emacs;; 关闭启动信息(setq inhibit-startup-message t);; 行号;;(load-file "~/tools/emacs/linum.el");;(global-linum-mode t);; 列号(column-number-mode t);; 去掉工具栏(tool-bar-mode nil);; 去掉菜单栏 (C-Mouse2：显示菜单项)(menu-bar-mode nil);; 滚动条在右边;;(set-scroll-bar-mode 'right);; 去掉滚动条(scroll-bar-mode nil);; 标题栏显示文件路径(setq frame-title-format '("%S" (buffer-file-name "%f" (dired-directory dired-directory "%b"))));; 删除区域(delete-selection-mode 1);; 打开剪贴板(setq x-select-enable-clipboard t);; 设置标记 (F12) (global-set-key [f12] 'set-mark-command);; 关闭鼠标加速(setq mouse-wheel-progressive-speed nil);; 平滑滚动屏幕(setq scroll-margin 3 scroll-conservatively 10000);; 显示括号匹配时光标不跳转(show-paren-mode t)(setq show-paren-style 'parentheses);; 当鼠标挡住光标时自动移开;;(mouse-avoidance-mode 'animate);; 语法加亮(global-font-lock-mode t);; 全屏显示(defun fullscreen (&optional f) (interactive) (set-frame-parameter f 'fullscreen (if (frame-parameter f 'fullscreen) nil 'fullboth)))(global-set-key [f11] 'fullscreen)(add-hook 'after-make-frame-functions 'fullscreen);; 启动emacs时窗口最大化(defun my-maximized () (interactive) (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)) (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))(my-maximized);;-----------------------------------------------;; 编程;; C代码采用内核风格排版(defun c-lineup-arglist-tabs-only (ignored) "Line up argument lists by tabs, not spaces" (let* ((anchor (c-langelem-pos c-syntactic-element)) (column (c-langelem-2nd-pos c-syntactic-element)) (offset (- (1+ column) anchor)) (steps (floor offset c-basic-offset))) (* (max steps 1) c-basic-offset)))(add-hook 'c-mode-common-hook (lambda () ;; Add kernel style (c-add-style "linux-tabs-only" '("linux" (c-offsets-alist(arglist-cont-nonempty c-lineup-gcc-asm-reg c-lineup-arglist-tabs-only))))))(add-hook 'c-mode-hook (lambda ();; (let ((filename (buffer-file-name))) ;; Enable kernel mode for the appropriate files;; (when (and filename;; (string-match (expand-file-name "/");; filename))(setq indent-tabs-mode t)(c-set-style "linux-tabs-only")));;));; 自动补全代码(global-set-key [(meta ?/)] 'hippie-expand)(setq hippie-expand-try-functions-list '(try-expand-dabbrevtry-expand-dabbrev-visibletry-expand-dabbrev-all-bufferstry-expand-dabbrev-from-killtry-complete-file-name-partiallytry-complete-file-nametry-expand-all-abbrevstry-expand-listtry-expand-linetry-complete-lisp-symbol-partiallytry-complete-lisp-symbol));; python mode;;-----------------------------------------------;; 自动添加;; ecb(custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(ecb-fix-window-size t) '(ecb-layout-window-sizes nil) '(ecb-options-version "2.40") '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2)) '(ecb-windows-width 0.3))(custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. )(put 'upcase-region 'disabled nil)(put 'downcase-region 'disabled nil)