mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Dave Love 2000-04-01 12:09:42 +00:00
parent f6afe80c72
commit 46a610ab78
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/vcursor.el
View file

@ -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))