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: How to set the font of a region? Date: 29 Jul 2004 15:38:10 +0200 Organization: [posted via Easynet Spain] Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <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 1091108527 23925 80.91.224.253 (29 Jul 2004 13:42:07 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 29 Jul 2004 13:42:07 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Jul 29 15:41:59 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 1BqBAU-0003lL-00 for ; Thu, 29 Jul 2004 15:41:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BqBDg-0003Sx-0D for geh-help-gnu-emacs@m.gmane.org; Thu, 29 Jul 2004 09:45:16 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!ngpeer.news.aol.com!feed2.newsreader.com!newsreader.com!newshosting.com!nx01.iad01.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!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: 42 Original-NNTP-Posting-Host: 62.93.174.79 Original-X-Trace: DXC=c]oG?B2bO15QoH\cO5n^90le1^NnlQj72bBd4DjF1d]1 Original-Xref: shelby.stanford.edu gnu.emacs.help:124542 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:19877 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:19877 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? -- __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