Mercurial > emacs

diff lisp/xt-mouse.el @ 95798:813561cb0d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking): Use terminal-list.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 10 Jun 2008 21:56:13 +0000
parents ee5932bf781d
children a9dc0e7c3f2b
line wrap: on
line diff
--- 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)