diff options
| author | william.xwl <william.xwl> | 2006-07-31 17:00:00 +0000 |
|---|---|---|
| committer | william.xwl <mwolson@gnu.org> | 2006-07-31 17:00:00 +0000 |
| commit | 43c306146f67f59f89d262e9b91c3d21bd6910a1 (patch) | |
| tree | f3616e8b737311684e82fd4e2b75562d53002233 | |
| parent | f7d41460d9077b0c553d63f17c702c659e3d53ee (diff) | |
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
| -rw-r--r-- | emms-cache.el | 10 |
1 files changed, 9 insertions, 1 deletions
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))) |