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))) (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:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] Vs lbh pna ernq guvf, lbh unir jnl gbb zhpu gvzr. _______________________________________________ bongo-devel mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/bongo-devel
