Meadow

;; C/C++ 用のカスタマイズ
(defconst my-c-style
  '(
    ;; 基本オフセット量の設定
    (c-basic-offset             . 4)

    ;; tab キーでインデントを実行
    (c-tab-always-indent        . t)

    ;; コメント行のオフセット量の設定
    (c-comment-only-line-offset . 0)

    ;; カッコ前後の自動改行処理の設定
    (c-hanging-braces-alist
     . (
        (class-open before after)       ; クラス宣言の'{'の前後
        (class-close after)             ; クラス宣言の'}'の後
        (defun-open before after)       ; 関数宣言の'{'の前後
        (defun-close after)             ; 関数宣言の'}'の後
        (inline-open after)             ; クラス内のインライン
                                        ; 関数宣言の'{'の後
        (inline-close after)            ; クラス内のインライン
                                        ; 関数宣言の'}'の後
        (brace-list-open after)         ; 列挙型、配列宣言の'{'の後
        (brace-list-close before after) ; 列挙型、配列宣言の'}'の前後
        (block-open after)              ; ステートメントの'{'の後
        (block-close after)             ; ステートメントの'}'前後
        (substatement-open after)       ; サブステートメント
                                        ; (if 文等)の'{'の後
        (statement-case-open after)     ; case 文の'{'の後
        (extern-lang-open before after) ; 他言語へのリンケージ宣言の
                                        ; '{'の前後
        (extern-lang-close before)      ; 他言語へのリンケージ宣言の
                                        ; '}'の前
        ))

    ;; コロン前後の自動改行処理の設定
    (c-hanging-colons-alist
     . (
        (case-label after)              ; case ラベルの':'の後
        (label after)                   ; ラベルの':'の後
        (access-label after)            ; アクセスラベル(public等)の':'の後
        (member-init-intro)             ; コンストラクタでのメンバー初期化
                                        ; リストの先頭の':'では改行しない
        (inher-intro before)            ; クラス宣言での継承リストの先頭の
                                        ; ':'では改行しない
        ))

    ;; 挿入された余計な空白文字のキャンセル条件の設定
    ;; 下記の*を削除する
    (c-cleanup-list
     . (
        brace-else-brace                ; else の直前
                                        ; "} * else {"  ->  "} else {"
        brace-elseif-brace              ; else if の直前
                                        ; "} * else if (.*) {"
                                        ; ->  } "else if (.*) {"
        empty-defun-braces              ; 空のクラス・関数定義の'}' の直前
                                        ;；"{ * }"  ->  "{}"
        defun-close-semi                ; クラス・関数定義後の';' の直前
                                        ; "} * ;"  ->  "};"
        list-close-comma                ; 配列初期化時の'},'の直前
                                        ; "} * ,"  ->  "},"
        scope-operator                  ; スコープ演算子'::' の間
                                        ; ": * :"  ->  "::"
        ))

    ;; オフセット量の設定
    ;; 必要部分のみ抜粋(他の設定に付いては info 参照)
    ;; オフセット量は下記で指定
    ;; +  c-basic-offsetの 1倍, ++ c-basic-offsetの 2倍
    ;; -  c-basic-offsetの-1倍, -- c-basic-offsetの-2倍
    (c-offsets-alist
     . (
        (arglist-intro          . ++)   ; 引数リストの開始行
        (arglist-close          . c-lineup-arglist) ; 引数リストの終了行
        (substatement-open      . 0)    ; サブステートメントの開始行
        (statement-cont         . ++)   ; ステートメントの継続行
        (case-label             . 0)    ; case 文のラベル行
        (label                  . 0)    ; ラベル行
        (block-open             . 0)    ; ブロックの開始行
        (member-init-intro      . ++)   ; メンバオブジェクトの初期化リスト
        ))

    ;; インデント時に構文解析情報を表示する
    (c-echo-syntactic-information-p . t)
    )
  "My C Programming Style")

