(mouse-show-mark): Use display-mouse-p, not display-graphic-p,

to decide whether to move point or use the highlighting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4af5ae71ade832eb657ac8be864b4d5abc28156..7097d45e1f30e4918ec17e3315dfcaab9e3a62c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-01  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * mouse.el (mouse-show-mark): Use display-mouse-p, not
+       display-graphic-p, to decide whether to move point or use the
+       highlighting.
+
 2002-02-28  Colin Walters  <walters@verbum.org>
 
        * eshell/esh-var.el (eshell-parse-variable-ref): Use

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9ac786a5cb7a72bcc50d1d63499749c9f80e42dc..9d9bee17005bb05b343f1b92857a3b9df3173194 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1007,7 +1007,7 @@ If DIR is positive skip forward; if negative, skip backward."
 (defun mouse-show-mark ()
   (if transient-mark-mode
       (delete-overlay mouse-drag-overlay)
-    (if (not (display-graphic-p))
+    (if (not (display-mouse-p))
        (save-excursion
          (goto-char (mark t))
          (sit-for 1))