[Orgmode] "Symbol's function definition is void: org-face-from-face-or-color"

[Michael Gilbert]

Hi all —

Another in a long line of newbie questions....

I'm running 6.33x on Aquamacs.

Whenever I rebuild my agenda, I get this message: "Symbol's function definition 
is void: org-face-from-face-or-color". I know enough to get a backtrace, but 
not enough to read it. I've appended it below. Can anyone help point the way?

TIA, as usual.

— Michael




Backtrace:

Debugger entered--Lisp error: (void-function org-face-from-face-or-color)
  (org-face-from-face-or-color (quote priority) nil (cdr (assoc p 
org-priority-faces)))
  (cond ((org-face-from-face-or-color ... nil ...)) ((and ... ...)) ((equal p 
l) (quote italic)) ((equal p h) (quote bold)))
  (overlay-put ov (quote face) (cond (...) (...) (... ...) (... ...)))
  (while (re-search-forward "\\[#\\(.\\)\\]" nil t) (setq h (or ... 
org-highest-priority) l (or ... org-lowest-priority) p (string-to-char ...) b 
(match-beginning 0) e (if ... ... ...) ov (make-overlay b e)) (overlay-put ov 
(quote face) (cond ... ... ... ...)) (overlay-put ov (quote org-type) (quote 
org-priority)))
  (let ((inhibit-read-only t) b e p ov h l) (goto-char (point-min)) (while 
(re-search-forward "\\[#\\(.\\)\\]" nil t) (setq h ... l ... p ... b ... e ... 
ov ...) (overlay-put ov ... ...) (overlay-put ov ... ...)))
  (save-excursion (let (... b e p ov h l) (goto-char ...) (while ... ... ... 
...)))
  org-agenda-fontify-priorities()
  (progn (org-agenda-fontify-priorities))
  (if org-agenda-fontify-priorities (progn (org-agenda-fontify-priorities)))
  (when org-agenda-fontify-priorities (org-agenda-fontify-priorities))
  (save-excursion (let (...) (goto-char ...) (while ... ...) 
(org-agenda-align-tags) (unless org-agenda-with-colors ...)) (if (and ... 
org-agenda-overriding-columns-format) (org-set-local ... 
org-agenda-overriding-columns-format)) (if (and ... 
org-agenda-view-columns-initially) (org-agenda-columns)) (when 
org-agenda-fontify-priorities (org-agenda-fontify-priorities)) (when (and 
org-agenda-dim-blocked-tasks org-blocker-hook) (org-agenda-dim-blocked-tasks)) 
(org-agenda-mark-clocking-task) (when org-agenda-entry-text-mode 
(org-agenda-entry-text-hide) (org-agenda-entry-text-show)) (if (functionp ...) 
(org-habit-insert-consistency-graphs)) (run-hooks (quote 
org-finalize-agenda-hook)) (setq org-agenda-type (org-get-at-bol ...)) (when 
(get ... :preset-filter) (org-agenda-filter-apply org-agenda-filter)))
  (if org-agenda-multi nil (save-excursion (let ... ... ... ... ...) (if ... 
...) (if ... ...) (when org-agenda-fontify-priorities ...) (when ... ...) 
(org-agenda-mark-clocking-task) (when org-agenda-entry-text-mode ... ...) (if 
... ...) (run-hooks ...) (setq org-agenda-type ...) (when ... ...)))
  (unless org-agenda-multi (save-excursion (let ... ... ... ... ...) (if ... 
...) (if ... ...) (when org-agenda-fontify-priorities ...) (when ... ...) 
(org-agenda-mark-clocking-task) (when org-agenda-entry-text-mode ... ...) (if 
... ...) (run-hooks ...) (setq org-agenda-type ...) (when ... ...)))
  org-finalize-agenda()
  (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) 
(today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0) 
(inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd 
wd clocktable-start clocktable-end) (setq org-agenda-redo-command (list ... ... 
start-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays) (while (> 
ndays 1) (push ... day-numbers) (setq ndays ...)) (setq day-numbers (nreverse 
day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) 
(org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-day) (car 
day-numbers)) (org-set-local (quote org-include-all-loc) include-all) 
(org-set-local (quote org-agenda-span) (org-agenda-ndays-to-span nd)) (when 
(and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... 
... ... ...)) (unless org-agenda-compact-blocks (let* ... ... ...) 
(add-text-properties s ... ...) (org-agenda-mark-header-line s)) (while (setq d 
...) (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles rtnall 
nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when (and 
org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... ... ... 
...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) 
(unless (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char 
(or start-pos 1)) (add-text-properties (point-min) (point-max) (quote ...)) 
(org-finalize-agenda) (setq buffer-read-only t) (message ""))
  org-agenda-list(nil)
  (let ((org-deadline-warning-days 0) 
(org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-function 
...)) (org-agenda-list current-prefix-arg))
  eval((let ((org-deadline-warning-days 0) 
(org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-function 
...)) (org-agenda-list current-prefix-arg)))
  org-let(((org-deadline-warning-days 0) 
(org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-function 
(lambda nil ...))) (org-agenda-list current-prefix-arg))
  (cond ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops 
...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) 
((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq 
type ...) (org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) 
(org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops 
...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((functionp 
type) (org-let lprops ...)) ((fboundp type) (org-let lprops ...)) (t (error 
"Invalid custom agenda command type %s" type)))
  (progn (setq type (nth 2 entry) match (eval ...) lprops (nth 4 entry)) (put 
(quote org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) (... 
...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... 
...) (... ... ...) (... ...) (... ...) (t ...)))
  (if (or (symbolp ...) (functionp ...)) (progn (setq type ... match ... lprops 
...) (put ... ... lprops) (cond ... ... ... ... ... ... ... ... ... ... ... ... 
...)) (org-run-agenda-series (nth 1 entry) (cddr entry)))
  (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq 
org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable 
...)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") 
(call-interactively ...)) ((equal keys "t") (call-interactively ...)) ((equal 
keys "T") (org-call-with-arg ... ...)) ((equal keys "m") (call-interactively 
...)) ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") 
(call-interactively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") 
(org-add-hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless 
restriction ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys 
"/") (call-interactively ...)) ((equal keys "!") (customize-variable ...)) (t 
(error "Invalid agenda key")))
  (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match 
lprops ans) (unless org-agenda-overriding-restriction (unless ... ...) (setq 
org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) 
(move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) 
(quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) 
(unless keys (setq ans ... keys ... restriction ...)) (when (and ... 
restriction) (put ... ... ...) (cond ... ...)) (cond (... ...) (... ... ...) 
(... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... 
...) (... ... ...) (... ...) (... ...) (... ...) (t ...)))
  (catch (quote exit) (let* (... ... ... ... ... ... entry key type match 
lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... 
... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... 
... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)