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

[Dieter Deyke]

Daniel Brockman <address@hidden> writes:

> Well, the patch got munged.  Stupid DOS line endings.
>
> *** old/color-theme.el        2007-01-05 11:30:11.000000000 +0100
> --- new/color-theme.el        2007-02-11 02:57:31.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)

Thanks, that patch helped with the reported problem. Will you send it
upstreams?

Nevertheless, in my normal emacs environment (with my .emacs loaded) I
still cannot use color-theme-select:

Debugger entered--Lisp error: (error "Invalid face" custom-face-tag)
  internal-get-lisp-face-attribute(custom-face-tag :family #<frame  *Minibuf-1* 
0x152be00>)
  face-attribute(custom-face-tag :family #<frame  *Minibuf-1* 0x152be00>)
  color-theme-face-attr-construct(custom-face-tag #<frame  *Minibuf-1* 
0x152be00>)
  (color-theme-spec-resolve-inheritance (color-theme-face-attr-construct face 
(selected-frame)))
  (lambda (face) (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...)))(custom-face-tag)
  mapcar((lambda (face) (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...))) (custom-face-tag))
  mapcar*((lambda (face) (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...))) (custom-face-tag))
  apply(mapcar* (lambda (face) (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...))) (custom-face-tag) nil)
  mapcan((lambda (face) (color-theme-spec-resolve-inheritance 
(color-theme-face-attr-construct face ...))) (custom-face-tag))
  (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))
  (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(custom-face-tag-face)
  mapcar(color-theme-spec (default Buffer-menu-buffer-face apt-utils-broken 
apt-utils-broken-face apt-utils-description apt-utils-description-face 
apt-utils-field-contents apt-utils-field-contents-face apt-utils-field-keyword 
apt-utils-field-keyword-face apt-utils-normal-package 
apt-utils-normal-package-face apt-utils-summary apt-utils-summary-face 
apt-utils-version apt-utils-version-face apt-utils-virtual-package 
apt-utils-virtual-package-face 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 breakpoint-disabled-bitmap 
breakpoint-disabled-bitmap-face breakpoint-enabled-bitmap 
breakpoint-enabled-bitmap-face buffer-menu-buffer button calendar-today 
change-log-date ...))
  (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)

but I am way too lazy to try to find out what command in my .emacs
causes that.  Is it obvious to you what is happening here?  BTW: this
is with your color-theme zenburn loaded.

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