tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix previous commit

Browse source
This commit is contained in:
Bastien 2020-01-25 19:46:35 +01:00
parent 32f00fe90e
commit 7f1b51b615
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org.el
View file

@ -5840,7 +5840,7 @@ needs to be inserted at a specific position in the font-lock sequence.")
(defun org-get-level-face (n)
"Get the right face for match N in font-lock matching of headlines."
(let* ((org-l0 (- (match-end 2) (match-beginning 1) 1))
(org-l (when org-odd-levels-only (1+ (/ org-l0 2)) org-l0))
(org-l (if org-odd-levels-only (1+ (/ org-l0 2)) org-l0))
(org-f (if org-cycle-level-faces
(nth (% (1- org-l) org-n-level-faces) org-level-faces)
(nth (1- (min org-l org-n-level-faces)) org-level-faces))))