diff options
| author | Dave Love <fx@gnu.org> | 2000-04-01 12:09:42 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-04-01 12:09:42 +0000 |
| commit | 46a610ab78b8e027887bbf70dbbd90eae265a8a1 (patch) | |
| tree | 0f2c0c21676af41ed699034d443981d1f8487faf /lisp/vcursor.el | |
| parent | f6afe80c721327bf4ae05b1b964746907d36fd62 (diff) | |
| download | emacs-46a610ab78b8e027887bbf70dbbd90eae265a8a1.tar.gz | |
(vcursor-move): Use display-color-p.
Diffstat (limited to 'lisp/vcursor.el')
| -rw-r--r-- | lisp/vcursor.el | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |