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

"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)

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

[David Maus]

[-- Attachment #1.1: Type: text/plain, Size: 840 bytes --]

Michael Gilbert wrote:
>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?

Looks like a mixup of Org mode version: The function
`org-face-from-face-or-color' was introduced February, 25th 2010
(commit 6fbdb8074e0c83b6a2160cf31665d2d0a99c3d77), in January 2010
6.34c was released.

6.33 doesn't have this function.  Could you check if there are other
Org versions besides the one shipped with Aquamacs are in your load
path?

HTH
  -- David
-- 
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

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

[Michael Gilbert]

On Jul 9,2010, at 12:18 AM, David Maus wrote:

>> 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?
> 
> Looks like a mixup of Org mode version: The function
> `org-face-from-face-or-color' was introduced February, 25th 2010
> (commit 6fbdb8074e0c83b6a2160cf31665d2d0a99c3d77), in January 2010
> 6.34c was released.
> 
> 6.33 doesn't have this function.  Could you check if there are other
> Org versions besides the one shipped with Aquamacs are in your load
> path?

Thank you, David. That was the insight I needed. I normally pull from the most recent build, but somehow an (require 'org) had slipped into the top of my startup file. 

Solved!

— M