help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Switching bold off on all faces


From: Michael J. Barillier
Subject: Re: Switching bold off on all faces
Date: Fri, 02 Aug 2002 12:39:40 -0600
User-agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.1 (i586-pc-linux-gnu)

>>>>> "me" == Michael J Barillier <address@hidden> writes:

    me> Bold faces in Emacs under X have characters that are wider
    me> than non-bold characters (at least with the font I'm using)
    me> screwing up columns of text in, for example, Gnus and info
    me> docs.  So, the $64K question: What's the best way to turn off
    me> bold for all fonts?  I suppose one option would be to iterate
    me> through all variables with a name ending in `-face' and run

    me>   (lambda (face) (set-face-bold-p face nil))

    me> on each one, but that seems like the sledgehammer approach.
    me> Any better suggestions?

Didn't get an answer on this one, so I wrote the following
``sledgehammer'' function:

(defun unbold-all-faces ()
  "Clear the `bold' flag from all faces."
  (interactive)
  (dolist (f (face-list))
    (if (face-bold-p f) (set-face-bold-p f nil))))

-- 
Michael J. Barillier
(let ((n "blackwolf") (h "pcisys.net")) (concatenate 'string n "@" h))
GnuPG public key ID: 0x35E54973
Fingerprint: EDB9 4FBC 4D0B 070C C0E3 2EE4 D822 78CE 35E5 4973
Knowledge shared is power lost. -- Aleister Crowley
Got a job lead?  Email me--will code for food.  Resume at:
  <http://www.pcisys.net/~blackwolf/resume/>



reply via email to

[Prev in Thread] Current Thread [Next in Thread]