Emacs 配置文件

;;滚动条右至 (customize-set-variable 'scroll-bar-mode 'right) ;;设置自动换行模式 (setq-default truncate-lines 1) (desktop-save-mode 1) ;; ;;设置标题栏显示文件的完整路径名 (setq frame-title-format '("%S" (buffer-file-name "%f" (dired-directory dired-directory "%b")))) ;; (load "auctex.el" nil t t) (setq TeX-auto-save t) (setq TeX-parse-self t) (setq-default TeX-master nil) (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. '(inhibit-startup-screen t)) (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. ) ;;autocomplete (add-to-list 'load-path "~/.emacs.d/") (require 'auto-complete-config) (add-to-list 'ac-dictionary-directories "~/.emacs.d//ac-dict") (ac-config-default) ;;COLOR_THEME (require 'color-theme) (color-theme-classic) ;;linum (require 'linum) (global-linum-mode 1) ;; ;;括号自动配对 ;;自动补全括号 (defun my-common-mode-auto-pair () (interactive) (make-local-variable 'skeleton-pair-alist) (setq skeleton-pair-alist '( (? ? _ "''") (? ? _ """") (? ? _ "()") (? ? _ "[]") (?{ /n > _ /n ?} >))) (setq skeleton-pair t) (local-set-key (kbd "(") 'skeleton-pair-insert-maybe) (local-set-key (kbd "/"") 'skeleton-pair-insert-maybe) (local-set-key (kbd "{") 'skeleton-pair-insert-maybe) (local-set-key (kbd "/'") 'skeleton-pair-insert-maybe) (local-set-key (kbd "[") 'skeleton-pair-insert-maybe)) (add-hook 'c-mode-hook 'my-common-mode-auto-pair) (add-hook 'c++-mode-hook 'my-common-mode-auto-pair) ;;强制TAB键使用空格 (setq-default indent-tabs-mode nil) ;;重新绑定C-z到撤销 (global-set-key (kbd "C-z") 'undo) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 配置cedet环境 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (load-file "~/.emacs.d/cedet-1.0pre7/common/cedet.el") (require 'semantic-ia) (require 'semantic-gcc) (require 'semantic-c) (semantic-load-enable-minimum-features) ;;设置提示间隔时间为0.5s (setq-default semantic-idle-scheduler-idle-time 0.5) (setq-default semantic-complete-inline-analyzer-idle-displayor-class 'semantic-displayor-tooltip) (global-semantic-idle-completions-mode 1) (global-semantic-mru-bookmark-mode 1) ;;将当前编辑函数显示在状态条上 ;;(which-function-mode) (defun semantic-ia-fast-jump-back () (interactive) (if (ring-empty-p (oref semantic-mru-bookmark-ring ring)) (error "Semantic Bookmark ring is currently empty")) (let* ((ring (oref semantic-mru-bookmark-ring ring)) (alist (semantic-mrub-ring-to-assoc-list ring)) (first (cdr (car alist)))) (if (semantic-equivalent-tag-p (oref first tag) (semantic-current-tag)) (setq first (cdr (car (cdr alist))))) (semantic-mrub-switch-tags first))) (defun my-cedet-hook () (semantic-add-system-include "/lib/modules/2.6.28ouc/build/include/" 'c-mode) ;;(local-set-key [f12] 'ecb-activate) ;;(local-set-key [(control return)] 'semantic-ia-complete-symbol) ;;修改默认make -k 命令 (setq compile-command "make") (define-key c-mode-base-map [(f7)] 'compile) (local-set-key [f1] 'semantic-ia-complete-symbol-menu) (local-set-key "/C-cj" 'semantic-ia-fast-jump) (local-set-key "/C-cb" 'semantic-mrub-switch-tags) (local-set-key "/C-c?" 'semantic-ia-complete-symbol-menu) (local-set-key "/C-c>" 'semantic-complete-analyze-inline) (local-set-key "/C-cp" 'semantic-analyze-proto-impl-toggle)) (add-hook 'c-mode-common-hook 'my-cedet-hook) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GDB设置-类VC6设置 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq gdb-many-windows t) (defun gud-break-remove () "Set/clear breakpoin." (interactive) (save-excursion (if (eq (car (fringe-bitmaps-at-pos (point))) 'breakpoint) (gud-remove nil) (gud-break nil)))) (add-hook 'gdb-mode-hook '(lambda () (gud-tooltip-mode 1) (define-key c-mode-base-map [f5] 'gud-go) (define-key c-mode-base-map [f10] 'gud-step) (define-key c-mode-base-map [f11] 'gud-next) (define-key c-mode-base-map [f9] 'gud-break-remove))) ;;yasnippet模板补全 (add-to-list 'load-path "~/.emacs.d/yasnippet-0.6.1c") (require 'yasnippet) (yas/initialize) (yas/load-directory "~/.emacs.d/yasnippet-0.6.1c/snippets") ;; c-eldoc函数提示 ;; add in your commonly used packages/include directories here, for ;; example, SDL or OpenGL. this shouldn't slow down cpp, even if ;; you've got a lot of them ;; (setq c-eldoc-includes "`pkg-config gtk+-2.0 --cflags` -I./ -I../ ") (load "c-eldoc") (add-hook 'c-mode-hook (lambda () (set (make-local-variable 'eldoc-idle-delay) 0.20) (c-turn-on-eldoc-mode) )) ;; ;;配置sr-speedbar,F4键调出speedbar (require 'sr-speedbar) (global-set-key [(f4)] 'sr-speedbar-toggle)/ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 配置xcscope快捷键盘 同global默认键盘一致 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'xcscope) (define-key c-mode-base-map "/M-." 'cscope-find-global-definition) (define-key c-mode-base-map "/M-?" 'cscope-find-functions-calling-this-function) (define-key c-mode-base-map "/M-*" 'cscope-pop-mark) (define-key c-mode-base-map [f12] 'cscope-find-this-file)

Emacs 配置文件

注意：(global-set-key [(f4)] 'sr-speedbar-toggle)/

要在f7定义之后