Switching bold off on all faces

Switching bold off on all faces

[Michael J. Barillier]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

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

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

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

- -- 
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
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD4DBQE9SGOy2CJ4zjXlSXMRArhKAJ9ZLNfvs5DPHcFVo4nTvuLAoUQ3FACY5G4I
ttYIW3PsvYaB3o1KyZutCA==
=uL/S
-----END PGP SIGNATURE-----

Re: Switching bold off on all faces

[Michael J. Barillier]

>>>>> "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/>