diff options
| -rw-r--r-- | lisp/emms-history.el | 9 |
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") |