From: morioka <morioka>
Date: Mon, 26 Oct 1998 16:05:54 +0000 (+0000)
Subject: (set-cursor-color): New function.
X-Git-Tag: apel-9_7~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=40fbfbcdc84ecbd47f0b48555bb50f2324c286ad;p=elisp%2Fapel.git

(set-cursor-color): New function.
---

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 3391278..7ca74b8 100644
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -25,6 +25,20 @@
 
 ;;; 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.
+To get the frame's current cursor color, use `frame-parameters'."
+  (interactive "sColor: ")
+  (set-frame-property (selected-frame) 'cursor-color
+                      (if (color-instance-p color-name)
+                          color-name
+                        (make-color-instance color-name))))
+
+
 ;;; @ face
 ;;;