Try this:
(cond
((eq window-system 'mac)
(when (string= default-directory "/")
(setq default-directory "~/"))
(setq mac-command-key-is-meta t
mac-reverse-ctrl-meta nil
process-connection-type nil
mac-keyboard-text-encoding kTextEncodingISOLatin1)
(create-fontset-from-fontset-spec
"-apple-courier-medium-r-normal--14-*-*-*-*-*-fontset-courier14,
ascii:-apple-courier-medium-r-normal--14-*-75-75-m-*-mac-roman,
latin-iso8859-1:-apple-courier-medium-r-normal--14-*-75-75-m-*-mac- roman")
(modify-frame-parameters (selected-frame)
'((font . "fontset-courier14")))))
(pushnew (lambda (frame) (modify-frame-parameters frame '((font . "fontset-courier14")))) after-make-frame-functions)
No joy:
An error has occurred while loading `/Users/david/.emacs':
Symbol's function definition is void: pushnew
Fontsets are weird.
Emacs and Lisp are weird.
Cheers Piers.
David