(load "s:.emacs-menu" t t)
(setq command-switch-alist (append '(("-fn" . amiga-handle-set-font))
				   command-switch-alist))

(defun amiga-handle-set-font (switch)
  (condition-case err
      (let ((wfont (car command-line-args-left))
	    (height (car (read-from-string (car (cdr command-line-args-left))))))
	(setq command-line-args-left (cdr (cdr command-line-args-left)))
	(amiga-set-font wfont height))
    (error (message "Failed to load font"))))