mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse

Browse Source 
too.
This commit is contained in:
Dave Love 2000-02-20 12:34:49 +00:00
parent 0ae278818a
commit 7565ee9323
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/frame.el
View File

@ -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.