Don't use `running-emacs-19_29-or-later' or `running-xemacs-19_14-or-later.'

[elisp/apel.git] / poe-xemacs.el

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 7ca74b8..a6b8516 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -28,10 +28,13 @@
 ;;; @ color
 ;;;
 
+
+(eval-when-compile
+  (require 'poe))
+
 (defun-maybe set-cursor-color (color-name)
   "Set the text cursor color of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use.
-To get the frame's current cursor color, use `frame-parameters'."
+When called interactively, prompt for the name of the color to use."
   (interactive "sColor: ")
   (set-frame-property (selected-frame) 'cursor-color
                       (if (color-instance-p color-name)
@@ -58,11 +61,13 @@ To get the frame's current cursor color, use `frame-parameters'."
 (condition-case nil
     (require 'overlay)
   (error (defalias 'make-overlay 'make-extent)
+        (defalias 'overlayp 'extentp)
         (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)
           )
+        (defalias 'delete-overlay 'detach-extent)
         ))