(vcursor-move): Use display-color-p.

diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index 669d448aa3eb98abfbde00d24eae60ef98a412b5..4b83aee324a82d22515ff1c7e3b883d740784e49 100644 (file)
--- a/lisp/vcursor.el
+++ b/lisp/vcursor.el
@@ -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 @@ another window.  With LEAVE-W, use the current `vcursor-window'."
        (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))