From mboxrd@z Thu Jan 1 00:00:00 1970 From: Michael Gilbert Subject: "Symbol's function definition is void: org-face-from-face-or-color" Date: Fri, 9 Jul 2010 00:01:11 -0700 Message-ID: <380DA41F-B047-4BC7-941B-0C4AB49C1CA3@gilbert.org> Mime-Version: 1.0 (Apple Message framework v1081) Content-Type: text/plain; charset=windows-1252 Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=46908 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OX7af-0007A2-1M for emacs-orgmode@gnu.org; Fri, 09 Jul 2010 03:02:13 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OX7aG-0007Vf-HZ for emacs-orgmode@gnu.org; Fri, 09 Jul 2010 03:01:17 -0400 Received: from [74.94.69.218] (port=54983 helo=peach.gilbert.org) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OX7aG-0007SL-61 for emacs-orgmode@gnu.org; Fri, 09 Jul 2010 03:01:16 -0400 Received: from mcglaptop.wp.comcast.net (unknown [10.1.10.10]) by peach.gilbert.org (Postfix) with ESMTP id 2E3F7E9E36C3 for ; Fri, 9 Jul 2010 00:01:12 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode Mailinglist Hi all =97 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. =97 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)