From d63ddb2c6781f0ad8f05674dd03eb4d778b4d69f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 10 Jun 2008 21:56:13 +0000 Subject: [PATCH] (turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking): Use terminal-list. --- lisp/ChangeLog | 3 +++ lisp/xt-mouse.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5fecf72d882..9df575e34bf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-06-10 Stefan Monnier + * 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 77422119e74..eb585d1cf7d 100644 --- 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) -- 2.39.2