# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 954590982 0
# Node ID d3c34ba6d0959cc51bd91aa3d750048f74554104
# Parent  e47fb07b39d4936b05fac002554c948088ca70a5
(vcursor-move): Use display-color-p.

diff -r e47fb07b39d4 -r d3c34ba6d095 lisp/vcursor.el
--- a/lisp/vcursor.el	Sat Apr 01 12:03:57 2000 +0000
+++ b/lisp/vcursor.el	Sat Apr 01 12:09:42 2000 +0000
@@ -321,6 +321,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'compare-w))
+
 (defgroup vcursor nil
   "Manipulate an alternative (\"virtual\") cursor."
   :prefix "vcursor-"
@@ -654,6 +656,7 @@
 	(move-overlay vcursor-overlay pt (+ pt 1) (current-buffer))
       (setq vcursor-overlay (make-overlay pt (+ pt 1)))
       (or window-system
+	  (display-color-p)
 	  (overlay-put vcursor-overlay 'before-string vcursor-string))
       (overlay-put vcursor-overlay 'face 'vcursor))
     (or leave-w (vcursor-find-window nil t))