mylisp/log4-hi-mode.el
changeset 1750 166bb76ea63f
parent 1749 8a249e97c2a5
equal deleted inserted replaced
1749:8a249e97c2a5 1750:166bb76ea63f
    72     (when log4-hi-mode
    72     (when log4-hi-mode
    73       (font-lock-mode 1)
    73       (font-lock-mode 1)
    74       (font-lock-add-keywords nil log4-hi-keywords)
    74       (font-lock-add-keywords nil log4-hi-keywords)
    75       (font-lock-add-keywords nil log4-hi-time-keywords)
    75       (font-lock-add-keywords nil log4-hi-time-keywords)
    76       (font-lock-add-keywords nil log4-hi-hide-regex)
    76       (font-lock-add-keywords nil log4-hi-hide-regex)
    77       (when log4-hi-func (font-lock-add-keywords nil log4-hi-func-keywords))
    77       ;; (when log4-hi-func (font-lock-add-keywords nil log4-hi-func-keywords))
    78       (setq prettify-symbols-alist (list (cons "[`" ?$,2'f(B) (cons "`]" ?$,2'g(B)))
    78       ;; (setq prettify-symbols-alist (list (cons "[`" ?$,2'f(B) (cons "`]" ?$,2'g(B)))
    79       (prettify-symbols-mode 1)
    79       ;; (prettify-symbols-mode 1)
    80       (throw 'exit nil))
    80       (throw 'exit nil))
    81     (font-lock-remove-keywords nil log4-hi-keywords)
    81     (font-lock-remove-keywords nil log4-hi-keywords)
    82     (font-lock-remove-keywords nil log4-hi-time-keywords)
    82     (font-lock-remove-keywords nil log4-hi-time-keywords)
    83     (font-lock-remove-keywords nil log4-hi-func-keywords)
    83     (font-lock-remove-keywords nil log4-hi-func-keywords)
    84     (font-lock-remove-keywords nil log4-hi-hide-regex)
    84     (font-lock-remove-keywords nil log4-hi-hide-regex)