Use define-derived-mode (and derived-mode-p)