二択選択

;; y-or-n-pでYesかNoかの選択を迫られる
(defun do-you-like-emacs ()
  (interactive)
  (message "%s" (if (y-or-n-p "あなたはemacsが好きですか?")
		    "そりゃいいことだ"
		  "けっ!")))

P115

Emacs Lispテクニックバイブル