[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [bongo-devel] Error when using bongo and color-theme-select
From: |
Daniel Brockman |
Subject: |
Re: [bongo-devel] Error when using bongo and color-theme-select |
Date: |
Sun, 11 Feb 2007 02:58:48 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/23.0.51 (gnu/linux) |
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>