Dieter Deyke <[EMAIL PROTECTED]> writes:
> If I start emacs -Q, then load bongo, then load color-theme, then
> execute color-theme-select, I get:
>
> Debugger entered--Lisp error: (wrong-type-argument symbolp
> (font-lock-builtin-face bongo-action-track))
> internal-get-lisp-face-attribute((font-lock-builtin-face
> bongo-action-track) :family #<frame [EMAIL PROTECTED] 0x152b600>)
> face-attribute((font-lock-builtin-face bongo-action-track) :family #<frame
> [EMAIL PROTECTED] 0x152b600>)
> color-theme-face-attr-construct((font-lock-builtin-face bongo-action-track)
> #<frame [EMAIL PROTECTED] 0x152b600>)
> (color-theme-spec-resolve-inheritance (color-theme-face-attr-construct face
> (selected-frame)))
This must be a bug in color-theme.el.
Maybe try this patch:
*** old/color-theme.el 2007-01-05 11:30:11.000000000 +0100
--- new/color-theme.el 2007-02-11 02:53:22.000000000 +0100
***************
*** 755,763 ****
;; remove :inherit face from atts -- this assumes only one
;; :inherit attribute.
(setq atts (delq ':inherit (delq face atts)))
! (let ((more-atts (color-theme-spec-resolve-inheritance
! (color-theme-face-attr-construct
! face (selected-frame))))
att val)
(while more-atts
(setq att (car more-atts)
--- 755,765 ----
;; remove :inherit face from atts -- this assumes only one
;; :inherit attribute.
(setq atts (delq ':inherit (delq face atts)))
! (let ((more-atts (mapcan (lambda (face)
! (color-theme-spec-resolve-inheritance
! (color-theme-face-attr-construct
! face (selected-frame))))
! (if (listp face) face (list face))))
att val)
(while more-atts
(setq att (car more-atts)
--
Daniel Brockman <[EMAIL PROTECTED]>
_______________________________________________
bongo-devel mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/bongo-devel
