From: Stefan Monnier Date: Tue, 10 Jun 2008 21:56:13 +0000 (+0000) Subject: (turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking): X-Git-Tag: emacs-pretest-23.0.90~4900 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d63ddb2c6781f0ad8f05674dd03eb4d778b4d69f;p=emacs.git (turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking): Use terminal-list. --- 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)