equal
deleted
inserted
replaced
37 '(("\\<[0-9]?[0-9]:[0-9][0-9]:[0-9][0-9]\\>" . 'log4-hi-time-face))) |
37 '(("\\<[0-9]?[0-9]:[0-9][0-9]:[0-9][0-9]\\>" . 'log4-hi-time-face))) |
38 |
38 |
39 (defvar log4-hi-func t |
39 (defvar log4-hi-func t |
40 "Mark to use hilighting of function names in stacktraces. Currently only Java supported.") |
40 "Mark to use hilighting of function names in stacktraces. Currently only Java supported.") |
41 |
41 |
|
42 (defvar log4-hi-mode-map (make-sparse-keymap) |
|
43 "Keymap for `log4-hi-mode'.") |
|
44 |
42 ;;;###autoload |
45 ;;;###autoload |
43 (define-minor-mode log4-hi-mode |
46 (define-minor-mode log4-hi-mode |
44 "Highlight standard elements in log4* like log-files." |
47 "Highlight standard elements in log4* like log-files." |
45 nil " log4-hi" nil |
48 nil " log4-hi" log4-hi-mode-map |
46 :global nil |
49 :global nil |
47 (catch 'exit |
50 (catch 'exit |
48 (when log4-hi-mode |
51 (when log4-hi-mode |
49 (font-lock-mode 1) |
52 (font-lock-mode 1) |
50 (font-lock-add-keywords nil log4-hi-keywords) |
53 (font-lock-add-keywords nil log4-hi-keywords) |