--- a/log4-hi-mode.el	Tue Oct 15 16:13:22 2013 +0300
+++ b/log4-hi-mode.el	Sat Oct 19 20:00:55 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)