Commits

camlspotter  committed 795142f

added ocamldoc section face

  • Participants
  • Parent commits 60b617a

Comments (0)

Files changed (1)

 (defvar tuareg-font-lock-interactive-error-face
   'tuareg-font-lock-interactive-error-face)
 
+(defface tuareg-font-lock-section-face
+  '((t (:foreground "orange" :bold t)))
+  "Face description for ocamldoc section."
+  :group 'tuareg-faces)
+(defvar tuareg-font-lock-section-face
+  'tuareg-font-lock-section-face)
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                            Support definitions
 
                (eq (char-after (+ start 2)) ?*)
                (not (eq (char-after (+ start 3)) ?*)))
           ;; This is a documentation comment
-          tuareg-doc-face
+	  (if (eq (char-after (+ start 4)) ?\{)
+	      tuareg-font-lock-section-face
+	    tuareg-doc-face)
         font-lock-comment-face))))
 
 ;; Initially empty, set in `tuareg-install-font-lock'