From 6e194a2d2a308faac79be89e26b6a49fe04e6717 Mon Sep 17 00:00:00 2001 From: forcer Date: Thu, 20 Apr 2006 23:07:00 +0000 Subject: Move propertize compatibility function to the others. darcs-hash:20060420230737-2189f-ba23ce86a96b3da64f5642790f0e839f01f9f406.gz --- emms.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/emms.el b/emms.el index 33c922a..7e1ffaf 100644 --- a/emms.el +++ b/emms.el @@ -368,15 +368,6 @@ See `emms-repeat-track'." (when (not emms-player-playing-p) (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 @@ -1165,5 +1156,12 @@ If fifth arg LITERAL is non-nil, insert REPLACEMENT literally." text (replace-match replacement fixedcase literal text)))) text))) +(if (not (fboundp 'propertize)) + (defun emms-propertize (string &rest properties) + (set-text-properties 0 (length string) properties string) + string) + (defalias 'emms-propertize 'propertize)) + + (provide 'emms) ;;; emms.el ends here -- cgit v1.2.3