linux emacs配置文件1

Emacs配置文件1：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252

;;请在~/下创建.saves和.semanticdb文件夹 ;;将此文件拷贝至~/下并更名为.emacs即可   ;--------------设置有用的个人信息---------------   (setq user-full-name "aron" ) (setq user-mail-address "shuxiao9058@qq.com" )   ;-------------------设置基本信息----------------   ;;设置背景颜色 ( set -background-color "black" ) ;;设置字体颜色 ( set -foreground-color "white" )   ;;设置tab宽度为4 (setq-default indent-tabs-mode  nil) (setq tab-width 4 c-basic-offset 4) ;;(setq tab-width 4 indent-tabs-mode nil)   ;;设置光标不闪 (blink-cursor-mode 1) ;;设置光标为线条状 (setq-default cursor- type 'bar)   ;;设置是否显示光标所在列号 (column-number-mode t) ;;设置是否显示光标所在行号(默认显示) (line-number-mode t)   ;显示匹配括号 (show-paren-mode t) (setq show-paren-style 'parentheses)   ;;以 y /n 代表 yes /no (fset 'yes-or-no-p ' y-or-n-p)   ;;滚动条在右侧 ( set -scroll-bar-mode 'right)   ;滚动页面时比较舒服，不要整页的滚动 (setq     scroll-step 1 scroll-margin 3 scroll-conservatively 10000)   ;;滚动页面时比较舒服，不要整页的滚动 (setq     scroll-step 1 scroll-margin 3 scroll-conservatively 10000)   ;;显示时间 (display- time -mode t) ;;启动Emacs Server (server-start)   ;;高亮当前行 (require 'hl-line) (global-hl-line-mode t)   ;;在buffer左侧显示行号 (dolist (hook (list 'c-mode-hook 'c++-mode-hook 'emacs-lisp-mode-hook 'lisp-interaction-mode-hook 'lisp-mode-hook 'emms-playlist-mode-hook 'java-mode-hook 'asm-mode-hook 'haskell-mode-hook 'rcirc-mode-hook 'emms-lyrics-mode-hook 'erc-mode-hook 'sh-mode-hook 'makefile-gmake-mode-hook )) (add-hook hook (lambda () (linum-mode 1))))   ;;高亮当前行 (require 'hl-line) (global-hl-line-mode t)   ;;在标题栏显示buffer的名字(默认不显示) (setq frame-title- format "%b@emacs" )   ;;支持emacs和外部程序的粘贴 (setq x- select - enable -clipboard t)   ;;设置备份策略 (setq make -backup-files t)    ;;启用备份功能 (setq vc- make -backup-files t)    ;;使用版本控制系统的时候也启用备份功能 (setq version-control t)    ;;启用版本控制，即可以备份多次 (setq kept-old-versions 2)    ;;备份最原始的版本两次，即第一次编辑前的文档，和第二次编                  ;;辑前的文档 (setq kept-new-versions 6)    ;;备份最新的版本6次，理解同上 (setq delete-old-versions t)    ;;删掉不属于以上3种版本的版本 (setq backup-directory-alist '(( "." . "~/.saves" )));;设置备份文件的路径到~/.saves中 (setq backup-by-copying t)    ;;备份设置方法，直接拷贝   (setq backup- enable -predicate 'ecm-backup- enable -predicate);;设置备份条件 ;;关闭匹配下列目录或文件的备份功能 (defun ecm-backup- enable -predicate (filename) (and (not (string= "/tmp/" (substring filename 0 5))) (not (string-match "semanticdb" filename)) ))   ;;关闭自动保存模式 ;(setq auto-save-mode nil) ;;不生成 #filename# 临时文件 (setq auto-save-default nil)   ;;自动的在文件末增加一新行 (setq require-final-newline t) ;;当光标在行尾上下移动的时候，始终保持在行尾。 (setq track-eol t)   ;－－－－－－－－－－－－－－快捷键设置－－－－－－－－－－－－－－－－   ;编译和调试 (global- set -key [f7] 'compile)        ;;编译 (global- set -key [C-f7] ' gdb )        ;;调试 (setq-default compile- command "make" )    ;; (global- set -key [C-f8] 'previous-error)    ;;上一个错误 (global- set -key [f8] 'next-error)    ;;下一个错误   ;;F9:格式化代码，以使代码缩进清晰，容易阅读 (global- set -key [f9] 'c-indent-line-or-region) ;;F10:注释 / 取消注释 (global- set -key [f10] 'comment-or-uncomment-region)   ;Ctrl+F11:复制区域到寄存器 (global- set -key [C-f11] 'copy-to-register) ;;F11:粘贴寄存器内容 (global- set -key [(f11)] 'insert-register)   ;;C-x c 复制整行, 而 "C-u 5 C-x c" 复制 5 行   没用呀！！！ (global- set -key (kbd "C-x c" ) 'copy-lines)        ;;复制一行或者多行 (global- set -key (kbd "C-x d" ) 'zl-delete-line)        ;;删除一行 ;(global- set -key (kbd "C-x a" ) ' kill -match-paren)    ;;删除匹配括号间内容   ;;撤消 (global- set -key (kbd "C-z" ) 'undo) ;;全选 (global- set -key (kbd "C-a" ) 'mark-whole-buffer) ;;保存 (global- set -key (kbd "C-s" ) 'save-buffer)   ;;跳转到某行 (global- set -key [(meta g)] 'goto-line) ;;Tab补全或缩进 (global- set -key [(tab)] 'my-indent-or-complete)   ;－－－－－－－－－－－－－－编程相关－－－－－－－－－－－－－－－－   ;;打开代码折叠功能 (add-hook 'c-mode-hook ' hs-minor-mode) (add-hook 'c++-mode-hook ' hs-minor-mode)   ;;定义C /C ++风格 ;(add-hook 'c-mode-hook ' my-c-cpp-mode) (add-hook 'c++-mode-hook ' my-c-cpp-mode) ;(defun my-c-cpp-mode();该行使用会出错   ;;出错 ;;将回车代替C-j的功能，换行的同时对齐 ;(define-key c-mode-map [ return ] 'newline-and-indent) ;(interactive) ;(define-key c++-mode-map [ return ] 'newline-and-indent) ;(interactive) ;(define-key c-mode-base-map [( return )] 'newline-and-indent)   ;;出错 ;;设置程序的对齐风格 ;(c- set -style "K&R" )   ;;在模式栏中显示当前光标所在函数 ( which - function -mode) ;;自动缩进的宽度设置为4 (setq c-basic-offset 4)   ;;预处理设置 (setq c-macro-shrink-window-flag t) (setq c-macro-preprocessor "cpp" ) (setq c-macro-cppflags " " ) (setq c-macro-prompt-flag t) (setq hs-minor-mode t) (setq abbrev-mode t)   (add-hook 'c-mode-common-hook ' my-c-mode-common-hook)   ;;我的C++语言编辑策略 (defun my-c++-mode-hook() (c- set -style "stroustrup" ) ;;(define-key c++-mode-map [f3] 'replace-regexp)  ) ;－－－－－－－－－－－－－－自动补全－－－－－－－－－－－－－－－－   ;;;自定义hippie- expand 补全或缩进函数 (defun my-indent-or-complete () (interactive) ( if (looking-at "\\>" ) (hippie- expand nil) (indent- for -tab- command ) ) )   ;; hippie- expand 自动补全策略 (setq hippie- expand -try-functions-list '( senator-try- expand -semantic        ;优先调用senator的分析结果 try- expand -dabbrev-visible         ;dabbrev策略, 可见窗口优先 try- expand -dabbrev                 ;dabbrev策略 try- expand -dabbrev-all-buffers     ;dabbrev策略, 包括所有窗口(除了当前窗口) try- expand -dabbrev-from- kill       ;dabbrev策略, 从所有删除记录里搜索 try-complete- file -name             ;补全文件名 try-complete- file -name-partially   ;补全文件名, 匹配优先 try- expand -list                    ;补全list try- expand -list-all-buffers        ;补全list, 包括所有窗口(除了当前窗口) try- expand -line                    ;整行补全 try- expand -line-all-buffers        ;整行补全, 包括所有窗口(除了当前窗口) try-complete-lisp-symbol           ;补全符号, 符号太多了, 设置低优先级利于高效补全 try-complete-lisp-symbol-partially ;补全符号, 包括所有窗口(除了当前窗口) try- expand -whole- kill              ; kill -ring里面补全 ))     ;;配置semantic,代码分析,智能补全 (setq semanticdb-default-save-directory ( expand - file -name "~/.semanticdb" )) ;设置semantic.cache路径 (setq semanticdb-project-roots (list ( expand - file -name "/" ))) ;配置Semantic的检索范围 (autoload 'senator-try- expand -semantic "senator" ) ;优先调用了senator的分析结果 (add-hook 'semantic-init-hooks ' semantic-idle-completions-mode) ;空闲时进行补全分析 (setq-default semantic-idle-scheduler-idle- time 432000) ;避免semantic占用CPU过多   ;;C /C ++语言启动时自动加载semantic对 /usr/include 的索引数据库 (setq semanticdb-search-system-databases t) (add-hook 'c-mode-common-hook (lambda () (setq semanticdb-project-system-databases (list (semanticdb-create-database semanticdb-new-database-class "/usr/include" ))))) (add-hook 'c++-mode-common-hook (lambda () (setq semanticdb-project-system-databases (list (semanticdb-create-database semanticdb-new-database-class "/usr/include" )))))