- 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)))))
|

|