Emacs 設(shè)定ファイル (自動プロンプト、yasnippet、PHP-mod、cscope などを含む)
元のアドレス: http://outofmemory.cn/code-snippet/3442/Emacs-configuration-file-contain-zidong-tishi- yasnippet-PHP-mod-cscope-kind




;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ファイル名: . emacs el lisp ファイル
;;
;; 作成日: 2011 年 8 月 12 日 15:56:07
;;
;; 電子メール: [email protected]
;; 説明: このファイルの名前を「.emacs」に変更し、ユーザーの HOME ディレクトリに置きます。
;; Shuimu Tsinghua Wanggen のさまざまな設(shè)定と Emacs 中國語 Web サイトの情報を參照しました
;; EMACS 中國語 Web サイトに感謝します: http://emacser.com/
;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;

;;********************** 基本設(shè)定 ****** ************

;;Load_path
(add-to-list 'load-path' "~/.emacs.d/plugins ")

;;todo_path
(setq todo-file-do "~/emacs/todo/do")
(setq todo-file-done "~/emacs/todo/done" )
(setq todo-file-top "~/emacs/todo/top")

;;個人情報
(setq user-full-name "Yu Chao")
( setq user-mail-address "[email protected]")

;;====================== 時刻設(shè)定 ===== ====== ==========
;;時間表示設(shè)定
;;ミニバッファの上のバーで時間表示設(shè)定を有効にします (名前は忘れました)
(display-time-mode 1 )
;;時間は 24 時間形式を使用します
(setq display-time-24hr-format t)
;;時間の表示には日付と特定の時間が含まれます
( setq display-time -day-and-date t)
;;タイムバーの橫のメール設(shè)定を有効にする
(setq display-time-use-mail-icon t)
;;時間の変更頻度、単位 どれくらい?
(setq display-time-interval 10)
;;表示時間、形式は次のとおりです
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
;;---------------------- 終了時刻設(shè)定 ---- --- ---------------

