From 46a610ab78b8e027887bbf70dbbd90eae265a8a1 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 1 Apr 2000 12:09:42 +0000 Subject: (vcursor-move): Use display-color-p. --- lisp/vcursor.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/vcursor.el') diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 669d448aa3e..4b83aee324a 100644 --- 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)) -- cgit v1.2.1