Mercurial > emacs
changeset 95798:813561cb0d2c
(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 | 49171eb71c47 |
| children | b0653ad2932d |
| files | lisp/ChangeLog lisp/xt-mouse.el |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 10 21:24:18 2008 +0000 +++ b/lisp/ChangeLog Tue Jun 10 21:56:13 2008 +0000 @@ -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.
--- 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)