;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/help-font-lock.el

;; all other help: ~/.emacs.d/emacs-init/help.el

(defvar help-font-lock-keywords)
(setq help-font-lock-keywords
      '(("^\\(.*\\) \\((translated from \\)\\(.\\)\\()\\) runs"
         (1 font-lock-reference-face)
         (2 font-lock-comment-delimiter-face)
         (3 font-lock-reference-face)
         (4 font-lock-comment-delimiter-face) )
        ("^\\(.*\\) runs"             (1 font-lock-reference-face))
        ("autoloaded"                  . font-lock-builtin-face)
        ("compiled"                    . font-lock-keyword-face)
        ("built-in"                    . font-lock-type-face)
        ("\\(function\\) in"          (1 font-lock-comment-face))
        ("Lisp"                        . font-lock-warning-face)
        ("\bC\b"                       . font-lock-doc-face)
        ("interactive "                . font-lock-function-name-face) )
)

(defun help-custom-font-lock ()
  (let ((font-lock-unfontify-region-function
         (lambda (start end)
           (remove-text-properties (point-min) (point-max)
                                   '(font-lock-face nil)))))
    (font-lock-unfontify-buffer)
    (set (make-local-variable 'font-lock-defaults)
         '(help-font-lock-keywords t))
    (font-lock-fontify-buffer)))

(add-hook 'help-mode-hook #'help-custom-font-lock)