(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)
(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)
))