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

[Dieter Deyke]

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)))
  (let ((more-atts ...) att val) (while more-atts (setq att ... val ... 
more-atts ...) (cond ... ...)))
  (progn (setq atts (delq ... ...)) (let (... att val) (while more-atts ... 
...)))
  (if face (progn (setq atts ...) (let ... ...)))
  (when face (setq atts (delq ... ...)) (let (... att val) (while more-atts ... 
...)))
  (let ((face ...)) (when face (setq atts ...) (let ... ...)) atts)
  color-theme-spec-resolve-inheritance((:inherit :weight bold))
  (color-theme-spec-maybe-invert (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...)))
  (color-theme-spec-canonical-font (color-theme-spec-maybe-invert 
(color-theme-spec-resolve-inheritance ...)))
  (let ((atts ...)) (if atts (\` ...) (\` ...)))
  color-theme-spec(bongo-action-track-description)
  mapcar(color-theme-spec (default bold bold-italic bongo-action-track 
bongo-action-track-description bongo-action-track-expression bongo-album 
bongo-album-title bongo-album-year bongo-artist bongo-comment 
bongo-currently-playing-track bongo-filled-seek-bar bongo-marked-track 
bongo-marked-track-line bongo-played-track bongo-seek-bar bongo-seek-message 
bongo-track bongo-track-index bongo-track-length bongo-track-title 
bongo-unfilled-seek-bar bongo-warning border buffer-menu-buffer 
completions-common-part completions-first-difference cursor escape-glyph 
file-name-shadow fixed-pitch font-lock-builtin-face 
font-lock-comment-delimiter-face font-lock-comment-face font-lock-constant-face 
font-lock-doc-face font-lock-function-name-face font-lock-keyword-face 
font-lock-negation-char-face font-lock-preprocessor-face 
font-lock-regexp-grouping-backslash font-lock-regexp-grouping-construct 
font-lock-string-face font-lock-type-face font-lock-variable-name-face 
font-lock-warning-face fringe header-line highlight ...))
  (let ((faces ...)) (mapcar (quote color-theme-spec) faces))
  color-theme-get-face-definitions()
  (cons (color-theme-get-vars) (color-theme-get-face-definitions))
  (cons (color-theme-get-params) (cons (color-theme-get-vars) 
(color-theme-get-face-definitions)))
  (cons (quote color-theme-snapshot) (cons (color-theme-get-params) (cons ... 
...)))
  (backquote-list* (quote color-theme-snapshot) (color-theme-get-params) 
(color-theme-get-vars) (color-theme-get-face-definitions))
  (list (quote quote) (backquote-list* (quote color-theme-snapshot) 
(color-theme-get-params) (color-theme-get-vars) 
(color-theme-get-face-definitions)))
  (list (quote color-theme-install) (list (quote quote) (backquote-list* ... 
... ... ...)))
  (list (quote lambda) nil "The color theme in use when the selection buffer 
was created.\n\\[color-theme-select] creates the color theme selection buffer.  
At the\nsame time, this snapshot is created as a very simple undo 
mechanism.\nThe snapshot is created via `color-theme-snapshot'." (quote 
(interactive)) (list (quote color-theme-install) (list ... ...)))
  (\` (lambda nil "The color theme in use when the selection buffer was 
created.\n\\[color-theme-select] creates the color theme selection buffer.  At 
the\nsame time, this snapshot is created as a very simple undo mechanism.\nThe 
snapshot is created via `color-theme-snapshot'." (interactive) 
(color-theme-install ...)))
  (eval (\` (lambda nil "The color theme in use when the selection buffer was 
created.\n\\[color-theme-select] creates the color theme selection buffer.  At 
the\nsame time, this snapshot is created as a very simple undo mechanism.\nThe 
snapshot is created via `color-theme-snapshot'." ... ...)))
  color-theme-make-snapshot()
  (fset (quote color-theme-snapshot) (color-theme-make-snapshot))
  (progn (fset (quote color-theme-snapshot) (color-theme-make-snapshot)) (setq 
color-themes (delq ... color-themes) color-themes (delq ... color-themes) 
color-themes (append ... color-themes)))
  (if (or (not ...) (not ...)) (progn (fset ... ...) (setq color-themes ... 
color-themes ... color-themes ...)))
  (when (or (not ...) (not ...)) (fset (quote color-theme-snapshot) 
(color-theme-make-snapshot)) (setq color-themes (delq ... color-themes) 
color-themes (delq ... color-themes) color-themes (append ... color-themes)))
  color-theme-select(nil)
  call-interactively(color-theme-select)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

-- 
Dieter Deyke
mailto:address@hidden mailto:address@hidden mailto:address@hidden
Vs lbh pna ernq guvf, lbh unir jnl gbb zhpu gvzr.