+;; Jan suggests this may not dtrt
+;;(defun custom-set-face-font-family (face family &optional locale tags)
+;; "Set the font of FACE to FAMILY."
+;; ;; #### should this call have tags in it?
+;; (let* ((font (apply 'face-font-name face (list locale)))
+;; ;; Gag
+;; (fontobj (font-create-object font)))
+;; (set-font-family fontobj family)
+;; (apply 'font-set-face-font face fontobj locale tags)))
+
+;; From Jan Vroonhof -- see faces.el