From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: What is a default font? Date: Fri, 6 Dec 2019 09:35:46 +0100 Message-ID: References: <4c86b07f-175d-f6cf-171a-b58474ab717a@gmx.at> <83tv6ghxxk.fsf@gnu.org> <36fc3581-f8b9-cfbb-7455-eaccf9fe3c4a@gmx.at> <83y2vqhcnp.fsf@gnu.org> <0fb8540a-5edd-53ee-a02f-51960af2821b@gmx.at> <83v9quhahx.fsf@gnu.org> <2e7821ab-0ebc-fe80-8faa-faebf36dec82@gmx.at> <83tv6eh9fv.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="118611"; mail-complaints-to="usenet@blaine.gmane.org" Cc: monnier@iro.umontreal.ca, emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Dec 06 17:09:04 2019 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1idGA8-000UYL-Ar for ged-emacs-devel@m.gmane.org; Fri, 06 Dec 2019 17:09:00 +0100 Original-Received: from localhost ([::1]:40368 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1idGA6-0005ms-P1 for ged-emacs-devel@m.gmane.org; Fri, 06 Dec 2019 11:08:59 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:51458) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1idF3L-00059r-Vi for emacs-devel@gnu.org; Fri, 06 Dec 2019 09:57:57 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1idF3J-0002mq-L0 for emacs-devel@gnu.org; Fri, 06 Dec 2019 09:57:55 -0500 Original-Received: from mout.gmx.net ([212.227.15.18]:44821) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1idF2u-0002bY-1z; Fri, 06 Dec 2019 09:57:30 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.net; s=badeba3b8450; t=1575644244; bh=L8rCMDSt4Ba0u6vh7n44IooIPu2nsjazzlS9jSiPxOY=; h=X-UI-Sender-Class:Subject:To:Cc:References:From:Date:In-Reply-To; b=QCewChvVxAbSnx3DMfOhZnfqiDpefL6Pcm7XACJurEFJGA1R9LE38y4tla+wM+Npm PAuWASBP/KoAg6xLvfFIT8/6FErLuEyfqWSELy7fzHUe/SAJFI10k+jRAefn4If2zy g3wb27nWfluCxHWy6MdD55oBcX5nHpiNNS9kc/0g= X-UI-Sender-Class: 01bb95c1-4bf8-414a-932a-4f6e2808ef9c Original-Received: from [192.168.1.101] ([212.95.5.197]) by mail.gmx.com (mrgmx004 [212.227.17.190]) with ESMTPSA (Nemesis) id 1MSt8W-1iBD8Z3z2M-00UFzQ; Fri, 06 Dec 2019 09:35:46 +0100 In-Reply-To: <83tv6eh9fv.fsf@gnu.org> Content-Language: de-AT X-Provags-ID: V03:K1:Z3gTgj1OeyUUE8x+sPnz6R1HknurkIff6A+Yb5xIxw5CaiyIjFz yiZpbZ9orLxnOB9TJofSE1+XcuUsLNfrDnJTGLoh/HGHy+o7X5+GbBRUaM48pNmGW2i1y2K E8BIh4tyH+bapY/jqC9SWHfv96n7IX7YW04NbZqy/1+YTXZlDFkbAvixxu+RD4OyhaiQiRe Ic6viptkRLXPJTT4+Q/lQ== X-UI-Out-Filterresults: notjunk:1;V03:K0:vP6/27Y379Y=:y/hkN3OykDBEdow/uO4go4 /UWGgV7kljsXkEcllm7/eCFkabW42VTICZrD6lW2Olsf+s93e7Z8szydsG9D3iNwjoXJPAg5Z 8j1ESOkwA5lmEtcfqJmD0iNhim+s5jbrT1dSEP5gVIy5M1OkAwO4Nt5TyEew8m7g2yMw9bPlg 2+iULeSM9mZPhbgoqS+fSmVEv0gYWNETs9IU1NrILSvO+axTXaw/X0x/hX/zpnwOoSs7iPf/O b8OH1Eq1I2YlCMf5cKS2/Ci/db0kNBOlutGIv7JIevSOli6eqvBED8I4BjG/l4EK16g7kMk55 crQU1fcfvWCw7d84I2OiRMEKglTGdBwlAY8jszC+P7NkUm4L/kp7PeOprTiki606ciRAEAHqx d5/IqjZfEw2OII8gehmrOGTwTfQ+gmUfHqA0WhezMw1wZwUIkX+CYxCPAxtwqeEuiv4iKeqCc gSgxC2heixGNqMqHD7Xd2RFLtFRIrliY2IDNoUFwVDoFVcqK9NXvtbk9lx8/V2jVlB+AwW5SS DRWLZsekj/OZlI3Tq96w2MltLm0oMW1WKI2GZDryAp7NnljeCRQbfYhVkdJ3jIcSSgcRTqJZg e1FqZDHiwOVsI7fgllH2vvWPbbE4j5jM0cN2KcQedXelH+aeCK7mdu3dFA9L2F+v+Zuifn5My QJTrkEt029QOnX+sPCqRGo6jtE7cbtO7NYchhdIyC2qj7IVSLXjUBEbQx7G2/UTd5P0Ly6M0m ywtM4769wh/m4UCGUTFEW/DCiLGDOs2YNFH5qAa1+uquSmhvaQjsgAOaPDn+GTsxsINgytTX X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 212.227.15.18 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:243179 Archived-At: I intend to rewrite 'window-default-font-height' as (defun window-default-font-height (&optional window buffer) "Return height in pixels of BUFFER's default face font in WINDOW. WINDOW must be a valid window and defaults to the selected one. If BUFFER is a live buffer, it stands for itself. Any other value means to use WINDOW's buffer. If neither WINDOW nor BUFFER are live, signal an error. The return value accounts for any remapping of the default face font (see `face-remapping-alist') in BUFFER. If no such remapping has been specified for BUFFER, return the height of the default face font for WINDOW's frame. Note that if WINDOW specifes a live window and BUFFER specifies a buffer different from the one currently shown in WINDOW, the return value is calculated by pretending that BUFFER is displayed in WINDOW." (let* ((window (window-normalize-window window)) (frame (window-frame window)) (buffer (cond ((buffer-live-p buffer) buffer) ((window-live-p window) (window-buffer window)) (t (error "No live window and buffer specified")))) (default-font (if (window-live-p window) (with-selected-window window (with-current-buffer buffer (face-font 'default frame))) (with-selected-frame frame (with-current-buffer buffer (face-font 'default frame)))))) (cond ((not default-font) (frame-char-height frame)) ((and (display-multi-font-p (frame-parameter frame 'display)) (not (string-equal (frame-parameter frame 'font) default-font))) (aref (font-info default-font frame) 3)) (t (frame-char-height frame))))) If you think that my interpretation is correct, the doc-string of 'face-font' could maybe tell something similar. And I'd still like to know what 'face-new-frame-defaults' is really used for. martin