As a masochist who prefers a variable-pitch default font in Emacs,

  (defun fixed-pitch-mode (&optional arg)
    (interactive (list (or current-prefix-arg 'toggle)))
    (buffer-face-mode-invoke 'fixed-pitch (or arg t) nil))

is a handy "escape hatch", usable as both a key binding and a major mode hook.