--- a/lisp/obsolete.el	Fri Dec 31 01:09:41 2010 +0100
+++ b/lisp/obsolete.el	Thu Jan 06 00:35:22 2011 +0100
@@ -242,6 +242,15 @@
 
 (define-compatible-function-alias 'cl-mapc 'mapc)
 
+;; XEmacs; old compiler macros meant that this was called directly
+;; from compiled code, and we need to provide a version of it for a
+;; couple of years at least because of that. Aidan Kehoe, Mon Oct 4
+;; 12:06:41 IST 2010
+(defun cl-delete-duplicates (cl-seq cl-keys cl-copy)
+  (apply (if cl-copy #'remove-duplicates #'delete-duplicates) cl-seq cl-keys))
+
+(make-obsolete 'cl-delete-duplicates 'delete-duplicates)
+
 ; old names
 (define-compatible-function-alias 'byte-code-function-p
   'compiled-function-p) ;FSFmacs
@@ -431,5 +440,8 @@
 (define-compatible-function-alias 'process-plist 'object-plist)
 (define-compatible-function-alias 'set-process-plist 'object-setplist)
 
+(define-function 'memql 'member*)
+(make-compatible 'memql "use the more full-featured `member*' instead.")
+
 (provide 'obsolete)
 ;;; obsolete.el ends here