aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-history.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/emms-history.el b/lisp/emms-history.el
index 9a0d991..7526e87 100644
--- a/lisp/emms-history.el
+++ b/lisp/emms-history.el
@@ -56,6 +56,11 @@ Emacs."
:type 'boolean
:group 'emms-history)
+(defcustom emms-history-file-coding-system 'utf-8
+ "Coding system used for saving `emms-history-file'."
+ :type 'coding-system
+ :group 'emms-history)
+
(defun emms-history-save ()
"Save all playlists that are open in this Emacs session."
(interactive)
@@ -83,6 +88,10 @@ Emacs."
(point-max)))))
playlists))))
(with-temp-buffer
+ (insert
+ (concat ";;; emms history -*- mode: emacs-lisp; coding: "
+ (symbol-name emms-history-file-coding-system)
+ "; -*-\n"))
(insert "(\n;; active playlist\n")
(prin1 (buffer-name oldbuf) (current-buffer))
(insert "\n;; playlists: ((BUFFER_NAME SELECT_POSITION TRACKS) ...)\n")