diff options
| author | Michael Olson <mwolson@gnu.org> | 2009-08-05 08:07:03 -0700 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2009-08-05 08:07:03 -0700 |
| commit | 2c1c56d553df6ee1973134fdb90543454b1146ca (patch) | |
| tree | 24c99ac1faa709960a83a5922ddcd176ea4082e3 /lisp/emms-source-playlist.el | |
| parent | 8176350744ebefe066478bfc3de9a00e34261b77 (diff) | |
Introduce emms-insert-file-contents.
This function is a safe way to insert the contents of a file without
triggering major mode detection, and has been tested on several versions
of Emacs and XEmacs.
Diffstat (limited to 'lisp/emms-source-playlist.el')
| -rw-r--r-- | lisp/emms-source-playlist.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el index 57a299d..b7677ec 100644 --- a/lisp/emms-source-playlist.el +++ b/lisp/emms-source-playlist.el @@ -177,7 +177,7 @@ See `emms-source-playlist-formats' for a list of supported formats." t))) (mapc #'emms-playlist-insert-track (with-temp-buffer - (insert-file-contents file) + (emms-insert-file-contents file) (goto-char (point-min)) (let ((format (emms-source-playlist-determine-format))) (if format @@ -234,7 +234,7 @@ OUT should be the buffer where tracks are stored in the native EMMS format." t))) (mapc #'emms-playlist-insert-track (with-temp-buffer - (insert-file-contents file) + (emms-insert-file-contents file) (goto-char (point-min)) (when (not (emms-source-playlist-native-p)) (error "Not a native EMMS playlist file.")) @@ -307,7 +307,7 @@ OUT should be the buffer where tracks are stored in m3u format." t))) (mapc #'emms-playlist-insert-track (with-temp-buffer - (insert-file-contents file) + (emms-insert-file-contents file) (goto-char (point-min)) (when (not (emms-source-playlist-m3u-p)) (error "Not an m3u playlist file.")) @@ -388,7 +388,7 @@ OUT should be the buffer where tracks are stored in pls format." t))) (mapc #'emms-playlist-insert-track (with-temp-buffer - (insert-file-contents file) + (emms-insert-file-contents file) (goto-char (point-min)) (when (not (emms-source-playlist-pls-p)) (error "Not a pls playlist file.")) |