;; hook 用の関数の定義
(defun my-c-mode-common-hook ()
  ;; my-c-stye を登録して有効にする
  (c-add-style "PERSONAL" my-c-style t)

  ;; 次のスタイルがデフォルトで用意されているので選択してもよい
;  (c-set-style "gnu")
;  (c-set-style "cc-mode")
;  (c-set-style "stroustrup")
;  (c-set-style "ellemtel")
  ;; 既存のスタイルを変更する場合は次のようにする
;  (c-set-offset 'member-init-intro '++)

  ;; タブ長の設定
  (setq tab-width 4)

  ;; タブの代わりにスペースを使う
;  (setq indent-tabs-mode nil)

  ;; 自動改行(auto-newline)を有効にする
  (c-toggle-auto-state t)

  ;; 連続する空白の一括削除(hungry-delete)を有効にする
  (c-toggle-hungry-state t)

  ;; セミコロンで自動改行しない
  (setq c-hanging-semi&comma-criteria nil)

  ;; キーバインドの追加
  ;; ------------------
  ;; C-m        改行＋インデント
  ;; C-c c      コンパイルコマンドの起動
  ;; C-h        空白の一括削除
  (define-key c-mode-base-map "\C-m" 'newline-and-indent)
  (define-key c-mode-base-map "\C-cc" 'compile)
  (define-key c-mode-base-map "\C-h" 'c-electric-backspace)

  ;; コンパイルコマンドの設定
;  (setq compile-command "make -k" )   ; Cygwin の make
  (setq compile-command "nmake /NOLOGO /S") ; VC++ の nmake
  )
;; モードに入るときに呼び出す hook の設定
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;; ヘッダファイルもc++モードで開く 
(setq auto-mode-alist (append
                       '(("\\.h$"    . c++-mode))
                       auto-mode-alist))

;;;
;;; outline-mode の設定
;;;
;; outline-mode の代わりに allout outline-mode を使用
;; 詳細は allout.el を参照のこと
(require 'allout)
(outline-init t)

;; 拡張子が .out のファイルをロードするときに自動的に outline-mode にする
(setq auto-mode-alist
      (append '(("\\.out$" . outline-mode))
	      auto-mode-alist))

(add-hook
 'outline-mode-hook
 (function 
  (lambda ()
    
    ;; font-lock 用の設定
    ;; 見出しのレベルによってハイライト色を変える
    ;; outline.el と allout.el を参考にした
    (make-local-variable 'font-lock-defaults)

    (defvar outline-font-lock-keywords
       (list
	;; 最上位以外のの見出しの設定
	;; ちょっと自信がないけど、とりあえずは動いている
	'(eval .
	       (list
		;; 見出しの正規表現
		(concat "^\\("
			(regexp-quote outline-header-prefix)
			"\\)\\([ \t]*["
			outline-bullets-string
			"]\\)[^ \t]*[ \t]*\\([^\n\r]*\\)")
		;; 見出しの文字列(3番目にマッチしたもの)の face を、見
		;; 出しの深さに応じて変更する
		'(3 (let ((len (- (match-end 2)
				  (match-beginning 2))))
		      (setq len (mod len 3))
		      (or (cdr
			   (assq len
				 '((0 . font-lock-function-name-face)
				   (1 . font-lock-keyword-face)
				   (2 . font-lock-comment-face))))
			  font-lock-variable-name-face))
		    nil t)))
	;; 最上位の見出しの設定
	'(eval .
	       (list
		;; 見出しの正規表現
		(concat "^\\("
			(regexp-quote outline-primary-bullet)
			"\\)[ \t]*\\([^\n\r]*\\)")
		;; 見出しの文字列(2番目にマッチしたもの)の face を設定
		;; する
		'(2 font-lock-function-name-face))))
       "Additional expressions to highlight in allout outline mode.")

    (setq font-lock-defaults '(outline-font-lock-keywords t))

    ;; font-lock-mode の明示な起動
    (turn-on-font-lock)
    

    ;; キーバインドの追加
    ;; ------------------
    ;; C-c C-r    見出し全体を右方向へシフト(C-c > と同じ)
    ;; C-c c-l    見出し全体を左方向へシフト(C-c < と同じ)
    (define-key outline-mode-map "\C-c\C-r" 'allout-shift-in)
    (define-key outline-mode-map "\C-c\C-l" 'allout-shift-out)

    ;; メニューバーへの登録
    (require 'easymenu)

    (easy-menu-define
     outline-menu outline-mode-map
     "Outline Mode Commands"
     '("Outline"
       ["Next visible heading" outline-next-visible-heading t]
       ["Previous visible heading" outline-previous-visible-heading t]
       "---"
       ["Hide current subtree" outline-hide-current-subtree t]
       ["Show current subtree" outline-show-current-subtree t]
       "---"
       ["Open sibtopic" outline-open-sibtopic t]
       ["Open subtopic" outline-open-subtopic t]
       ["supertopic" outline-open-supertopic t]
       "---"
       ["Shift in" outline-shift-in t]
       ["Shift out" outline-shift-out t]
       ["Number siblings" outline-number-siblings t]
       "---"
       ["Kill topic" outline-kill-topic t]
       ["Yank" outline-yank t]
       ))
    )))

*  

* 見出し1 
本文１ 

* 見出し１
本文1

.*  

* 見出し１
本文1

.* 見出し２
本文２

. + 見出し３
本文３

.  - 見出し４
本文４ 

* 見出し１
本文1

.* 見出し２
本文２

. + 見出し３
本文３

.  - 見出し４
本文４

. +  

* 見出し１
本文1

.* 見出し２ 
本文２

. + 見出し３
本文３

.  - 見出し４
本文４

. + 見出し５
本文５

* 見出し１
本文1

.* 見出し２...

* 見出し１
本文1

.* 見出し２
本文２

. + 見出し３ 
本文３

.  - 見出し４
本文４

. + 見出し５
本文５

* 見出し１
本文1

.* 見出し２
本文２

.* 見出し３ 
本文３

. + 見出し４
本文４

. + 見出し５
本文５

;;;
;;; font-lock-mode の設定
;;;
;; font-lock-mode を常時利用する
(global-font-lock-mode t)
;; 表示の高速化のために fast-lock-mode を利用する
(setq font-lock-support-mode 'fast-lock-mode)
;; キャッシュファイルの格納先を指定する
(let* ((file-dir "~/.emacs-flc"))
  (if (file-exists-p file-dir) ; ~/.emacs-flc の存在をチェック
      ;; 存在するならば、キャッシュファイルの格納先に指定
      (setq fast-lock-cache-directories (list file-dir))))

[修正前]
            (if (eq system-type 'emx)
[修正後]
	    (if (or (eq system-type 'emx)
		    (eq system-type 'windows-nt))

if (!aVariableOfVeryLongName) {
    aVariableOfVeryLongName = true;
}

if (!aVariableOfVeryLongName) {
    a 
}

if (!aVariableOfVeryLongName) {
    aVariableOfVeryLongName 
}

if (!vvln 

if (!aVariableOfVeryLongName 

(let ((file "~/.abbrev_defs"))
  (if (file-exists-p file)
      (quietly-read-abbrev-file file)))	; 定義ファイルの読込み

(require 'jka-compr)