From 43c306146f67f59f89d262e9b91c3d21bd6910a1 Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Mon, 31 Jul 2006 17:00:00 +0000 Subject: emms-cache.el: New variable, emms-cache-file-coding-system, which will allow user to set cache file's coding system explicitly. darcs-hash:20060731170049-e8fe6-6d125ca38a3a3d1b1271aeeb9815b6b8a0411c58.gz --- emms-cache.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/emms-cache.el b/emms-cache.el index 0715176..280de46 100644 --- a/emms-cache.el +++ b/emms-cache.el @@ -60,6 +60,11 @@ This is used to cache over emacs sessions.") :group 'emms :type 'file) +(defcustom emms-cache-file-coding-system 'latin-1 + "Coding system used for saving `emms-cache-file'." + :group 'emms + :type 'coding-system) + (defun emms-cache (arg) "Turn on Emms caching if ARG is positive, off otherwise." (interactive "p") @@ -118,7 +123,10 @@ This is used to cache over emacs sessions.") (message "Saving emms track cache...") (set-buffer (get-buffer-create " emms-cache ")) (erase-buffer) - (insert ";;; .emms-cache -*- mode: emacs-lisp; coding: utf-8; -*-\n") + (insert + (concat ";;; .emms-cache -*- mode: emacs-lisp; coding: " + (symbol-name emms-cache-file-coding-system) + "; -*-\n")) (maphash (lambda (k v) (insert (format "(puthash %S '%S emms-cache-db)\n" k v))) -- cgit v1.2.3