一个小函数, 把当前正在访问的 buffer 对应的文件删除 (放到回收站).
1: (defun delete-this-file () 2: "Delete (move to trash) the file that is associated with the 3: current buffer." 4: (interactive) 5: (let ((filename (buffer-file-name))) 6: (delete-file filename t) 7: (kill-buffer)))
eval 之后, 按 M-x delete-this-file
即可.
Happy Hacking!
Pingback: 链接推荐 —— 2013年8月 | 肉山博客 (Wenshan's Blog)