# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1284390192 -10800
# Node ID 925f1b143a3d97ef2fe4d5e77712b76eafd10c56
# Parent  ae073d35f67498f671bf77bf27f326b6dc134116# Parent  e08ed14340537e9e70e03ea586fce32ac55b2232
merged

diff -r ae073d35f674 -r 925f1b143a3d .emacs-my
--- a/.emacs-my	Sat Sep 11 00:22:13 2010 +0300
+++ b/.emacs-my	Mon Sep 13 18:03:12 2010 +0300
@@ -815,29 +815,22 @@
   "Face for showing TABs."
   :group 'basic-faces)
 
-(defface my-conflict-face
+(defface my-contrasty-face
   '((t :background "pink" :foreground "red" :weight bold))
   "Font for showing conflicts."
   :group 'basic-faces)
 
-(add-hook 'font-lock-mode-hook (function (lambda ()
-  (when (member major-mode my-devel-mode-list)
-    (font-lock-add-keywords nil
-     '(
-       ("\t+" 0 'my-tab-face t)
-       ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
-       ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
-       ))))))
-
-;; (dolist (mode '(c-mode
-;;                 java-mode
-;;                 cperl-mode
-;;                 html-mode-hook
-;;                 css-mode-hook
-;;                 emacs-lisp-mode))
-;;   (font-lock-add-keywords mode
-;;                           '(("\\(XXX\\|FIXME\\|TODO\\)"
-;;                              1 font-lock-warning-face prepend))))
+(dolist (mode my-devel-mode-list)
+  (font-lock-add-keywords
+   mode
+   '(
+     ("\t+" 0 'my-tab-face t)
+     ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
+     ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-contrasty-face t)
+     ;; 64 times, for highlight C-u C-u C-u <key>
+     ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
+     ))
+  )
 
 ;;; ----------------------------------------------------------------
 ;;; communication.
@@ -1033,10 +1026,14 @@
   (global-semantic-stickyfunc-mode -1)
   (global-semantic-idle-completions-mode -1)
 
+  (setq semantic-idle-scheduler-work-idle-time 60)
+  ;; (setq semantic-idle-work-parse-neighboring-files-flag nil)
+
   ;; semantic-dependency-system-include-path, semantic-customize-system-include-path
   (setq-mode-local c-mode semanticdb-find-default-throttle '(project unloaded system recursive))
   (add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c-mode)))
   (add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c++-mode)))
+  (require 'semanticdb)
   (global-semanticdb-minor-mode 1)
 
   (global-set-key (kbd "C-c , .") 'semantic-ia-fast-jump)