emacs配置文件之备份(2)

(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.
 '(column-number-mode t)
 '(display-time-mode t)
 '(global-linum-mode t)
 '(show-paren-mode t nil (paren))
 '(size-indication-mode t)
 '(transient-mark-mode nil))
(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.
 '(default ((t (:inherit nil :stipple nil :background "#7a7a7a" :foreground "#0d0d0d" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 102 :width normal :foundry "apple" :family "Monaco")))))
;我的Emacs配置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;http://alexpogosyan.com/color-theme-creator/
(defun my-color-theme ()
  (interactive)
  (color-theme-install
   '(my-color-theme
      ((background-color . "#7a7a7a")
      (background-mode . light)
      (border-color . "#a1a399")
      (cursor-color . "#000000")
      (foreground-color . "#0d0d0d")
      (mouse-color . "black"))
     (fringe ((t (:background "#a1a399"))))
     (mode-line ((t (:foreground "#f8f6f6" :background "#726e6e"))))
     (region ((t (:background "#e3a0a0"))))
     (font-lock-builtin-face ((t (:foreground "#d8189b"))))
     (font-lock-comment-face ((t (:foreground "#0f950f"))))
     (font-lock-function-name-face ((t (:foreground "#d9bb0d"))))
     (font-lock-keyword-face ((t (:foreground "#0d1191"))))
     (font-lock-string-face ((t (:foreground "#dc2409"))))
     (font-lock-type-face ((t (:foreground"#510b0c"))))
     (font-lock-variable-name-face ((t (:foreground "#cb5206"))))
     (minibuffer-prompt ((t (:foreground "#0b35bc" :bold t))))
     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
     )))
(provide 'my-color-theme)
(add-to-list 'load-path "/usr/local/share/emacs/my_plus");自己的插件包
(require 'color-theme);主题颜色
;(color-theme-initialize)
(my-color-theme)
;(color-theme-dark-blue)
(require 'setnu);第行前显示行号
(setnu-mode t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;设置颜色;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(set-cursor-color "Wheat")
;(set-mouse-color "Wheat")
;(set-foreground-color "Wheat")
;(set-background-color "DarkSlateGray");DarkSlateGray
;;设置时间格式;;;;;;;;;;;;;;;;;;;;;;;;;;;
(display-time-mode t)
(setq display-time-12hr-format t)
(setq display-time-day-and-date t)
(setq visible-bell t);关闭出错提示声
(setq inhibit-startup-message t);关闭开启画面
(setq backup-inhibited t);;不产生备份
(setq auto-save-default nil);不生成名为#filename#的临时文件
(setq default-major-mode 'text-mode);;设置默认模式是text mode
(global-font-lock-mode t);语法高亮
(auto-image-file-mode t);打开图片显示功能
(setq x-select-enable-clipboard t);支持emacs和外部程序的粘贴
(setq frame-title-format '("" buffer-file-name));标题栏显示buffer名
(setq default-directory "/home/blueboy/Program");设置缺省目录
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;鼠标滚轮，默认的滚动太快，这里改为3行;;;;;;
(defun up-slightly () (interactive) (scroll-up 3))
(defun down-slightly () (interactive) (scroll-down 3))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
;;自定义按键;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key [f1] 'shell);F1进入Shell
(global-set-key [C-f5] 'previous-error)
(global-set-key [f5] 'next-error)
(global-set-key [C-f3] 'python-shell);F3进入Python-Shell
(global-set-key [C-f6] 'gdb);调试
(setq compile-command "make -f Makefile")
(global-set-key [f7] 'compile);F7编译文件
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Python配置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(require 'python-mode)
(setq auto-mode-alist
(cons '("//.py$" . python-mode) auto-mode-alist)
);自动关联文件
(setq interpreter-mode-alist
(cons '("python" . python-mode)
interpreter-mode-alist)
)
(autoload 'python-mode "python-mode" "Python editing mode." t)
;;C语言配置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun linux-c-mode()
;;;将回车代替C-j的功能，换行的同时对齐;;;;;;
(define-key c-mode-map [return] 'newline-and-indent)
(interactive)
(c-set-style "k&r");设置C程序的对齐风格
;(c-toggle-auto-state);在此种模式下当你键入{时，会自动根据你设置的对齐风格对齐
(c-toggle-hungry-state);此模式下，当按Backspace时会删除最多的空格,使得if缩进正常
(setq c-basic-offset 4);缩进设置为4
(imenu-add-menubar-index);在菜单中加入当前Buffer的函数索引
(which-function-mode);在状态条上显示当前光标在哪个函数体内部
)
;;C++语言配置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun linux-cpp-mode ()
(define-key c++-mode-map [return] 'newline-and-indent)
(interactive)
(c-set-style "Stroustrup")
(setq c-basic-offset 4)
;(c-toggle-auto-state)
(c-toggle-hungry-state)
(imenu-add-menubar-index)
(which-function-mode)
)
(add-hook 'c-mode-hook 'linux-c-mode)
(add-hook 'c++-mode-hook 'linux-cpp-mode)
(setq imenu-sort-function 'imenu--sort-by-name);设置imenu的排序方式为按名称排序
(setq auto-mode-alist
(append '(("//.h$" . c++-mode)) auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;配置星际译王
;;如果选中了region 就查询 region 的内容，否则查询当前光标所在的单词
;;按 q 可以把这个 buffer 放到 buffer 列表末尾，按 d 可以查询单词
(global-set-key (kbd "C-c d") 'kid-sdcv-to-buffer)
(defun kid-sdcv-to-buffer()
(interactive)
(let((word (if mark-active
(buffer-substring-no-properties (region-beginning) (region-end))
(current-word nil t))))
(setq word (read-string (format "Search the dictionary for (default %s): " word) nil nil word))
(set-buffer (get-buffer-create "*sdcv*"))
(buffer-disable-undo)
(erase-buffer)
(let((process (start-process-shell-command "sdcv" "*sdcv*" "sdcv" "-n" word)))
(set-process-sentinel
process
(lambda(process signal)
(when(memq (process-status process) '(exit signal))
(unless(string=(buffer-name) "*sdcv*")
(setq kid-sdcv-window-configuration (current-window-configuration))
(switch-to-buffer-other-window "*sdcv*")
(local-set-key (kbd "d") 'kid-sdcv-to-buffer)
(local-set-key (kbd "q")
(lambda()
(interactive)
(bury-buffer)
(unless(null (cdr (window-lis t)));only one window
(delete-window)))))
(goto-char (point-min))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;CEDET conf
(load-file "/home/blueboy/下载/cedet-1.0pre7/common/cedet.el")
(semantic-load-enable-code-helpers)
;ecb conf
(add-to-list 'load-path "/home/blueboy/ecb-2.32")
(require 'ecb)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;鼠标左键单击一个函数或变量名，在“*preview*" buffer中显示出函数或变量的定义
;鼠标中键点击一个函数或变量名，在“*preview*" buffer中显示出函数或变量被调用的地方
;当跳转到一个函数的定义后，单击鼠标右键可以返回到跳转前的地方
(require 'yp-preview)
(pv-enable)
(defun my-pv-c-map ()
(interactive)
(define-key c-mode-map [mouse-1] 'pv-find-def-and-delay)
(define-key c-mode-map [mouse-2] 'pv-find-ref-or-paste)
(define-key c-mode-map [mouse-3] 'pv-pop-mark)
)
(add-hook 'c-mode-hook 'my-pv-c-map)
(add-hook 'c++-mode-hook 'my-pv-c-map)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;