"Deletes both current buffer and the file it's vistiting."
- (let ((file(buffer-file-name)))
+ (let ((file(buffer-file-name)))
(message "Deleted file %s" file)
+ "kill buried buffers, except for the special buffers."
+ (dolist (buffer (buffer-list))
+ (unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
+ (kill-buffer buffer))))
;; Copied from Miguel de Icaza's config.