--- a/lisp/obsolete.el	Sun Jan 02 00:06:14 2011 +0000
+++ b/lisp/obsolete.el	Sun Jan 02 02:32:59 2011 +0000
@@ -244,6 +244,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
@@ -433,5 +442,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