* mcs-om.el (TopLevel): Don't refer to `running-emacs-19_29-or-later', use

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

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 3391278..bc17426 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -25,6 +25,19 @@
 
 ;;; Code:
 
+;;; @ color
+;;;
+
+(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."
+  (interactive "sColor: ")
+  (set-frame-property (selected-frame) 'cursor-color
+                      (if (color-instance-p color-name)
+                          color-name
+                        (make-color-instance color-name))))
+
+
 ;;; @ face
 ;;;
 
@@ -44,11 +57,13 @@
 (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)
         ))