From c042491950f6b57ff1c14d6bfd9d4f01a72d5d4a Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 15 Feb 2007 23:11:00 +0000 Subject: Fix several XEmacs compatibility issues darcs-hash:20070215231146-1bfb2-8b67281c41a771504c6549ad234eb82e26bbfc91.gz --- emms-compat.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'emms-compat.el') diff --git a/emms-compat.el b/emms-compat.el index 748f487..8537156 100644 --- a/emms-compat.el +++ b/emms-compat.el @@ -37,6 +37,18 @@ (set-text-properties 0 (length string) properties string) string)) +;; Emacs accepts three arguments to `make-obsolete', but the XEmacs +;; version only takes two arguments +(defun emms-make-obsolete (old-name new-name when) + "Make the byte-compiler warn that OLD-NAME is obsolete. +The warning will say that NEW-NAME should be used instead. +WHEN should be a string indicating when the function was +first made obsolete, either the file's revision number or an +EMMS release version number." + (condition-case nil + (make-obsolete old-name new-name when) + (wrong-number-of-arguments (make-obsolete old-name new-name)))) + ;;; Time and timers -- cgit v1.2.3