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

[Michael Gilbert <mcg@gilbert.org>]

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)