;;====================== カラー設(shè)定==== =================
;; ポインターの色を白に設(shè)定します
;;(set-cursor-color "white")
;; マウスの色を設(shè)定します 白の場合
;;(set-mouse-color "white")
;; 背景色とフォントの色を設(shè)定します
(set-foreground-color "white")
(set-background-color "darkblue")
;; 他の色を設(shè)定します: 構(gòu)文強調(diào)表示の背景とテーマ、領(lǐng)域選択の背景とテーマ、二次選択の背景と選択
(set-face-foreground 'ハイライト "白 ")
(set-face-background 'ハイライト "青")
(set-face-foreground '領(lǐng)域 "シアン")
(set-face-background '領(lǐng)域 "青")
(set-face-foreground 'Secondary-selection "skyblue")
(set-face-background 'Secondary-selection "darkblue")
;;カレンダーの色をいくつか設(shè)定します
(setq Calendar-load-Hook
'(lambda ()
(set-face-foreground 'diary-face "skyblue")
(set-face-background 'holiday-face "slate blue")
(set- face-foreground 'holiday-face "white")))

;;---------------------- カラー設(shè)定終了---- ------------------

;;フォント
(set-default-font "13")

;;一時ファイルを生成しません
(setq-default make-backup-files nil)

;;中國語環(huán)境を設(shè)定します
;;(set- language-environment ' Chinese-GB)

; ファイルを書き込むためのエンコード方式
;;(set-buffer-file-coding-system 'gb2312)
(set-buffer-file-coding-system 'utf-8)

;; 新しいファイルのコーディング方法
;;(setqdefault-buffer-file-coding-system 'gb2312)
(setqdefault-buffer-file-coding-system 'utf-8)

; ;端末エンコード方式
(set-terminal-coding-system 'utf-8)

;;キーボード入力エンコード方式
;;(set-keyboard-coding- system 'gb2312 )

;;ファイル名を読み書きするためのエンコード方式
(setq file-name-coding-system 'utf-8)

;;開くときにテキストモードを有効にする
(setqdefault-major-mode 'text-mode)

;;スタートアップメッセージを無効にする
;;(setqhibit-startup-message t)

;;構(gòu)文のハイライト
(global-font-lock-mode t)
(put 'set-goal-column 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'upcase -region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'LaTeX-hide-environment 'disabled nil)

;; 畫像表示機能をオンにする
; ;(auto-image-file-mode t)

;;yes/no を y/n に置き換えます
(fset 'yes-or-no-p 'y-or-n-p)

;;列番號を表示
(column-number-mode t)
;;列番號を表示
(setq Mouse-yank-at-point t)

;;括弧の一致を表示
(show-paren-mode t)

;;ツールバーを非表示
;;(tool-bar-mode nil)

;;スクロールを非表示バー。実際、このマシンの emacs-2.23 にはこのモードがありません。
;;(scroll-bar-mode nil)
;;ツールバーを削除します
;;(tool-bar-mode nil)
;;メニュー バーを削除します。F10 キーをバインドしてメニュー バーを表示します。何かを忘れてメニュー バーが必要になった場合は、F10 を押してメニューを削除します。
(menu-bar-mode nil)

;;マウス ポインタの近くにマウスを置いてください。ポインタは自動的に邪魔にならない場所に移動します
;;(mouse-avoidance-mode 'animate)

;;マウス カーソルが外に出ているときは挿入しないでください
;;(setq Mouse-yank-at-point t)

;;選択した領(lǐng)域をハイライト表示
(transient-mark-mode t)

;;コピーと貼り付けをサポートemacs と外部プログラム
(setq x-select-enable-clipboard t)

;; タイトル バーの現(xiàn)在位置をプロンプト表示します
(setq Frame-title-format "Admire@%b" )

;; ミニバッファは再帰的に使用できます
(setqenable-recursive-minibuffers t)

;; 80 列が表示されるときに折り返す
(setqdefault-fill-column 80)

;;端末の呼び出し音を無効にする
( setq visiable-bell t)

;;タブをスペース 4 個の幅に設(shè)定します
;;(setq default-tab- width 4)

;;デフォルトで無効になっている機能を有効にする
(setq version-control t)
(setq keep-new-versions 3)
(setq delete-old-versions t)
(setq keep-old-versions 2)
( setq dired-kept-versions 1)

;;バックアップ中にバージョン管理を設(shè)定します。これにより、より安全になります。
(mapcar
(function (lambda (setting)
) ) (setq auto-mode-alist
(cons settings auto-mode-alist)))
'("\.xml $".sgml-mode)
("\.bash" . sh-mode)
("\.rdf$".sgml-mode)
("\.session" .emacs-lisp-モード)
("\.l$" . c-mode)
("\.css$" . css-mode)
("\.cfm$" . html-mode)
("gnus" . emacs-lisp-mode)
("\.idl$" . idl-mode)))

;; dired でディレクトリのコピーと削除を再帰的に実行させます
(setq dired- recursive-copies 'top)
(setq dired-recursive-deletes 'top)

;; タイムスタンプ設(shè)定 (time-stamp)、ドキュメントの最後に保存された情報を設(shè)定します
;ドキュメントにタイムスタンプ: 設(shè)定があるため、タイムスタンプは自動的に保存されます
;;タイムスタンプを有効にする
(setq time-stamp-active t)
;;タイムスタンプ警告を削除します?
(setq time-stamp-warn-inactive t)
;;タイムスタンプの形式を設(shè)定します。私の形式の例は次のとおりです。
(setq time-stamp-format "%:u. m/ d/ y H02M02S")
;;ファイルを保存するアクションに変更タイムスタンプを追加します。
(add-hook 'write-file-hooks 'time-stamp)

;; ドキュメントの最後に空白行を自動的に挿入します。一部のシステム設(shè)定ファイルではこれが必要のようです
(setq require -final-newline t)
(setq track-eol t)

;;C-k を使用してポインタから新しい行の末尾までをすべて削除します
(setq-default kill -全行 t)

;;削除された保存レコードを 200 に設(shè)定します。これにより、將來無制限に復(fù)元できるようになります
(setq kill-ring-max 200)

;;検索関數(shù)と変數(shù)を使用して検索範(fàn)囲を広げる
(setq apropos-do-all t)

;; aspell プログラムを Emacs のスペルチェッカーとして使用することです
(setq-default ispell-プログラム名 "aspell")

;;narrow 機能を使用する場合の設(shè)定
(put 'narrow-to-region 'disabled nil)

;;Emacs を起動して自動設(shè)定2 つのウィンドウ (上下 1 つ)
;;(split-window-vertically)

;;この機能は、現(xiàn)在の行をこのページの最初の行として設(shè)定することであり、これは多少似ています。ターミナルの下のclearコマンドに
(defun line-to-top-of-window ()
「ラインポイントをウィンドウの上部に移動します。」
(対話型)
(recenter 0))

;;コードの折りたたみ
(load -library "hideshow")
(add-hook 'java-mode-hook 'hs-minor-mode)
(add-フック 'perl-mode-hook 'hs-minor-mode)
;(add-hook 'php-mode-hook 'hs-minor-mode)
(add-hook 'emacs-lisp-mode-フック 'hs-minor-mode)

;;一時的な表記
;;場合によっては、別のファイルにジャンプし、いくつかの操作を?qū)g行してから、すぐに戻る必要があります。もちろんブックマークや登録も可能です。
;;しかし、これらは遅すぎます。 vi のような ma、mb、'a、'b 操作があればいいのにと思います。數(shù)行の elisp
(global-set-key [(control ?.)] 'ska-point-to-register)
(global-set-key [(control ?, )] 'ska-jump-to-register)
(defun ska-point-to-register()
"カーソル位置 _fast_ をレジスタに保存します。
ska-jump-to-register を使用して、保存された
位置に戻ります。"
(対話型)
(setq zmacs-region-stays t)
(point-to-register)

(defun ska-jump-to-register()
"現(xiàn)在のカーソル位置と位置を切り替えます
それは ska-point-to-register で保存されました。"
(対話型)
(setq zmacs-region-stays t)
(let ((tmp (point-marker)))
( Jump-to-register
(set-register 8 tmp)))

;; go-to-char この関數(shù)を提供してくれた Oliver Scholz に感謝します
; ; これは、vi の "f" コマンドの代替です。vi には特に優(yōu)れたコマンド "f" があることを知っています。x が任意の文字の場合、カーソルが次の "x" に移動します。その後、「;」（セミコロン）を押すと、カーソルが次の「x」に移動します。たとえば、カーソルは行の先頭にあります。 setq unread-command-events (list last-input-event)))
;; 最後のイベントにすぐに到達(dá)したいので、vi で「fe」を押した結(jié)果、カーソルは e に到達(dá)しました。このとき、「;」、
を押すと、最初はそう思わなかったかもしれませんが、後でこれが便利であることがわかりました。

;; Emacs にはそんな便利なコマンドはないといつも思っていましたが、Oliver は完璧な答えをくれました:
;; このコードでは、C-c を押すと x が表示されます。任意の文字）、カーソルは次の x に移動します。もう一度 x を押すと、カーソルは次の x に移動します。たとえば、C-c a b b b b b ...
;;Iこのメソッドは vi の "f" より速いと思います。
(defun wy-go-to-char (n char)
"CHAR の N 番目の出現(xiàn)に進(jìn)みます。
`wy-go-to-char と入力します-key' を再度指定すると、CHAR の次の N 番目
出現(xiàn)箇所に進(jìn)みます。"
(対話型 "pncGo to char: ")
(search-forward ( string char) nil nil n)
( while (char-equal (read-char)
char)
(search-forward (string char) nil nil n))
(setq unread-command -events (list last-input-event)) )
(define-key global-map (kbd "C-c a") 'wy-go-to-char)

;;==== =========== ======= 中國語設(shè)定 =====================
;;(setq gnus-default-charset 'cn-gb-2312
;;gnus グループ名-charset-group-alist '((".*" . gb2312))
;;gnus-summary-show-article-charset -alist '((1 . cn-gb- 2312) (2 . big5) (3 . chinese-gbk) (4 . utf-8))
;;gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1)
;;gnus-group-posting-charset-alist '((".*" gb2312 (gb2312))))
;;(define-coding-system-alias 'gb18030 'gb2312)

;;---------------(utf-8) モードを設(shè)定---------------
(set- language-environment '中國語-GB)
(set-keyboard-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set -buffer-file-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-selection-coding-system 'utf-8)
(変更-coding-system-alist 'プロセス "*" 'utf-8)
(setq デフォルトプロセスコーディングシステム '(utf-8 . utf-8))
(setq-デフォルトパス名コーディング- system 'utf-8)
(set-file-name-coding-system 'utf-8)
(setq ansi-color-for-comint-mode t ) ;;'|àshell-mode??, o??÷[M`J3

;;中國語の句読點を認(rèn)識するように文末を設(shè)定します。ピリオドの後にスペースを 2 つ挿入する必要はありません。
(setq 文末 "\([.!?]\|...\|[.?!][]"')}]*\($\|[ t]\)\)[ tn ] *")
(setq speech-end-double-space nil)

;;---------------------- 中國語終了設(shè)定 ----------

;;ウィンドウ設(shè)定
(gnus-add-configuration '(article (vertical 1.0 (summary . 35 點) (article1.0))))

;;グループバッファー設(shè)定
;;トピックモードに自動的に入る
(add-hook 'gnus-group-mode-hook 'gnus- topic -mode)

;;サマリーバッファ設(shè)定
(setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f | %&user-date; n")

;;記事バッファ設(shè)定
;;表示されるヘッダー メッセージの形式を設(shè)定します
(setq gnus-visible-headers
"^\( ^ 宛先:\|^CC:\|^差出人:\|^件名:\|^日付:\|^フォローアップ先:
\|^X ニュースリーダー:\|^ユーザー エージェント:\|^ X -Mailer:
\|Line:\|Lines:\|Content-Type:\|NNTP-Posting-Host\)")

;; session.el
;;(必須' session)
;; (add-hook 'after-init-hook 'session-initialize)

;; 自動改行、1 行あたり 80 文字
(add-hook 'message-mode - フック (lambda ()
(setq fill-column 80)
(turn-on-auto-fill)))

;;====================== フォントデコード優(yōu)先度 =====================;
;;王嬰からコピーしたものなので変更する必要はありません。
;;(setq font-encoding-alist
;;(append '(("MuleTibetan-0" (tibetan . 0))
;;("GB2312" (chinese-gb2312 . 0))
;;("JISX0208" (japanese-jisx0208 . 0))
;;("JISX0212" (japanese-jisx0212 . 0))
;;("VISCII" (vietnamese-viscii- lower . 0))
;;("KSC5601" (韓國語-ksc5601 . 0))
;;("MuleArabic-0" (アラビア數(shù)字 . 0))
;;("MuleArabic-1" (arabic-1-column . 0))
;;("MuleArabic-2" (arabic-2-column . 0))) font-encoding-alist))
;;------ ---------------- フォントデコードの優(yōu)先順位 ------------------------

; ;マウスのスクロール ホイール、デフォルトのスクロールが速すぎるため、ここでは 3 行に変更されます
(defun up-slightly () (interactive) (scroll-up 3))
(defun down-slightly () (interactive) ) (下にスクロール 3))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)

;; デート リマインダー
(setq appt-issue-message t)

;;********************** グローバル キー設(shè)定 *** ******************
;;[f1] を goto-line
に設(shè)定します;;(global-set-key [f1] ' info)
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'eshell)
;;(global-set-key [f3] 'shell )

(global-set-key [f4] 'kill-this-buffer)
;;[f11] 現(xiàn)在のウィンドウを最大化するように定義
;;習(xí)慣設(shè)定、メニューを開く/閉じる
(global-set-key [f12] 'menu-bar-mode)

;;カーソル設(shè)定の移動
(global-set-key [home] 'beginning-of-buffer)
(global-set -key [end] 'end-of-buffer)

;;バッファ設(shè)定の切り替え
(global-set-key [(control o)] 'other-window)
(global- set-key [(control tab)] 'tabbar-forward)

;;********************** 一般的なプログラミング構(gòu)成*** ******************
;; Alt / を押すと、
を自動的に完了できるメニューが表示されます。;;(定義キー c -mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)

;;ホットキー設(shè)定
(global-set-key [f5] 'compile)
(setq-default コンパイルコマンド "make")
(global-set-key [f6] 'speedbar)
(global-set-key [f7] 'gdb)
(global-set -key [f8] '前のエラー)
(グローバルセットキー [f9] '次のエラー)
;;スタートウィンドウ gdb
(グローバルセットキー [f10] 'gdb- many- windows)

;;(global-set-key [f9] 'delete-window);F9 で現(xiàn)在のウィンドウを閉じます
;;(global-set-key [f8] 'other-window ); F8 でウィンドウ間をジャンプ
;;(global-set-key [(f2)] 'ansi-term); F2 でシェル モードに切り替え
;;(global-set-key [f3] 'split- window -vertical);F3 分割ウィンドウ
;;(global-set-key [f12] 'my-fullscreen);F12 フルスクリーン
;;(global-set-key [(f4)] 'コンパイル) ;コンパイル
;;(global-set-key [f5] 'gdb);Start gdb
;;(global-set-key [(f6)] 'gdb-many-windows);Start window gdb
;;(global-set-key [f1] 'goto-line);M-g を goto-line に設(shè)定します
;;(global-set-key [f7] 'other-frame);他のペインにジャンプします
;;(global-set-key [(f3)] 'speedbar);スピードバーを開く

;;######### CC モード設(shè)定 http://cc- mode .sourceforge.net/ ###############
(require 'cc-mode)
(c-set-offset 'inline-open 0)
( c-set-offset 'friend '-)
(c-set-offset 'substatement-open 0)
:;(setq indent-tabs-mode nil)
(setq c-basic-offset 4 )
(setqdefault-tab-width 4)
;;(setq tab-stop-list())
;;(x を 40 から 1 にループ
;; (setq tab -stop-list (cons(* x 4) tab-stop-list)))

;;Linux カーネルのドキュメントから取得したデフォルトの Linux カーネル プログラミング スタイル
(setq auto-mode-alist ( cons '("/usr/src/linux.*/.*\.[ch]$" . linux-c-mode)
auto-mode-alist))

(defun linux-c -mode ()
"Linux カーネルで使用するためにデフォルトが調(diào)整された C モード。"
(対話型)
(c-mode)
(c-set-style "K&R")
(setq tab-width 4) ;;デフォルトのスタイルは 8 インデントです
(setq indent-tabs-mode t)
(setq c-basic-offset 4)) ;;デフォルトのスタイルは 8 インデントです Enter

;;c-mode または cc-mode では、インデントはスペース 4 つだけです
(add-hook 'c-mode-hook
'(lambda ()
(c- set -style "Stroustrup")))

;;********************************* *** *****************************
;;C/C 言語編集戦略
;;いくつかの問題
;;(defun my-c-mode-common-hook()
;;(define-key c-mode-base-map [(f7)] 'compile)
;;(setq tab- width 4 indent-tabs-mode nil)
;;ungry-delete および auto-newline
;;(c-toggle-auto-hungry-state 1)

;;C 言語の編集戦略
;;(defun my-c -mode-hook()
;;(setq c-basic-offset 4 )
?? ;; (setq tab-width 4 indent-tabs-mode nil)
;; (c-set-style "stroustrup")
;;(define-key c -mode-map [f3] 'replace-regexp)
;;)

;;_____________C______________
;;C 処理設(shè)定
;;(setq c-macro-shrink-window-flag t)
;;(setq c-macro-preprocessor "c")
;;(setq c-macro -cppflags " ")
;;(setq c-macro-prompt-flag t)
;;(setq abbrev-mode t)
;;(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;____________CPP_____________
;;CPP預(yù)處処理設(shè)置
;;(setq c-macro-shrink-window-flag t)
;;(setq c-macro-preprocessor "cpp")
;;(setq c-macro-cppflags " ")
;;(setq c-macro-prompt-flag t)
;;( setq abbrev-mode t)
;;(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;下這是自動換行
;;(c-toggle-auto-hungry-state 1)
;;(c-set-style "stroustrup")
;;(add-hook 'c-mode-common-hook 'program- mode)
;;(add-hook 'c -mode-common-hook 'program-mode)

;;================== ==== 自動補全機能 =====================
;;自動補全機能、這事從王垠的網(wǎng)站直接コピー過來的これは、ヒッピーエクスパンドの下にある
;; の完全な形式を示しています。つまり、最初に現(xiàn)在のバッファ全體を使用し、到達(dá)しない場合は、
のように、個別の任意のポート領(lǐng)域に到達(dá)します。; さらに到達(dá)できない場合は、開いているすべてのバッファに到達(dá)します。 kill-ring へ、ファイル名へ、一般的なリスト
;;ここで、リストへ、現(xiàn)在使用されている一致方式がエコー エリアに表示されます。私は何度も行文字の大まかな段階
;;同じ、唯一の文字だけを持っていますが、私はコピーを確実に下に取得します。その後
;;多按下 M-/ 就能得那一行。
(global-set-key [(meta ?/)] 'hippie-expand)
(setq hippie -expand-try-functions-list
'(try-expand-line
try-expand-line-all-buffers
try-expand-list
try-expand-list-all-buffers
try-expand-dabbrev
try-expand-dabbrev-visible
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file -name
try-complete-file-name-partially
try-complete-lisp-symbol
try-complete-lisp-symbol-partially
try-expand-whole-kill))

;;ヒッピーの自動補齊策略、優(yōu)先使用上院議員の分析結(jié)果：
(autoload 'senator-try-expand-semantic "senator")
;;------ --------------- 自動補全終了 ---------------------

;;== ==================== 常用編程插件 =====================

;;********************** 自動ヘッダー *********************

(add-to-list 'load-path "~/.emacs.d/plugins/")
;;(require 'auto-header)
;;追加auto-header.el文件,自動追加文件頭
;;('auto-headerが必要です)
;; 設(shè)定文件頭中の姓名
(setq header-full-name "Yu Chao")
;; 設(shè)置郵箱
(setq header-email-address "[email protected]")

;; 設(shè)定次回保存時間要更新的項目
(setq header-update-on-save
'( filename
modified
counter
copyright))
;; 設(shè)置文件頭の顯示格式
(setq header-field-list
'( ファイル名 ;文件名
空白 ;空行，下同
;;著作権 ;;版權(quán)
バージョン
著者 ;作成者
作成済み ;創(chuàng)建人
空白
説明 ;記述
;;空白
;;modified_by ;変更者
;; ステータス ;狀態(tài)態(tài)，是否播布
;;更新
;;空白
))
;;---------------------- END auto-ヘッダー ---------------------

;;==================== == cedet をロード =====================
;;設(shè)定の詳細(xì)については、cedet/common/cedet.info を參照してください。
;;(ロードファイル "~/.emacs.d/plugins/cedet-1.0pre7/common/cedet.el")

;; EDE (プロジェクト管理) 機能を有効にする
;;(global-ede-mode 1)

;;既存の C プロジェクトに対して EDE を有効にします
;; (ede-cpp-root-project "NAME" :file "~/myproject/Makefile")

;;セマンティック (コード解析、スマート補完) 機能を有効にする
;;次のいずれかを選択します:

;; * これにより、データベースとアイドル狀態(tài)の再解析エンジンが有効になります
;;(semantic-load-enable-minimum-features)

;; * これにより、概要モード
;; など、コーディングに役立ついくつかのツールが有効になります。?? imenu サポート、およびセマンティック ナビゲーター
;;(semantic-load-enable-code-helpers)

;; * これにより、インテリセンス モード
;; などのさらに多くのコーディング ツールが有効になります。?? デコレーション モード、および Stickyfunc モード (および通常のコード ヘルパー)
;; (semantic-load-enable-gaudy-code-helpers)

;; * これにより、Exuberent ctags がインストールされている場合に使用できるようになります。
;;?? C テンプレートまたはブーストを使用する場合は、それを有効にしないでください。
;; (semantic-load-enable-all-exuberent-ctags-support)
;;?? または、次の 2 種類のサポートのいずれかを使用します。
;;?? ctags を介してのみ新しい言語のサポートを追加します。
;; (semantic-load-enable-primary-exuberent-ctags-support)
;;?? ctag をバックアップ パーサーとして使用するためのサポートを追加します。
;; (semantic-load-enable-secondary-exuberent-ctags-support)

;; SRecode (テンプレート管理) マイナーモードを有効にします。
;; (global-srecode-minor-mode 1)
;;---------------------- END cedet ----------- ----------

;;====================== ECB の読み込み ======== =============
(リストに追加 'load-path "~/.emacs.d/plugins/ecb")
('ecb が必要)
;;(require 'ecb-autoloads)
;; emacs を起動し、M-x ecb-activate を?qū)g行するとすぐに ECB を起動できます。 ---- 終了 ecb ----------

;;=============== ======= cscope のロード =====================
(add-to-list 'load-path "~/emacs.d/ plugins/cscope-15.7a/contrib/xcscope/")
;;(require 'xcscope)
;;如果工程十分龐大，即時判斷文件更新否否も很費時，可告訴 Emacs 自動cscope.out を更新します:
;;(setq cscope-do-not-update-database t)
;;先 M-x !、その後 cscope -b、その後、ソースコード內(nèi)でジャンプを?qū)g行できます。 cscope菜單
;;ここにある篇講怎么emacs下でcscopeをインストールして使用する：
;;http://ann77.stu.cdut.edu.cn/EmacsCscope.html
;;- --------------------- 終了 cscop ----------

;;====================== カラーテーマの読み込み =====================
;;方式案
;;(load-file "~/.emacs.d/plugins/color-theme.el")
;;(required 'color-theme)
;;( add-hook 'c-mode-common-hook 'color-theme-taylor)
;;(add-hook 'c -mode-common-hook 'color-theme-taylor)
;;--- ------------------- END カラーテーマ ---------------------

;;====================== `gdb-many-window をロードする =================== ==
;;gdb-many-window
;;この機能插件は emacs の調(diào)試界面像 VC一樣，有watch，stacktrace 等窗口，真正實現(xiàn)圖形化gdb.
;;在emacs中編譯好程序，然后M-x gdb，連按兩次ret，多窗口gdb就出來了
;;http://www.inet.net.nz/~nickrob/multi-gud.el
; ;http://www.inet.net.nz/~nickrob/multi-gdb-ui.el

(リストに追加 'load-path"~/.emacs.d/plugins")
(setq gdb-many-windows t)
(load-library "multi-gud.el")
(load-library "multi-gdb-ui.el")
;;- --------------------- END gdb-many-window ----------

;;====================== linum の読み込み =====================
;;調(diào)用linum.el(行番號)來顯表示行番號：
;;(add-to-list 'load-path"~/.emacs.d/plugins")
(require 'linum)
(global-linum-mode 1)
;;---------------------- END linum ----------- ----------

;;====================== Doxymacs をロードする ======== =============
;;調(diào)用linum.el(行番號)來顯表示行番號：
;;(add-to-list 'load-path"~/. emacs.d/plugins/")
;;(require 'doxymacs)

;;(add-hook 'c-mode-common-hook 'doxymacs-mode)

; ;(defun my-doxymacs-font-lock-hook ()
;;(if (or (eq Major-mode 'c-mode) (eq Major-mode 'c -mode))
;; ( doxymacs-font-lock)))
;;(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)

;;? これにより、Doxygen キーワードが c-mode および c -mode のみに追加されます。
;;- デフォルトのキー バインディングは次のとおりです。
;;? - C-c d ?ポイントの下のシンボルのドキュメントが検索されます。
;;? - C-c d r は Doxygen タグ ファイルを再スキャンします。
;;? - C-c d f は、次の関數(shù)の Doxygen コメントを挿入します。
;;? - C-c d i は現(xiàn)在のファイルに Doxygen コメントを挿入します。
;;? - C-c d ;現(xiàn)在のメンバーの Doxygen コメントを挿入します。
;;? - C-c d m は空白の複數(shù)行の Doxygen コメントを挿入します。
;;? - C-c d s は空白の 1 行の Doxygen コメントを挿入します。
;; - C-c d @ は、現(xiàn)在の領(lǐng)域の周囲にグループ化コメントを挿入します。

;;---------------------- END Doxymacs ----- ----------------

;;====================== yasnippet をロードします == ===================
;;自動補全代網(wǎng)插件
(add-to-list 'load-path
"~/.emacs .d/plugins/yasnippet-0.6.1c")
(「yasnippet」が必要) ;; yasnippet-bundle
(yas/initialize)
(yas/load-directory "~/.emacs.d/plugins/yasnippet-0.6.1c/snippets")
;;----- ----------------- 終了ヤスニペット ---------------------

;;== ==============================PHP モード================= ==================

;; PHP 語法サポート、必要な MMM モ塊の追加才混合代金サポート
(add-to-list 'load-path"~/.emacs.d/plugins/php")
;;php-mode

(require 'php-mode)

;;基礎(chǔ)擴展名綁定

(add-to-list 'auto-mode-alist '("\.php[34] ?\'\|\.phtml\'" .php-mode))

(add-to-list 'auto-mode-alist '("\.module\'" .php-mode))

(リストに追加 'auto-mode-alist '("\.inc\'" . php-mode))

('auto-complete が必要)
( locate-library "auto-complete.el")
;;php 自動提案設(shè)置

(add-hook 'php-mode-hook

(lambda ()

(require 'php-completion)

(php-completion-mode t)

(define-key php-mode-map (kbd "C-o") 'phpcmp-complete)) )

(add-hook 'php-mode-hook

(lambda ()

(when (require 'auto-complete nil t)

(make-variable-buffer-local 'ac-sources)

(add-to-list 'ac-sources 'ac-source-php-completion)

;; match,

;; `ac-source-php-completion' の代わりに `ac-source-php-completion-patial' を使用します。

(add-to-list 'ac-sources 'ac-source-php-completion-patial)

(auto-complete-mode t))))

;;============== ======================PHP 自動提案========================
(add-to-list 'load-path "~/.emacs.d/plugins/php/")
(require 'install-elisp)
(setq install-elisp-repository-directory "~ /.emacs.d/plugins/php/")
;;設(shè)置使用install-elisp-from-emacswiki 後下ダウンロード下來の文件路徑，我掌它們放在一文件夾里面