Merge branch 'private'

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el
index 35ed254..1aeaa9c 100644
--- a/lisp/emms-source-playlist.el
+++ b/lisp/emms-source-playlist.el
@@ -71,6 +71,12 @@ If this is nil, you will be prompted for a format to use."
                  (symbol :tag "Other"))
   :group 'emms)
 
+(defcustom emms-source-playlist-ask-before-overwrite t
+  "*Ask before saving over an existing playlist.
+If this is nil, existig playlists will be quitely overwritten."
+  :type 'boolean
+  :group 'emms)
+
 ;;; General playlist
 
 (defsubst emms-source-playlist-p-sym (format)
@@ -139,7 +145,7 @@ The default format is specified by `emms-source-playlist-default-format'."
                                     (current-buffer))
                                   (current-buffer))
     (let ((backup-inhibited t))
-      (write-file file))))
+      (write-file file emms-source-playlist-ask-before-overwrite))))
 
 (defun emms-source-playlist-determine-format (&optional parse-files)
   "Determine the playlist format of the current buffer.