Commit 46a610ab authored by Dave Love's avatar Dave Love
Browse files

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

parent f6afe80c
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment