Browse Source

Respect `delete-by-moving-to-trash`

close bbatsov/prelude#864
custom
toctan 10 years ago
parent
commit
e28d03818d
  1. 2
      core/prelude-core.el

2
core/prelude-core.el

@ -248,7 +248,7 @@ there's a region, all lines that region covers will be duplicated."
(if (vc-backend filename) (if (vc-backend filename)
(vc-delete-file filename) (vc-delete-file filename)
(when (y-or-n-p (format "Are you sure you want to delete %s? " filename)) (when (y-or-n-p (format "Are you sure you want to delete %s? " filename))
(delete-file filename)
(delete-file filename delete-by-moving-to-trash)
(message "Deleted file %s" filename) (message "Deleted file %s" filename)
(kill-buffer)))))) (kill-buffer))))))

Loading…
Cancel
Save