From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Ryan Shaw Newsgroups: gmane.emacs.bugs Subject: Re: infinite loop when customizing default face Date: 31 May 2002 16:38:45 +0900 Sender: bug-gnu-emacs-admin@gnu.org Message-ID: <1022830726.5281.25.camel@momo> References: <1022745113.5366.17.camel@momo> <200205310706.g4V761b14723@aztec.santafe.edu> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="=-o7ZH0z1xuzbj2AvL1nl/" X-Trace: main.gmane.org 1022832460 21072 127.0.0.1 (31 May 2002 08:07:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 31 May 2002 08:07:40 +0000 (UTC) Cc: bug-gnu-emacs@gnu.org, eliz@is.elta.co.il Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17DhRj-0005Tl-00 for ; Fri, 31 May 2002 10:07:40 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17Dh7W-0000ZR-00; Fri, 31 May 2002 03:46:46 -0400 Original-Received: from giga.ocn.ne.jp ([211.129.14.85] helo=smtp.giga.ocn.ne.jp) by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian)) id 17Dh5T-0008Cp-00; Fri, 31 May 2002 03:44:40 -0400 Original-Received: from [192.168.1.11] (p14090-adsao09hon-acca.tokyo.ocn.ne.jp [61.127.128.90]) by smtp.giga.ocn.ne.jp (Postfix) with ESMTP id 9499B4F7A; Fri, 31 May 2002 16:44:33 +0900 (JST) Original-To: rms@gnu.org In-Reply-To: <200205310706.g4V761b14723@aztec.santafe.edu> X-Mailer: Ximian Evolution 1.0.5 Errors-To: bug-gnu-emacs-admin@gnu.org X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.bugs:1719 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:1719 --=-o7ZH0z1xuzbj2AvL1nl/ Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Yes, that fixes it nicely. Thank you very much. On Fri, 2002-05-31 at 16:06, Richard Stallman wrote: > I recognize this as a bug I fixed in the past couple of months. > Does this replacement function fix it? >=20 > (Eli, could you put this fix into RC?) >=20 > (defun face-set-after-frame-default (frame) > "Set frame-local faces of FRAME from face specs and resources. > Initialize colors of certain faces from frame parameters." > (dolist (face (face-list)) > (when (not (equal face 'default)) > (face-spec-set face (face-user-default-spec face) frame) > (internal-merge-in-global-face face frame) > (when (and (memq window-system '(x w32 mac)) > (or (not (boundp 'inhibit-default-face-x-resources)) > (not (eq face 'default)))) > (make-face-x-resource-internal face frame)))) >=20 > ;; Initialize attributes from frame parameters. > (let ((params '((foreground-color default :foreground) > (background-color default :background) > (border-color border :background) > (cursor-color cursor :background) > (scroll-bar-foreground scroll-bar :foreground) > (scroll-bar-background scroll-bar :background) > (mouse-color mouse :background)))) > (dolist (param params) > (let ((frame-param (frame-parameter frame (nth 0 param))) > (face (nth 1 param)) > (attr (nth 2 param))) > (when (and frame-param > ;; Don't override face attributes explicitly > ;; specified for new frames. > (eq (face-attribute face attr t) 'unspecified)) > (set-face-attribute face frame attr frame-param)))))) --=-o7ZH0z1xuzbj2AvL1nl/ Content-Type: application/pgp-signature; name=signature.asc Content-Description: This is a digitally signed message part -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.7 (GNU/Linux) iD8DBQA89yiFmHTmWs8IpnoRAq2/AJ48hbY4IiA8/BqzuZ8BBtEkyRJfVACfawMX e/li2rr9cK0SOwTwAuG6EDY= =y8fl -----END PGP SIGNATURE----- --=-o7ZH0z1xuzbj2AvL1nl/--