From 7565ee9323a01cb603c34737d29f67d64bd22994 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 20 Feb 2000 12:34:49 +0000
Subject: [PATCH] (display-mouse-p): Use variable xterm-mouse-mode and check
 for t-mouse too.

---
 lisp/frame.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index a9d4121949b..394652d5310 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1,6 +1,6 @@
 ;;; frame.el --- multi-frame management independent of window systems.
 
-;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1996, 1997, 2000 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -803,7 +803,11 @@ frame's display)."
      ((memq frame-type '(x mac))
       t)    ;; We assume X and Mac *always* have a pointing device
      (t
-      (featurep 'xt-mouse)))))
+      (or (and (featurep 'xt-mouse)
+	       xterm-mouse-mode)
+	  ;; t-mouse is distributed with the GPM package.  It doesn't have
+	  ;; a toggle.
+	  (featurep 't-mouse))))))
 
 (defun display-popup-menus-p (&optional display)
   "Return non-nil if popup menus are supported on DISPLAY.