Mercurial > emacs

diff lisp/vcursor.el @ 28459:d3c34ba6d095

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vcursor-move): Use display-color-p.
author Dave Love <fx@gnu.org>
date Sat, 01 Apr 2000 12:09:42 +0000
parents 12fca8181eca
children c3586624fa51
line wrap: on
line diff
--- 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))