Re: [bongo-devel] Error when using bongo and color-theme-select

[Daniel Brockman]

Dieter Deyke <address@hidden> 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 address@hidden 0x152b600>)
>   face-attribute((font-lock-builtin-face bongo-action-track) :family #<frame 
> address@hidden 0x152b600>)
>   color-theme-face-attr-construct((font-lock-builtin-face bongo-action-track) 
> #<frame address@hidden 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 <address@hidden>