- 262 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/22(木) 18:11:44 ]
- >>261
ファイラーっていってもemacs内部にdiredっていうファイラーがあるんだし、効率悪いかな。
(interactive) (delete-file (buffer-file-name (current-buffer)))
な内容の関数をキーバインドに割り当てるか、
;; 内容が 0 ならファイルごと削除する
(if (not (memq 'delete-file-if-no-contents after-save-hook))
(setq after-save-hook
(cons 'delete-file-if-no-contents after-save-hook)))
(defun delete-file-if-no-contents ()
(when (and
(buffer-file-name (current-buffer))
(string-match "\\.howm" (buffer-file-name (current-buffer)))
(= (point-min) (point-max)))
(delete-file
(buffer-file-name (current-buffer)))))
|
 |
