メジャーモード作成

(define-derived-mode oreore-mode nil "OreOre" "オレオレモード!"
  (define-key oreore-mode-map (kbd "C-c C-m") 'oreore-message))
(defvar oreore-message "初めてのモード"
  "'oreore-message'で表示するメッセージ")
(defun oreore-message ()
  "メッセージを表示する"
  (interactive)
  (message "%s" oreore-message))
(add-to-list 'auto-mode-alist '("\\.ore$" .oreore-mode))

P259

Emacs Lispテクニックバイブル