# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1014982860 0
# Node ID 0897162acd41e4b18184390d0bac93d5f25d6831
# Parent  9d5cae2b1268a51c5c1a0d3440d4a7aaee430743
(mouse-show-mark): Use display-mouse-p, not display-graphic-p,
to decide whether to move point or use the highlighting.

diff -r 9d5cae2b1268 -r 0897162acd41 lisp/mouse.el
--- a/lisp/mouse.el	Fri Mar 01 01:47:48 2002 +0000
+++ b/lisp/mouse.el	Fri Mar 01 11:41:00 2002 +0000
@@ -1007,7 +1007,7 @@
 (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))