# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1213134973 0
# Node ID 813561cb0d2c62dfa508640f47e507c398d6c87e
# Parent  49171eb71c47d5d9280f262fe7c8cc1e145f9255
(turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking):
Use terminal-list.

diff -r 49171eb71c47 -r 813561cb0d2c lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 10 21:24:18 2008 +0000
+++ b/lisp/ChangeLog	Tue Jun 10 21:56:13 2008 +0000
@@ -1,5 +1,8 @@
 2008-06-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* xt-mouse.el (turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking):
+	Use terminal-list.
+
 	* cus-start.el (underline-minimum-offset) Rename from
 	x-underline-minimum-display-offset.
 
diff -r 49171eb71c47 -r 813561cb0d2c lisp/xt-mouse.el
--- a/lisp/xt-mouse.el	Tue Jun 10 21:24:18 2008 +0000
+++ b/lisp/xt-mouse.el	Tue Jun 10 21:56:13 2008 +0000
@@ -226,12 +226,12 @@
 
 (defun turn-on-xterm-mouse-tracking ()
   "Enable Emacs mouse tracking in xterm."
-  (dolist (terminal (delete-dups (mapcar 'frame-terminal (frame-list))))
+  (dolist (terminal (terminal-list))
     (turn-on-xterm-mouse-tracking-on-terminal terminal)))
 
 (defun turn-off-xterm-mouse-tracking (&optional force)
   "Disable Emacs mouse tracking in xterm."
-  (dolist (terminal (delete-dups (mapcar 'frame-terminal (frame-list))))
+  (dolist (terminal (terminal-list))
     (turn-off-xterm-mouse-tracking-on-terminal terminal)))
 
 (defun turn-on-xterm-mouse-tracking-on-terminal (&optional terminal)