Move propertize compatibility function to the others.

darcs-hash:20060420230737-2189f-ba23ce86a96b3da64f5642790f0e839f01f9f406.gz

1 files changed, 7 insertions, 9 deletions

diff --git a/emms.el b/emms.el
index 33c922a..7e1ffaf 100644
--- a/emms.el
+++ b/emms.el
@@ -369,15 +369,6 @@ 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.
@@ -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