diff options
author | forcer <forcer> | 2006-04-20 21:07:00 +0000 |
---|---|---|
committer | forcer <mwolson@gnu.org> | 2006-04-20 21:07:00 +0000 |
commit | 5d1019b4d8866e2a00dcb6410aea212a61946db6 (patch) | |
tree | 5c8259f5ed93519d895079dd86b928a63da707c7 /emms.el | |
parent | 56ad988565352e3084774b2d40150e13cbbe3c0a (diff) |
Provide emms-propertize compatibility function.
darcs-hash:20060420210744-2189f-c648403a30e0c47d63986e7378d122c7d811aab9.gz
Diffstat (limited to 'emms.el')
-rw-r--r-- | emms.el | 13 |
1 files changed, 11 insertions, 2 deletions
@@ -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 () |