From: Carsten Dominik <dominik@science.uva.nl>
Date: Mon, 27 Mar 2006 08:03:33 +0000 (+0000)
Subject: (org-get-level-face): Fixed bug with level counting.
X-Git-Tag: emacs-pretest-22.0.90~3423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c61e94b456053f51a8c2bbe07ab4ab30afaea775;p=emacs.git

(org-get-level-face): Fixed bug with level counting.
---

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index ad4744adf15..5d1efeb6902 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -2383,7 +2383,7 @@ between words."
   "Get the right face for match N in font-lock matching of healdines."
   (setq org-l (- (match-end 2) (match-beginning 1)))
   (if org-odd-levels-only (setq org-l (1+ (/ org-l 2))))
-  (setq org-f (nth (1- (% org-l org-n-levels)) org-level-faces))
+  (setq org-f (nth (% (1- org-l) org-n-levels) org-level-faces))
   (cond
    ((eq n 1) (if org-hide-leading-stars 'org-hide org-f))
    ((eq n 2) org-f)