Daniel Brockman <[EMAIL PROTECTED]> 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:[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
