diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-10 21:56:13 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-10 21:56:13 +0000 |
| commit | d63ddb2c6781f0ad8f05674dd03eb4d778b4d69f (patch) | |
| tree | aefb6d19ee9c837326788f9d5bb4703a113ca83f /lisp/xt-mouse.el | |
| parent | e34b0c60d5f5ec92dc53319230d77c953ac66282 (diff) | |
| download | emacs-d63ddb2c6781f0ad8f05674dd03eb4d778b4d69f.tar.gz | |
(turn-on-xterm-mouse-tracking, turn-off-xterm-mouse-tracking):
Use terminal-list.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |