空になったファイルを尋ねずに自動削除

Emacsで編集作業をしていて、不要になった覚書書メモとかを空にしたら尋ねることなく自動的に削除してくれるという地味で便利な emacs-lispです。下記の記事からの引用です。

• Youhei SASAKI's Official site

設定

;; Automatic deletion for empty files (Valid in all modes)
(defun my:delete-file-if-no-contents ()
  (when (and (buffer-file-name (current-buffer))
             (= (point-min) (point-max)))
    (delete-file
     (buffer-file-name (current-buffer)))))
(if (not (memq 'my:delete-file-if-no-contents after-save-hook))
    (setq after-save-hook
          (cons 'my:delete-file-if-no-contents after-save-hook)))