From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ian Miller Newsgroups: gmane.emacs.bugs Subject: bug#911: 23.0.60; custom-set-faces causes "New Frame" to fail (max-specpdl-size) Date: Mon, 8 Sep 2008 00:42:26 +0100 Message-ID: <20080907234226.GA22400@baso.home> References: <48C3E3EE.9070309@gmx.at> <20080907165632.GA13662@baso.home> <48C421CC.7060206@gmx.at> Reply-To: Ian Miller , 911@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1220832490 22486 80.91.229.12 (8 Sep 2008 00:08:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 8 Sep 2008 00:08:10 +0000 (UTC) Cc: 911@emacsbugs.donarmstrong.com To: martin rudalics Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Sep 08 02:09:04 2008 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1KcUJS-00047K-Kq for geb-bug-gnu-emacs@m.gmane.org; Mon, 08 Sep 2008 02:09:04 +0200 Original-Received: from localhost ([127.0.0.1]:40404 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KcUIR-0003fO-JH for geb-bug-gnu-emacs@m.gmane.org; Sun, 07 Sep 2008 20:07:59 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KcUIC-0003NK-J2 for bug-gnu-emacs@gnu.org; Sun, 07 Sep 2008 20:07:44 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KcUI9-0003HO-9R for bug-gnu-emacs@gnu.org; Sun, 07 Sep 2008 20:07:44 -0400 Original-Received: from [199.232.76.173] (port=56443 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KcUI8-0003HE-Of for bug-gnu-emacs@gnu.org; Sun, 07 Sep 2008 20:07:40 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:56935) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KcUI6-0000A9-UQ for bug-gnu-emacs@gnu.org; Sun, 07 Sep 2008 20:07:40 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m8807WpV010020; Sun, 7 Sep 2008 17:07:34 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m87No3r3002792; Sun, 7 Sep 2008 16:50:03 -0700 X-Loop: don@donarmstrong.com Resent-From: Ian Miller Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Sun, 07 Sep 2008 23:50:03 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 911 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by 911-submit@emacsbugs.donarmstrong.com id=B911.1220830956788 (code B ref 911); Sun, 07 Sep 2008 23:50:03 +0000 Original-Received: (at 911) by emacsbugs.donarmstrong.com; 7 Sep 2008 23:42:36 +0000 Original-Received: from out1.smtp.messagingengine.com (out1.smtp.messagingengine.com [66.111.4.25]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m87NgTgv000782 for <911@emacsbugs.donarmstrong.com>; Sun, 7 Sep 2008 16:42:30 -0700 Original-Received: from compute1.internal (compute1.internal [10.202.2.41]) by out1.messagingengine.com (Postfix) with ESMTP id 14433155948; Sun, 7 Sep 2008 19:42:29 -0400 (EDT) Original-Received: from heartbeat2.messagingengine.com ([10.202.2.161]) by compute1.internal (MEProxy); Sun, 07 Sep 2008 19:42:29 -0400 X-Sasl-enc: ty29l6kw55bxlvSbW2K77yKFO2sT+XIYCY6d4FsDfZCw 1220830948 Original-Received: from baso (host81-156-178-77.range81-156.btcentralplus.com [81.156.178.77]) by mail.messagingengine.com (Postfix) with ESMTPSA id 7893A3CEFD; Sun, 7 Sep 2008 19:42:28 -0400 (EDT) Content-Disposition: inline In-Reply-To: <48C421CC.7060206@gmx.at> User-Agent: Mutt/1.5.18 (2008-05-17) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) Resent-Date: Sun, 07 Sep 2008 20:07:44 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:20331 Archived-At: On Sun, Sep 07, 2008 at 08:47:40PM +0200, martin rudalics wrote: > > And it happens when you evaluate that form in *scratch*? I'm asking > because I can't reproduce it here. Maybe you should also try with a > more recent checkout. If I delete .emacs, and then evaluate the form in *scratch* then the same symptoms occur. If however, I first create a new frame, and then evaluate the form in that new frame, then the symptoms only occur in the frame in which I evaluated the form but I am able to create new frames (with the new font colours) from every other frame, including the original. I have tried this with the latest sources from CVS and get the same results. > I wondered what precisely in `display-color-cells' could trigger the > Variable binding depth exceeds max-specpdl-size. Can you debug > `display-color-cells'? This is what I get if I toggle-debug-on-error (I hope this is useful?): Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size") framep-on-display(#) display-color-cells(#) face-spec-set-match-display(((min-colors 88) (class color)) #) face-spec-choose((((... ...) (:foreground "white" :background "blue1")) ((...) (:foreground "white" :background "blue")) (t (:slant italic))) #) face-spec-match-p(custom-themed (((... ...) (:foreground "white" :background "blue1")) ((...) (:foreground "white" :background "blue")) (t (:slant italic))) #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "#ffffff" #) set-face-attribute(default # :background "#ffffff") face-spec-set-2(default # ((t :stipple nil :background "#ffffff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))) face-spec-recalc(default #) frame-set-background-mode(#) internal-set-lisp-face-attribute(default :background "DarkSlateGray" #) set-face-attribute(default # :background "DarkSlateGray") face-spec-set-2(default # ((t (:stipple nil :background "DarkSlateGray" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 121 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))) face-spec-recalc(default #) frame-set-background-mode(#) x-create-frame-with-faces(nil) make-frame() make-frame-command() call-interactively(make-frame-command nil nil)