(defvar phutball-mode-map nil
"Keymap fuer phutball mode")
(if phutball-mode-map nil
(setq phutball-mode-map (make-keymap))
(define-key phutball-mode-map keysequence command)
...)
(kill-all-local-variables)
(setq major-mode 'phutball-mode)
(setq mode-name "Phutball")
(use-local-map phutball-mode-map)
(run-hooks 'phutball-mode-hook)
(provide 'phutball)
Die Major-Mode Funktion ist in Abbildung 3 dargestellt.