(turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking):

Use terminal-list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fecf72d8821f7790b56273c6b55dadc316e13b5..9df575e34bfb4d8ea901edfcf4dd1086a37a902d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 77422119e74917e9fdacbe76b2073d2d03212213..eb585d1cf7d68eafe073f47944bd949143fd3984 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -226,12 +226,12 @@ down the SHIFT key while pressing the mouse button."
 
 (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)