(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.