[Orgmode] Intermittent Font Face problem

[Bernt Hansen]

Hi Carsten,

I'm sure this bug is going to be a pain to track down... :(

I'm using multiple org files and I'm clocking time and jumping between
the files for hours.  Then for no reason I can determine the colour
display of tasks breaks.

When it's broken I get black tasks alternating instead of all blue.  I
created a test.org file which shows this problem and it looks like the
following image - task '* two' is black and not blue.

test.png
Description: PNG image

This seems to be right after a :PROPERTIES: ... :END: section with no
blank line.  If I insert a blank line before '* two' the task goes blue
again - and if I delete it so there is no blank line between the
properties section and task it is black again.

The fun part of this is if I close down Emacs and start it again it
works perfectly - and all the tasks are coloured correctly. :-P

I noticed this first in my work org files and decided to try to
duplicate it in the test file for publication but it looks like it's
some transient error that gets triggered by something I'm doing during
the day.  Restarting Emacs fixes it until I trigger it again.  I'll try
to capture more information on this if possible.

Below is my my test.org file and my .emacs file with everything that is
not org-related stripped out.

Org-mode version 5.10b
GNU Emacs 22.1.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 
2007-08-22 on raven, modified by Debian

Bernt

,----[ test.org ]
| #+STARTUP:
| * one
| ** TODO one-one
|    SCHEDULED: <2007-09-12 Wed>
|    - State "STARTED"    [2007-09-12 Wed 12:58] \\
|      some note here
| ** WAITING one-two
|    SCHEDULED: <2007-09-12 Wed>
|    - State "WAITING"    [2007-09-12 Wed 12:58] \\
|      This is waiting
|      :PROPERTIES:
|        :CATEGORY: test
|        :ARCHIVE: %s_archive::
|      :END:
| * two
| ** TODO two-one
|    SCHEDULED: <2007-09-12 Wed> 
| ** TODO two-two
|    SCHEDULED: <2007-09-12 Wed>
| 
| 
| * TODO docs
`----

,----[ .emacs ]
| ;;;; .emacs: Emacs customizations
|
| ;;; XEmacs backwards compatibility file
| (setq user-init-file
|       (expand-file-name "init.el"
|                         (expand-file-name ".xemacs" "~")))
| (setq custom-file
|       (expand-file-name "custom.el"
|                         (expand-file-name ".xemacs" "~")))
| 
| (load-file user-init-file)
| (load-file custom-file)
| 
| ;; Appointments
| (display-time)
| (add-hook 'diary-hook 'appt-make-list)
| (diary 0)
| 
| ;;
| ;; Enable color highligthing
| ;;
| (global-font-lock-mode t)
| 
| ;;;
| ;;; Org Mode
| ;;;
| (add-to-list 'load-path (expand-file-name "~/git/org-mode"))
| (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\)$" . org-mode))
| (require 'org-install)
| 
| (setq org-log-done '(state)
|       org-agenda-include-diary t
|       org-cycle-include-plain-lists nil
|       org-agenda-todo-list-sublevels t
|       org-agenda-todo-ignore-deadlines nil
|       org-agenda-todo-ignore-scheduled nil
|       org-agenda-start-with-follow-mode nil
|       org-use-tag-inheritance t
|       org-tags-match-list-sublevels t
|       org-show-hierarchy-above t
|       org-show-following-heading t
|       org-show-siblings nil
|       org-export-with-sub-superscripts nil
|       org-clock-out-when-done t
|       org-use-fast-todo-selection t
|       org-hide-leading-stars t)
| 
| (setq org-todo-keywords
|       '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
|       (sequence "WAITING(w@)" "APPT(a)" "|")
|       (sequence "SOMEDAY(S)" "|" "CANCELLED(c)")
|       (sequence "OPEN(O)" "|" "CLOSED(C)")
|       (sequence "PROJECT(P)" "|" "PROJDONE(D)")))
| 
| (setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("@errand" . ?e) 
("@phone" . ?p) 
|                     (:startgroup . nil) ("sub10" . ?1) ("sub30" . ?3) 
("sub60" . ?6) ("sub2h" . ?2) ("sub4h" . ?4) ("subday" . ?d) (:endgroup . nil) 
|                     ("admin" . ?a) ("org" . ?o)))
| 
| (setq org-agenda-sorting-strategy '((agenda priority-down time-up category-up)
|                                   (todo category-keep priority-down)
|                                   (tags category-keep priority-down)))
| 
| (define-key global-map "\C-cl" 'org-store-link)
| (define-key global-map "\C-ca" 'org-agenda)
| 
| ;;
| ;; Fix for org and Gnus...
| ;;
| (require 'planner-gnus)
| (defun gnus-summary-article-header (&optional number)
|   (gnus-data-header (gnus-data-find (or number
|              (gnus-summary-article-number)))))
| (defun mail-header-from (header) (aref header 2))
| (defun mail-header-id (header) (aref header 4))
| (defun mail-header-date (header) (aref header 3))
| (defun gnus-summary-article-subject (&optional number) (aref
|              (gnus-data-header (assq (or number (gnus-summary-article-number))
|              gnus-newsgroup-data)) 1))
| 
| (defun bernt-org-todo ()
|   (interactive)
|   (org-narrow-to-subtree)
|   (org-show-todo-tree nil)
|   (widen))
| 
| ;; Custom Key Bindings
| (global-set-key (kbd "<f5>") 'bernt-org-todo)
| (global-set-key (kbd "<f6>") 'org-toggle-archive-tag)
| (global-set-key (kbd "C-<f8>") (lambda () (interactive) (switch-to-buffer 
"todo.org")))
| (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
| (global-set-key (kbd "C-M-<f9>") 'org-narrow-to-subtree)
| (global-set-key (kbd "C-M-<f10>") 'widen)
| (global-set-key (kbd "<f12>") 'org-agenda)
| (global-set-key (kbd "C-M-r") 'remember)
| 
| (require 'remember)
| ;
| (add-hook 'remember-mode-hook 'org-remember-apply-template)
| ;
| (custom-set-variables
|  '(org-default-notes-file "~/org/notes.org")
|  '(org-agenda-ndays 14)
|  '(org-deadline-warning-days 14)
|  '(org-agenda-show-all-dates t)
|  '(org-agenda-skip-deadline-if-done t)
|  '(org-agenda-skip-scheduled-if-done t)
|  '(org-agenda-start-on-weekday nil)
|  '(org-reverse-note-order t)
|  '(org-fast-tag-selection-single-key t)
|  '(org-remember-store-without-prompt t)
|  '(org-remember-templates
|    (quote ((116 "* TODO %?\n  %u" "~/org/todo.org" "Tasks")
|          (110 "* %u %?" "~/org/notes.org" "Notes"))))
|  '(remember-annotation-functions (quote (org-remember-annotation)))
|  '(remember-handler-functions (quote (org-remember-handler))))
| 
| (setq org-todo-keyword-faces
|       '(("TODO"  . (:foreground "red" :weight bold))
|       ("NEXT"  . (:foreground "red" :weight bold))
|       ("WAITING"  . (:foreground "orange" :weight bold))
|       ("APPT"  . (:foreground "blue" :weight bold :underline t))
|       ("DONE"  . (:foreground "forest green" :weight bold))
|       ("CLOSED"  . (:foreground "forest green" :weight bold))
|       ("PROJDONE"  . (:foreground "forest green" :weight bold))
|       ("CANCELLED"  . (:foreground "forest green" :weight bold))))
| 
| ;; Make appt aware of appointments from the agenda
| (defun bzg-org-agenda-to-appt ()
|   "Activate appointments found in `org-agenda-files'."
|   (interactive)
|   (require 'org)
|   (let* ((today (org-date-to-gregorian
|                (time-to-days (current-time))))
|        (files org-agenda-files) entries file)
|     (while (setq file (pop files))
|       (setq entries (append entries (org-agenda-get-day-entries
|                                    file today :timestamp))))
|     (setq entries (delq nil entries))
|     (mapc (lambda(x)
|           (let* ((event (org-trim (get-text-property 1 'txt x)))
|                  (time-of-day (get-text-property 1 'time-of-day x)) tod)
|             (when time-of-day
|               (setq tod (number-to-string time-of-day)
|                     tod (when (string-match 
|                                 "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)" tod)
|                            (concat (match-string 1 tod) ":" 
|                                    (match-string 2 tod))))
|               (if tod (appt-add tod event))))) entries)))
| 
| (org-agenda-list)
`----