難しい関数を設定せずともビルトインコマンドで簡単に実現できます。
;; Set buffer that can not be killed (with-current-buffer "*scratch*" (emacs-lock-mode 'kill)) (with-current-buffer "*Messages*" (emacs-lock-mode 'kill))