Emacs wont show multiple fonts

[Óscar Fuentes]

The code snippet below was copied from

http://www.emacswiki.org/emacs/GoodFonts#toc15

Evaluating it on *scratch* produces a long list of output, but all lines
use the same font, namely the default one. I was expecting to see each
line rendered with the corresponding font.

Tried on

GNU Emacs 24.4.50.1 (x86_64-unknown-linux-gnu, X toolkit) of 2014-07-29

and

GNU Emacs 24.4.50.1 (i686-pc-mingw32) of 2014-05-07


(dolist (font-family (font-family-list))
  (let ((str font-family))
    (insert (propertize (concat "The quick brown fox jumps over the lazy dog ("
                         str ")")
                        'face `((:family ,font-family))))
    (newline)))