diff options
| author | Michael Olson <mwolson@gnu.org> | 2006-04-09 00:52:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2006-04-09 00:52:00 +0000 |
| commit | 8ba97c551f289c509140f29e075d0e3a657f66f3 (patch) | |
| tree | 814afe3a6e5fb9a9d21b6fbab4702ba4b2fddd2f | |
| parent | 2d70d0a638b8b1f790674ef7e31efb44ca671b0d (diff) | |
emms-playlist-mode: Use emms-playlist-save instead of a custom function.
darcs-hash:20060409005234-1bfb2-f2422fc74d0b1fc065c00647cb71e247e181bf10.gz
| -rw-r--r-- | emms-playlist-mode.el | 13 |
1 files changed, 1 insertions, 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. |