;; .emacs
;; Last Updated : 2014/05/14 Wed 03:27:20
(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)
'(show-paren-mode t))
(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 "gray7" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "unknown" :family "Takaoゴシック")))))
;; 半角2つ = 全角１つになるheight = 88, 92, 102
(if window-system (progn
;; 文字の色を設定
(add-to-list 'default-frame-alist '(foreground-color . "white"))
;; 背景色を設定
(add-to-list 'default-frame-alist '(background-color . "gray10"))
;; カーソルの色を設定
(add-to-list 'default-frame-alist '(cursor-color . "SlateBlue2"))
;; ;; マウスポインタの色を設定
;; (add-to-list 'default-frame-alist '(mouse-color . "SlateBlue2"))
;; ;; モードラインの文字の色を設定
;; (set-face-foreground 'modeline "white")
;; ;; モードラインの背景色を設定
;; (set-face-background 'modeline "MediumPurple2")
;; ;; 選択中のリージョンの色を設定
(set-face-background 'region "Dark Slate Grey")
;; ;; モードライン（アクティブでないバッファ）の文字色を設定
;; (set-face-foreground 'mode-line-inactive "gray30")
;; ;; モードライン（アクティブでないバッファ）の背景色を設定
;; (set-face-background 'mode-line-inactive "gray85")
(set-face-foreground 'font-lock-comment-face "darkorange") ;; コメント
(set-face-foreground 'font-lock-string-face "hotpink") ;; ""で囲まれた文字
(set-face-foreground 'font-lock-keyword-face "cyan")
(set-face-foreground 'font-lock-function-name-face "white")
(set-face-foreground 'font-lock-variable-name-face "white")
(set-face-foreground 'font-lock-type-face "skyblue1")
(set-face-foreground 'font-lock-warning-face "yellow")
(set-face-foreground 'font-lock-builtin-face "lightsteelblue")
(set-face-background 'fringe "gray7")
))
;;auto-install.elのインストール手順
;; $mkdir -p ~/.emacs.d/auto-install
;; cd ~/.emacs.d/auto-install
;; wget http://www.emacswiki.org/emacs/download/auto-install.el
;; emacs --batch -Q -f batch-byte-compile auto-install.el
;;;Emacs Lispインストーラを利用
(add-to-list 'load-path "~/.emacs.d/auto-install")
(add-to-list 'load-path "~/.emacs.d/plugins/yasnippet-0.6.1c/")
;;;>install-elisp-from-emacswiki "auto-install.el"
(require 'auto-install)
;;起動時にEmacswikiのページを補完候補に加える
;;(auto-install-update-emacswiki-package-name t)
;;install-elisp.el互換モード
(auto-install-compatibility-setup)
;;ediff関連のバッファを一つのフレームにまとめる
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
;;================================================================================
;; 基本設定
;;================================================================================
;; スタートアップを非表示
(setq inhibit-startup-screen -1)
;; ビープ音を消す
(setq ring-bell-function 'ignore)
;; 現在行に色をつける
(global-hl-line-mode 1)
;; その行の色
(set-face-background 'hl-line "black")
;; 履歴を次回Emacs起動時にも保存する
(savehist-mode 1)
;; 対応する括弧を光らせる
(show-paren-mode 1)
;; カーソルの位置が何文字目かを表示する
(column-number-mode t)
;; バックアップファイルを作らない
(setq backup-inhibited t)
;; Xでのクリップボードを共有
(setq x-select-enable-clipboard t)
;; yes-or-noをy-or-nに省略
(defalias 'yes-or-no-p 'y-or-n-p)
;; 行の先頭でC-kを一回押すだけで行全体を消去する
(setq kill-whole-line t)
;; ツールバーを非表示
(tool-bar-mode -1)
;; メニューバーを非表示
(menu-bar-mode -1)
;; 圧縮されたファイルも編集できるようにする
(auto-compression-mode t)
;; スクロールを一行ずつにする
(setq scroll-step 1)
;; スクロールバーを削除
(setq scroll-bar-mode -1)
;;; 現在の関数名をモードラインに表示
(which-function-mode 1)
;;; emacsclient
;; ファイルを現在のemacsで開く
;(server-start)
;;------------------------ キーバインドの変更 ----------------------------------
;; 指定の行に移る
(global-set-key "\M-g" 'goto-line)
;; undo
(global-set-key "\C-z" 'undo)
;; ウィンドウの移動をM-tに
(global-set-key "\M-t" 'other-window)
;; C-hをBackSpaceに
(global-set-key "\C-h" 'delete-backward-char)
;; M-x compile を f5 に
(global-set-key [f5] 'compile)
;; C-mで改行+インデント
(global-set-key "\C-m" 'newline-and-indent)
;;;------------------- 初期フレームの設定 ------------------------------------
(setq initial-frame-alist
(append
'((width . 80) ; フレーム幅(文字数)
(height . 68)) ; フレーム高(文字数)
initial-frame-alist))
;;; 新規フレームのデフォルト設定
(setq default-frame-alist
(append
'((width . 80) ; フレーム幅(文字数)
(height . 68)) ; フレーム高(文字数)
default-frame-alist))
;;; ファイル更新日を自動的に書き換える。
;; ファイルの頭に "last updated : "をつけくわえればよい
(require 'time-stamp)
;; 日本語で日付を入れたくないのでlocaleをCにする
(defun time-stamp-with-locale-c ()
(let ((system-time-locale "C"))
(time-stamp)
nil))
(if (not (memq 'time-stamp-with-locale-c write-file-hooks))
(add-hook 'write-file-hooks 'time-stamp-with-locale-c))
(setq time-stamp-active t)
(setq time-stamp-start "Last Updated : ")
(setq time-stamp-format "%04y/%02m/%02d %3a %02H:%02M:%02S")
(setq time-stamp-end " ") ;;;Last Updated : の後に空白2つ以上いれると置換(1つにはできない)
;;; タイトルバーにファイル名を表示する
(setq frame-title-format (format "%s@%s : %%f" (user-login-name) (system-name)))
;;; ファイルの自動挿入
(auto-insert-mode)
;; 自動挿入するファイルのあるディレクトリ
;; 最後の/は必須
(setq auto-insert-directory "~/.emacs.d/insert/")
;; 自動挿入するファイル
(define-auto-insert "\\.c" "c-template.c")
(define-auto-insert "\\.tex" "tex-template.tex")
;;================================================================================
;;; viewer.el view-modeの設定
;; M-x install-elisp-from-emacswiki viewer.el
;;
;; C-x C-rでview-modeでファイルを開く
;; (setq view-read-only t)
;; ;; 書き込み不能な場合はview-modeを抜けないように
;; (require 'viewer)
;; (viewer-stay-in-setup)
;; ;; .log .out .datファイルをview-modeで開く
;; (setq view-mode-by-default-regexp "\\.log")
;; (setq view-mode-by-default-regexp "\\.out")
;; (setq view-mode-by-default-regexp "\\.dat")
;; ;;; view-mode時にモードラインに色をつける
;; ;; 色名を指定
;; (setq viewer-modeline-color-unwritable "tomato")
;; (setq viewer-modeline-color-view "orange")
;; (viewer-change-modeline-color-setup)
;; ;; view-mode時のキーバインド
;; (define-key view-mode-map "h" 'backward-char)
;; (define-key view-mode-map "j" 'next-line)
;; (define-key view-mode-map "k" 'previous-line)
;; (define-key view-mode-map "l" 'forward-char)
;; (define-key view-mode-map "J" 'View-scroll-line-forward)
;; (define-key view-mode-map "K" 'View-scroll-line-backward)
;; (define-key view-mode-map "b" 'scroll-down)
;; (define-key view-mode-map " " 'scroll-up)
;; ;; ;; bm.el
;; (define-key view-mode-map "m" 'bm-toggle)
;; (define-key view-mode-map "[" 'bm-previous)
;; (define-key view-mode-map "]" 'bm-next)
;; ;; view-modeを有効・無効にする
;; ;; 0.04秒以内に jk を同時押しでview-modeに移行
;; (require 'key-chord)
;; (setq key-chord-two-keys-delay 0.04)
;; (key-chord-mode 1)
;; (key-chord-define-global "jk" 'view-mode)
;================================================================================
;;; redo+.el
(require 'redo+)
;; M-zに設定
(global-set-key "\M-z" 'redo)
(setq undo-no-redo t); 過去のundoがredoされないようにする
;; 大量のundoに耐えられるようにする
(setq undo-limit 6000)
(setq undo-strong-limit 9000)
;;;fullscreen.el
(require 'fullscreen)
(global-set-key [f11] 'fullscreen)
;;;-------------------- recentf-ext.el --------------------------
;; install-elisp-from-emacswiki recentf-ext.el
;; 保存しておく数
(setq recentf-max-saved-items 1000)
;; 最近使ったファイルに加えないファイルを正規表現で指定する
(setq recentf-exclude '("/TAGS$" "/var/tmp/"))
(require 'recentf-ext)
;; f8をショートカットキーに
(global-set-key [f8] 'recentf-open-files)
;;; auto-complete.el
;; install-elisp-from-emacswiki auto-complete.el
;;(require 'auto-complete)
;;(global-auto-complete-mode 1)
;;;col-highlight.el
;; auto-install-batch col-highlight.el
;(require 'col-highlight)
;(column-highlight-mode 1)
;;何もしないでいるとハイライトを始めるようにする場合
;(toggle-highlight-column-when-idle 1)
;(col-highlight-set-interval 3)
;;;============================= hippie-expand ====================================
;;; 略語展開の順を設定
(setq hippie-expand-try-functions-list
'(try-expand-dabbrev
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file-name-partially
try-complete-file-name
try-expand-all-abbrevs
try-expand-list try-expand-line
try-complete-lisp-symbol-partially
try-complete-lisp-symbol))
;; キーバインドの変更 C-;
(global-set-key [?\C-\;] 'hippie-expand )
;;; ipa.el
(require 'ipa)
;;; 背景色
(set-face-background 'highlight "Corn Flower Blue")
;;;---------------------- sequential-command.el---------------------------------
;;; M-x auto-install-batch sequential-command
(require 'sequential-command-config)
(sequential-command-setup-keys)
;;================================================================================
;;; smartchr.el
;; M-x install-elisp
;; https://github.com/imakado/emacs-smartchr/raw/master/smartchr.el
(require 'smartchr)
;; once "", twice "
(global-set-key (kbd "\"") (smartchr '("\"`!!'\"" "\"")))
(add-hook 'c-mode-hook
'(lambda ()
(local-set-key ( kbd "(") (smartchr '("( `!!' )" "()" "(")))
(local-set-key ( kbd "\'") (smartchr '("\'`!!'\'" "\'")))
(local-set-key ( kbd "\,") (smartchr '("\, " "\,")))
(local-set-key (kbd "[") (smartchr '("[ `!!' ]" "[]" "[")))
(local-set-key (kbd "=") (smartchr '("= " "== " "=")))
))
(add-hook 'c++-mode-hook
'(lambda ()
(local-set-key ( kbd "(") (smartchr '("( `!!' )" "()" "(")))
(local-set-key ( kbd "\'") (smartchr '("\'`!!'\'" "\'")))
(local-set-key ( kbd "\,") (smartchr '("\, " "\,")))
(local-set-key (kbd "[") (smartchr '("[ `!!' ]" "[]" "[")))
(local-set-key (kbd "=") (smartchr '("= " "== " "=")))
(local-set-key (kbd ":") (smartchr '("::" ":" )))
))
(add-hook 'org-mode-hook
'(lambda ()
(local-set-key ( kbd "$" ) ( smartchr '("$" "
")))
(local-set-key ( kbd "\{" ) ( smartchr '("\{`!!'\}" "\{" "{{")))
))
(add-hook 'python-mode-hook
'(lambda ()
(local-set-key ( kbd "(") (smartchr '("( `!!' )" "()" "(")))
(local-set-key ( kbd "\'") (smartchr '("\'`!!'\'" "\'")))
(local-set-key ( kbd "\,") (smartchr '("\, " "\,")))
(local-set-key (kbd "[") (smartchr '("[ `!!' ]" "[")))
(local-set-key (kbd "=") (smartchr '("= " "== " "=")))
))
;;;----------------------- auto-save-buffers.el ---------------------------------
;; M-x install-elisp
;; http://homepage3.nifty.com/oatu/emacs/archives/auto-save-buffers.el
(require 'auto-save-buffers)
;; アイドル0.5秒で保存
(run-with-idle-timer 0.5 t 'auto-save-buffers)
(run-with-idle-timer 0.5 t 'auto-save-buffers "" ".ipa$")
;;; open-junk-file.el
;; M-x install-elisp-from-emacswiki open-junk-file.el
;; Usage: M-x open-junk-file
(require 'open-junk-file)
(setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.")
(global-set-key "\C-x\C-j" 'open-junk-file)
;;; bm.el
;; M-x install-elisp
;; http://cvs.savannah.gnu.org/viewvc/*checkout*/bm/bm/bm.el
(setq-default bm-buffer-persistence nil)
(setq bm-restore-repository-on-load t)
(require 'bm)
(add-hook 'find-file-hooks 'bm-buffer-restore)
(add-hook 'kill-buffer-hook 'bm-buffer-save)
(add-hook 'after-save-hook 'bm-buffer-save)
(add-hook 'after-revert-hook 'bm-buffer-restore)
(add-hook 'vc-before-checkin-hook 'bm-buffer-save)
(global-set-key [f7] 'bm-toggle)
(global-set-key "\C-xp" 'bm-previous)
(global-set-key "\C-xn" 'bm-next)
;;; twittering-mode
(add-to-list 'load-path "~/.emacs.d/twittering-mode-2.0.0/")
(require 'twittering-mode)
;; Show icons
(setq twittering-icon-mode nil)
;; Timeline format
(setq twittering-status-format "%i %s %S, %@:\n %t")
;; Update your timeline each 300 seconds (5 minutes)
(setq twittering-timer-interval 30)
(add-hook 'twittering-mode-hook
(lambda ()
(mapc (lambda (pair)
(let ((key (car pair))
(func (cdr pair)))
(define-key twittering-mode-map
(read-kbd-macro key) func)))
'(("F" . twittering-favorite)
("R" . twittering-replies-timeline)
("U" . twittering-user-timeline)
("W" . twittering-update-status-interactive)))))
;;;================== Latex ========================================
;; 日本語コードをeuc-japanに
(set-language-environment "Japanese")
(set-default-coding-systems 'euc-japan)
(set-terminal-coding-system 'euc-japan)
;;; Yatex
(add-to-list 'load-path "/usr/share/emacs/site-lisp/yatex/")
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq YaTeX-inhibit-prefix-letter nil)
(setq dvi2-command "xdvi -geo +0+0 -s 7 -expert -watchfile 3")
;;;reftex
(add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode
(add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode
(add-hook 'yatex-mode-hook 'turn-on-reftex) ; with YaTeX mode
;;------------------- 行番号の表示 ---------------------------------
(autoload 'setnu-mode "setnu" nil t)
(global-set-key [f12] 'setnu-mode)
;;========================== kmacro-save ===============================
(defvar kmacro-save-file "~/.emacs" "キーボードマクロを保存するファイル")
(defun kmacro-save (symbol)
(interactive "name for last kbd macro: ")
(name-last-kbd-macro symbol)
(with-current-buffer (find-file-noselect kmacro-save-file)
(goto-char (point-max))
(insert-kbd-macro symbol)
(basic-save-buffer)))
;; 現在行をコピー
(fset 'select-this-line "\C-e\C-@\C-a\M-w")
(global-set-key [?\C-\,] 'select-this-line)
;; 文末に;を入力
(fset 'insert-statement-end "\C-e;\C-a\C-i")
(global-set-key [?\C-\.] 'insert-statement-end)
;; {}を改行してインデント
(fset 'parentheses-and-indent "\C-e{\C-j\C-j}\C-p")
(global-set-key [?\M-\[] 'parentheses-and-indent)
;; インデントして次の行へ
(fset 'indent-and-next "\C-i\C-n")
(global-set-key [?\M-i] 'indent-and-next)
;;------------- yasnippet.el -------------------------------
(require 'yasnippet-config)
(yas/setup "~/.emacs.d/plugins/yasnippet-0.6.1c")
;;------------- iswitchb.el -------------------------------
;; バッファ切り替えを部分文字列で可能に
(iswitchb-mode 1)
(setq read-buffer-function 'iswitchb-read-buffer)
(setq iswitchb-regexp nil)
;; 新しいバッファ作成するときは聞かない
(setq iswitchb-prompt-newbuffer nil)
;; uniquify.el
(require 'uniquify)
;; filename<dir>の形式
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
;; *で囲まれたバッファ名は対象外にする
(setq uniquify-ignore-buffers-re "*[^*]+*")
;;---------------html-helper-mode------------------------------
(require 'html-helper-mode)
(require 'html-mode)
(require 'tempo)
;; ;; w3m
;; (require 'w3m-load)
;; (setq w3m-home-page "www.google.co.jp/") ;起動時に開くページ
;; (setq w3m-use-cookies t) ;クッキーを使う
;; (setq w3m-bookmark- "~/.w3m/bookmark.html") ;ブックマークを保存する
;; (setq browse-url-browser-function 'w3m-browse-url)
;; (autoload 'w3m-browse-url "w3m" "Ask a browser to show a URL." t)
;; (global-set-key "\C-xm" 'browse-url-at-point)
;; (autoload 'w3m-find-file "w3m" "w3m interface function for local file." t)
;; (autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGIN." t)
;; (setq w3m-search-default-engin "google-ja")
;; (global-set-key "\C-cs" 'w3m-search)
;; (autoload 'w3m-weather "w3m-weather" "Display weather report." t)
;; (autoload 'w3m-antenna "w3m-antenna" "Report change of WEB ." t)
;; (autoload 'w3m- "w3m-namazu" "Search files with Namazu." t)
;; コードブロックの折りたたみ
(require 'fold-dwim)
;; コンパイルでの*compilation*ウィンドウの文字コード調整
(add-hook 'set-language-environment-hook
(lambda ()
(when (equal "ja_JP.UTF-8" (getenv "LANG"))
(setq default-process-coding-system '(utf-8 . utf-8))
(setq default-file-name-coding-system 'utf-8))
(when (equal "Japanese" current-language-environment)
(setq default-buffer-file-coding-system 'iso-2022-jp))))
(set-language-environment "Japanese")
;; カーソルの点滅を止める
;;(blink-cursor-mode 0)
;; セッションの保存
;; emacs再起動時に前回のバッファ等を復元
;(desktop-save-mode 1)
;; 拡張子によるメジャーモードの変更
(setq auto-mode-alist
(cons (cons "\\.h$" 'c++-mode) auto-mode-alist))
;; シェルスクリプトの実行属性を自動で付加
;; ファイル先頭が#!で始まり、ファイル名が.で始まらない場合
(defun make-file-executable ()
"Make the file of this buffer executable, when it is a script source."
(save-restriction
(widen)
(if (string= "#!" (buffer-substring-no-properties 1 (min 3 (point-max))))
(let ((name (buffer-file-name)))
(or (equal ?. (string-to-char (file-name-nondirectory name)))
(let ((mode (file-modes name)))
(set-file-modes name (logior mode (logand (/ mode 4) 73)))
(message (concat "Wrote " name " (+x)"))))))))
(add-hook 'after-save-hook 'make-file-executable)
(require 'tramp)
;; apache-mode
(autoload 'apache-mode "apache-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.htaccess\\'" . apache-mode))
(add-to-list 'auto-mode-alist '("httpd\\.conf\\'" . apache-mode))
(add-to-list 'auto-mode-alist '("srm\\.conf\\'" . apache-mode))
(add-to-list 'auto-mode-alist '("access\\.conf\\'" . apache-mode))
(add-to-list 'auto-mode-alist '("sites-\\(available\\|enabled\\)/" . apache-mode))
;; php-mode
(require 'php-mode)
;; スクロールバーを消す
(scroll-bar-mode nil)
;;
;; kill-all-buffers
(defun kill-all-buffers ()
(interactive)
(loop for buffer being the buffers
do (kill-buffer buffer)))
;;; Arduino
(add-to-list 'load-path "~/.emacs.d/arduino-mode/")
(load "arduino-mode")
(setq auto-mode-alist (cons '("\\.pde$" . arduino-mode) auto-mode-alist))
;;--------------org-mode---------------------------------------
(require 'org)
;; 折り返し有効
(setq org-startup-truncated nil)
(defun org-insert-upheading-dwim (arg)
"1レベル上の見出しを入力する"
(interactive "P")
(org-insert-heading arg)
(cond ((org-on-heading-p) (org-do-promote))
((org-at-item-p) (org-indent-item -1))))
(defun org-insert-heading-dwim (arg)
"現在と同じレベルの見出しを入力する。"
"C-u:１レベル上"
"C-u C-u:１レベル下"
(interactive "p")
(case arg
(4 (org-insert-subheading nil)) ;C-u
(16 (org-insert-upheading nil)) ;C-u C-u
(t (org-insert-heading nil))))
(define-key org-mode-map (kbd "<C-return>") 'org-insert-heading-dwim)
;; ;１行の文字数
;; (setq org-mode-hook
;; '(lambda () (auto-fill-mode 1)
;; (setq default-fill-column 100)
;; (setq defailt-tab-width 4)))
;; org-agendaを開く
(global-set-key (kbd "C-c a") 'org-agenda)
(org-remember-insinuate)
;; メモを格納するorgファイルの設定
(setq org-directory "~/Documents/memo")
(setq org-default-notes-file (expand-file-name "memo.org" org-directory))
;; テンプレートの設定
(setq org-remember-templates
'(("Note" ?n "** %?\n %i\n %a\n %T" nil "Inbox")
("Todo" ?t "** TODO %?\n %i\n %a\n %T" nil "Inbox")))
;; Select template: [n]ote [t]odo
(global-set-key (kbd "\C-c n") 'org-remember)
;; TODOリストの設定
(setq org-use-fast-todo-selection t)
(setq org-todo-keywords
'((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "|" "DONE(x)" "CANCEL(c)")
(sequence "APPT(a)" "|" "DONE(x)" "CANCEL(c)" )))
;; ハイパーリンクの作成
(global-set-key (kbd "C-c l") 'org-store-link)
;; M-x org-rememberによるメモを集めるorgファイル
;(setq org-default-notes-file "~/Documents/memo/plan.org")
;; 予定表に使うorgファイルのリスト
(setq org-agenda-files (cons org-default-notes-file (directory-files "~/Documents/Private/2013/" t "\\.org$")))
;; 監視するファイルを追加
(setq progress-directory-list (directory-files "~/Documents/Progress/" nil "^\\([^.]\\|\\.[^.]\\|\\.\\..\\)"))
(while progress-directory-list
(setq tmp-list (concatenate 'string "~/Documents/Progress/" (car progress-directory-list)))
(setq org-agenda-files (append org-agenda-files (directory-files tmp-list t "\\.org$")))
(setq progress-directory-list (cdr progress-directory-list ))
)
;; txtをorg-modeで開く
(setq auto-mode-alist (cons '("\\.txt$" . org-mode) auto-mode-alist))
;;; gtags
(require 'gtags)
(add-hook 'c++-mode-hook 'gtags-mode)
(add-hook 'c-mode-hook 'gtags-mode)
(setq view-read-only t)
;; cpp-highlight-buffer
(setq cpp-known-face 'default)
(setq cpp-unknown-face 'highlight)
(setq cpp-face-type 'light)
(setq cpp-known-writable 't)
(setq cpp-unknown-writable 't)
(setq cpp-edit-list
'(("1" nil
(foreground-color . "dim gray")
both nil)
("0"
(foreground-color . "dim gray")
nil both nil)))
最終更新：2014年10月08日 00:43
