(remove, remq): New functions.

[gnu-emacs] / lisp / vcursor.el

diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index 669d448aa3eb98abfbde00d24eae60ef98a412b5..386f2d2959fac0d238cf07aa0ecc9676bf36a9db 100644 (file)
--- a/lisp/vcursor.el
+++ b/lisp/vcursor.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc.
 
 ;; Author:   Peter Stephenson <pws@ibmth.df.unipi.it>
+;; Maintainer: FSF
 ;; Keywords: virtual cursor, convenience
 
 ;; This file is part of GNU Emacs.
@@ -321,6 +322,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'compare-w))
+
 (defgroup vcursor nil
   "Manipulate an alternative (\"virtual\") cursor."
   :prefix "vcursor-"
@@ -654,6 +657,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))