From 8ba97c551f289c509140f29e075d0e3a657f66f3 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sun, 9 Apr 2006 00:52:00 +0000 Subject: emms-playlist-mode: Use emms-playlist-save instead of a custom function. darcs-hash:20060409005234-1bfb2-f2422fc74d0b1fc065c00647cb71e247e181bf10.gz --- emms-playlist-mode.el | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index 1dfd440..f99c850 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -91,7 +91,7 @@ (defconst emms-playlist-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map text-mode-map) - (define-key map (kbd "C-x C-s") 'emms-playlist-mode-save-buffer) + (define-key map (kbd "C-x C-s") 'emms-playlist-save) (define-key map (kbd "C-y") 'emms-playlist-mode-yank) (define-key map (kbd "C-k") 'emms-playlist-mode-kill-track) (define-key map (kbd "C-w") 'emms-playlist-mode-kill) @@ -357,17 +357,6 @@ FACE should be a... face." ;;; Saving/Restoring ;;; -------------------------------------------------------- -(defun emms-playlist-mode-save-buffer (buffer filename) - "Saves a playlist buffer in a file, including annotations." - (interactive "bPlaylist buffer to save: \nFFile to save buffer as: ") - (with-current-buffer (find-file-noselect filename) - (erase-buffer) - (prin1 (with-current-buffer buffer - (buffer-string)) - (current-buffer)) - (save-buffer) - (kill-buffer (current-buffer)))) - (defun emms-playlist-mode-open-buffer (filename) "Opens a previously saved playlist buffer. -- cgit v1.2.3