As a masochist who prefers a variable-pitch default font in Emacs, (defun fixed-pitch-mode (&optional arg) (interactive (list (or current-prefix-arg 'tog

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.