From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Pascal Bourguignon Newsgroups: gmane.emacs.help Subject: Re: How to set the font of a region? Date: 29 Jul 2004 17:28:21 +0200 Organization: [posted via Easynet Spain] Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <87oely6dey.fsf@thalassa.informatimago.com> References: <8765876iil.fsf@thalassa.informatimago.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1091115138 9798 80.91.224.253 (29 Jul 2004 15:32:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 29 Jul 2004 15:32:18 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Jul 29 17:32:00 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BqCsw-0005i1-00 for ; Thu, 29 Jul 2004 17:31:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BqCw8-0002mx-BH for geh-help-gnu-emacs@m.gmane.org; Thu, 29 Jul 2004 11:35:16 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsmi-us.news.garr.it!newsmi-eu.news.garr.it!NewsITBone-GARR!feed.news.tiscali.de!easynet-monga!easynet.net!easynet-post2!not-for-mail Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 Original-Lines: 45 Original-NNTP-Posting-Host: 62.93.174.79 Original-X-Trace: DXC=InM=30oRVb>OE^BX<9nHh=T83QWQaXQO6bXUlgARbb92 Original-Xref: shelby.stanford.edu gnu.emacs.help:124544 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:19879 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:19879 Pascal Bourguignon writes: > I tried this (on X, emacs 21.3.1): > > (let* ((default-font "-*-console-medium-r-normal-*-16-*-*-*-*-*-*-*") > (default-face (gensym "face"))) > (make-face default-face) > (set-face-font default-face default-font) > (dolist (font font-list) > (let ((face (gensym "face"))) > (make-face face) > (set-face-font face font) > (let ((start (point))) > (insert font) > (insert "\n") > (facemenu-add-face 'default start (point)) > (facemenu-set-face default-face start (point))) > (let ((start (point))) > (insert "The lazy dog jumped over the fast fox! (let [it {be} and] say) no.more;\n") > (facemenu-add-face 'default start (point)) > (facemenu-set-face face start (point)))))) > > --> > > --international-medium-r-normal--15-150-72-72-m-90-iso8859-1 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more; > --iris-medium-r-normal--10-100-72-72-m-60-iso8859-1 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more; > --iris-medium-r-normal--12-120-72-72-m-80-iso8859-1 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more; > --iris-medium-r-normal--13-130-72-72-m-90-iso8859-1 > The lazy dog jumped over the fast fox! (let [be {it} and] say) no.more; > ... > > > but all the text generated keeps the same default font. Why my > facemenu-set-face calls are without effect? No, apart being much slower, there's no change in results. -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein