mswindows-font-create-object does not handle fonts strings given by list-fonts. For example: (subseq (list-fonts "") 0 4) --> ("Tera Special::::Symbol" "OCR B MT::::Western" "QuickType Mono::::Western" "QuickType Condensed::::Western") (mapcar 'font-family (mapcar 'mswindows-font-create-object (subseq (list-fonts "") 0 4))) --> (("Courier New") ("Courier New") ("Courier New") ("Courier New")) This is because mswindows-font-canonicalize-name and font-mswindows-font-regexp use [0-9]+ instead of [0-9]* in string regexps. I think it should. -jeff