# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1382380766 -10800
# Node ID 020d92388c025f7e5965e73d277e0133bf5cbd41
# Parent  a1af1d3582b6f73a1505958cbb5a8da641396234# Parent  e5be6d749d0652febcdd8112eb9f93c0fa92fd5e
merged

diff -r e5be6d749d06 -r 020d92388c02 .emacs-my
--- a/.emacs-my	Sat Oct 19 19:05:32 2013 +0300
+++ b/.emacs-my	Mon Oct 21 21:39:26 2013 +0300
@@ -1093,6 +1093,7 @@
                       (buffer-file-name (current-buffer)))
     (auto-revert-tail-mode 1)
     (log4-hi-mode 1)
+    (setq scroll-margin my-scroll-margin)
     ))
 (add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)
 
diff -r e5be6d749d06 -r 020d92388c02 log4-hi-mode.el
--- a/log4-hi-mode.el	Sat Oct 19 19:05:32 2013 +0300
+++ b/log4-hi-mode.el	Mon Oct 21 21:39:26 2013 +0300
@@ -11,11 +11,21 @@
   '((t :inherit success))
   "Face for informational message.")
 
+(defface log4-hi-func-face
+  '((t :inherit font-lock-function-name-face))
+  "Face for functions in trace.")
+
 (defvar log4-hi-keywords
   '(("FATAL\\|ERROR" . 'log4-hi-error-face)
     ("WARN" . 'log4-hi-warn-face)
     ("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) ))
 
+(defvar log4-func-hi-keywords
+  '(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) ))
+
+(defvar log4-func-hi t
+  "Mark to use hilighting of function names in stacktraces. Currently only Java supported.")
+
 ;;;###autoload
 (define-minor-mode log4-hi-mode
   "Highlight standard elements in log4* like log-files."
@@ -25,8 +35,10 @@
     (when log4-hi-mode
       (font-lock-mode 1)
       (font-lock-add-keywords nil log4-hi-keywords)
+      (when log4-func-hi (font-lock-add-keywords nil log4-func-hi-keywords))
       (throw 'exit nil))
-    (font-lock-remove-keywords nil log4-hi-keywords))
+    (font-lock-remove-keywords nil log4-hi-keywords)
+    (font-lock-remove-keywords nil log4-func-hi-keywords))
   (font-lock-fontify-buffer))
 
 (provide 'log4-hi-mode)