Emacs 24.4 配置C++智能提示

依赖

clang++

智能提示需要使用clang++编译器，否则会报错并提示失败。

company-mode

用于智能提示，依赖clang++编译器的分析，可以提示标准库函数
安装方法 M-x list-package
查找 company-mode 安装。

flycheck

用于语法提示，速度飞快，且精准。
安装方法 M-x list-package
查找 flycheck 安装。

auto-complete

用于自动补全，来弥补 company-mode 不能提示自定义函数的缺憾。
安装方法 M-x list-package
查找 auto-complete 安装。

我的配置

(when (>= emacs-major-version 24)  
      (require 'package)  
      (package-initialize)  
      (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)  
      )


;;company mode
(add-hook 'c++-mode-hook 'global-company-mode)
;;flycheck
(add-hook 'c++-mode-hook 'global-flycheck-mode)


;; 中文换行问题
(add-hook 'org-mode-hook 
      (lambda () (setq truncate-lines nil)))

(setq inhibit-startup-message t) 

(setq track-eol t)
;; 当光标在行尾上下移动的时候，始终保持在行尾。

(setq Man-notify-method 'pushy)
;; 当浏览 man page 时，直接跳转到 man buffer。


;;代码折叠
(load-library "hideshow")
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)


(setq visible-bell t)


(set-cursor-color "white")
(set-mouse-color "white")


(require 'color-theme)  
(setq color-theme-is-global t)  
(color-theme-initialize)  
(color-theme-deep-blue)

;;
(setq default-major-mode 'text-mode)
;;
(global-font-lock-mode t)

;; 以 y/n代表 yes/no
(fset 'yes-or-no-p 'y-or-n-p) 

(show-paren-mode t)
(setq show-paren-style 'parentheses)

(display-time-mode 1) 
(setq display-time-24hr-format t) 
(setq display-time-day-and-date t) 

(transient-mark-mode t) 

;; 支持emacs和外部程序的粘贴
(setq x-select-enable-clipboard t) 


;; 默认显示 80列就换行 
(setq default-fill-column 80) 

;; 设置字体
;; 方法为: emacs->options->Set Default Font->"M-x describe-font"查看当前使用的字体名称、字体大小
(set-default-font " -bitstream-Courier 10 Pitch-normal-normal-normal-*-16-*-*-*-m-0-iso10646-1")

;; 显示列号
(setq column-number-mode t)
(setq line-number-mode t)

(add-to-list 'auto-mode-alist (cons "\\.h$" #'c++-mode))

;; 回车缩进
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key (kbd "C-<return>") 'newline)



;; 实现全屏效果，快捷键为f6
(global-set-key [f6] 'my-fullscreen) 
(defun my-fullscreen ()
(interactive)
(x-send-client-message
nil 0 nil "_NET_WM_STATE" 32
'(2 "_NET_WM_STATE_FULLSCREEN" 0))
)

;; 最大化
(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))
)
;; 启动emacs时窗口最大化
(my-maximized)

;; 启动窗口大小
(setq default-frame-alist
      '((height . 35) (width . 125) (menu-bar-lines . 20) (tool-bar-lines . 0))) 
(put 'upcase-region 'disabled nil)


;; auto-complete
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories
             "~/.emacs.d/ac-dict")
(ac-config-default)