From 40fbfbcdc84ecbd47f0b48555bb50f2324c286ad Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 26 Oct 1998 16:05:54 +0000 Subject: [PATCH] (set-cursor-color): New function. --- poe-xemacs.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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 ;;; -- 1.7.10.4