diff options
| -rw-r--r-- | emms-playlist-mode.el | 4 | ||||
| -rw-r--r-- | emms.el | 13 |
2 files changed, 13 insertions, 4 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index f7e6464..8b7ade5 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -385,8 +385,8 @@ of the saved playlist inside." When NO-NEWLINE is non-nil, do not insert a newline after the track." (emms-playlist-ensure-playlist-buffer) (emms-with-inhibit-read-only-t - (insert (propertize (emms-track-description track) - 'emms-track track)) + (insert (emms-propertize (emms-track-description track) + 'emms-track track)) (save-restriction (widen) (let ((p (emms-property-region (point-at-bol) 'emms-track)) @@ -369,6 +369,15 @@ See `emms-repeat-track'." (error "No EMMS player playing right now"))) +;;; Compatibility functions + +(if (not (fboundp 'propertize)) + (defun emms-propertize (string &rest properties) + (set-text-properties 0 (length string) properties string) + string) + (defalias 'emms-propertize 'propertize)) + + ;;; Tracks ;; This is a simple datatype to store track information. @@ -783,8 +792,8 @@ This is supplying ARGS as arguments to the source." "Insert the description of TRACK at point." (emms-playlist-ensure-playlist-buffer) (let ((inhibit-read-only t)) - (insert (propertize (emms-track-description track) - 'emms-track track) + (insert (emms-propertize (emms-track-description track) + 'emms-track track) "\n"))) (defun emms-playlist-simple-update-track () |