--- a/lisp/tl/emu-xemacs.el	Mon Aug 13 09:24:19 2007 +0200
+++ b/lisp/tl/emu-xemacs.el	Mon Aug 13 09:25:29 2007 +0200
@@ -5,7 +5,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: emu-xemacs.el,v 1.3 1997/03/16 03:05:44 steve Exp $
+;;	$Id: emu-xemacs.el,v 1.4 1997/04/10 05:55:51 steve Exp $
 ;; Keywords: emulation, compatibility, XEmacs
 
 ;; This file is part of XEmacs.
@@ -46,16 +46,18 @@
 ;;; @ overlay
 ;;;
 
-(defalias 'tl:make-overlay 'make-extent)
-(defalias 'tl:overlay-put 'set-extent-property)
-(defalias 'tl:overlay-buffer 'extent-buffer)
-
-(defun tl:move-overlay (extent start end &optional buffer)
-  (set-extent-endpoints extent start end)
-  )
+(condition-case err
+    (require 'overlay)
+  (error (defalias 'make-overlay 'make-extent)
+	 (defalias 'overlay-put 'set-extent-property)
+	 (defalias 'overlay-buffer 'extent-buffer)
+	 (defun move-overlay (extent start end &optional buffer)
+	   (set-extent-endpoints extent start end)
+	   )
+	 ))
 
 
-;;; @@ visible/invisible
+;;; @ visible/invisible
 ;;;
 
 (defmacro enable-invisible ())