バッファが既存かどうか

emacs lisp あんまり書けない人間なんだけど，http://www.bookshelf.jp/texi/elisp-intro/jp/emacs-lisp-intro.html があまりに分かりやすすぎてコーヒー吹いた．

もちろんですけどまだ 4 章までしか行ってないし，これから難しくなって挫折していく可能性はある．4 章の練習問題，

バッファが既存かどうかのメッセージを表示する関数を ifとget-bufferを用いて書け。

はこんな感じで素直に書きました．interactive 便利だな．

(defun exist-buffer-p (name)
  (interactive "BBuffer name:")
  (if (get-buffer name)
      (message "Buffer name '%s' already exists" name)
    (message "Buffer name '%s' does not exist" name)))