From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.bugs Subject: bug#911: 23.0.60; custom-set-faces causes "New Frame" to fail (max-specpdl-size) Date: Tue, 16 Sep 2008 14:50:55 +0200 Message-ID: <48CFABAF.5010707@gmx.at> References: <48C3E3EE.9070309@gmx.at> <20080907165632.GA13662@baso.home> <48C421CC.7060206@gmx.at> <20080907234226.GA22400@baso.home> <48C528C4.4010606@gmx.at> <48CD168D.10107@gmx.at> <20080916121149.GA19679@baso.home> Reply-To: martin rudalics , 911@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1221570812 6323 80.91.229.12 (16 Sep 2008 13:13:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 16 Sep 2008 13:13:32 +0000 (UTC) Cc: 911@emacsbugs.donarmstrong.com To: Ian Miller Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Sep 16 15:14:25 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 1KfaIY-0006vM-RZ for geb-bug-gnu-emacs@m.gmane.org; Tue, 16 Sep 2008 15:08:55 +0200 Original-Received: from localhost ([127.0.0.1]:43675 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KfaHW-0000Wq-JP for geb-bug-gnu-emacs@m.gmane.org; Tue, 16 Sep 2008 09:07:50 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KfaHR-0000WO-Jc for bug-gnu-emacs@gnu.org; Tue, 16 Sep 2008 09:07:45 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KfaHQ-0000VW-5K for bug-gnu-emacs@gnu.org; Tue, 16 Sep 2008 09:07:45 -0400 Original-Received: from [199.232.76.173] (port=32881 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KfaHP-0000V1-RG for bug-gnu-emacs@gnu.org; Tue, 16 Sep 2008 09:07:43 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:47566) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KfaHM-0003IL-Fk for bug-gnu-emacs@gnu.org; Tue, 16 Sep 2008 09:07:41 -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 m8GD7Ytr025589; Tue, 16 Sep 2008 06:07:34 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m8GD04h4021812; Tue, 16 Sep 2008 06:00:04 -0700 X-Loop: don@donarmstrong.com Resent-From: martin rudalics Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Tue, 16 Sep 2008 13:00:04 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 911 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: unreproducible Original-Received: via spool by 911-submit@emacsbugs.donarmstrong.com id=B911.122156965619918 (code B ref 911); Tue, 16 Sep 2008 13:00:04 +0000 Original-Received: (at 911) by emacsbugs.donarmstrong.com; 16 Sep 2008 12:54:16 +0000 Original-Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id m8GCs8L6019912 for <911@emacsbugs.donarmstrong.com>; Tue, 16 Sep 2008 05:54:10 -0700 Original-Received: (qmail invoked by alias); 16 Sep 2008 12:54:02 -0000 Original-Received: from 62-47-53-218.adsl.highway.telekom.at (EHLO [62.47.53.218]) [62.47.53.218] by mail.gmx.net (mp055) with SMTP; 16 Sep 2008 14:54:02 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX184VAcv0eY41Ax81BeSsIS2LFVLh7YniQn+gYuxJf ALfUz5LWTsVD6+ User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) In-Reply-To: <20080916121149.GA19679@baso.home> X-Y-GMX-Trusted: 0 X-FuHaFi: 0.61 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Tue, 16 Sep 2008 09:07:45 -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:20563 Archived-At: > When I tried to instrument those two functions, there was no problem > with face-spec-recalc, but face-spec-set-2 refused to instrument > with the following complaint: > > edebug-syntax-error: Invalid read syntax: "Expected lambda expression" Sorry. Please append the code below at the end of your .emacs and send me the contents of the *face-spec-set-2* buffer after the bug occurred. Thanks, martin. ;;;; Code starts here (require 'cl) (require 'faces) (defun face-spec-set-2 (face frame spec) "Set the face attributes of FACE on FRAME according to SPEC." (with-current-buffer (get-buffer-create "*face-spec-set-2*") (insert (format "face %s frame %s spec %s" face frame spec)) (insert "\n")) (let* ((attrs (face-spec-choose spec frame))) (while attrs (let ((attribute (car attrs)) (value (car (cdr attrs)))) ;; Support some old-style attribute names and values. (case attribute (:bold (setq attribute :weight value (if value 'bold 'normal))) (:italic (setq attribute :slant value (if value 'italic 'normal))) ((:foreground :background) ;; Compatibility with 20.x. Some bogus face specs seem to ;; exist containing things like `:foreground nil'. (if (null value) (setq value 'unspecified))) (t (unless (assq attribute face-x-resources) (setq attribute nil)))) (when attribute (set-face-attribute face frame attribute value))) (setq attrs (cdr (cdr attrs)))))) ;;;; Code ends here