Re: Switching bold off on all faces

["Michael J. Barillier" <blackwolf@pcisys.net>]

>>>>> "me" == Michael J Barillier <blackwolf@pcisys.net> 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/>