[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] "Symbol's function definition is void: org-face-from-face-or-c
From: |
Michael Gilbert |
Subject: |
[Orgmode] "Symbol's function definition is void: org-face-from-face-or-color" |
Date: |
Fri, 9 Jul 2010 00:01:11 -0700 |
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)
- [Orgmode] "Symbol's function definition is void: org-face-from-face-or-color",
Michael Gilbert <=