diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/xt-mouse.el | 15 |
2 files changed, 13 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4c5d7aabd63..596d972932b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -2,6 +2,8 @@ | |||
| 2 | 2 | ||
| 3 | * xt-mouse.el: Delete add-hook calls that were moved to | 3 | * xt-mouse.el: Delete add-hook calls that were moved to |
| 4 | xterm-mouse-mode. | 4 | xterm-mouse-mode. |
| 5 | (xterm-mouse-mode): Disable resume-tty-functions, explain why it | ||
| 6 | does not work. | ||
| 5 | 7 | ||
| 6 | 2007-09-17 Richard Stallman <rms@gnu.org> | 8 | 2007-09-17 Richard Stallman <rms@gnu.org> |
| 7 | 9 | ||
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index ff15cad0399..49f1886f878 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -214,8 +214,15 @@ down the SHIFT key while pressing the mouse button." | |||
| 214 | (add-hook 'delete-frame-functions 'xterm-mouse-handle-delete-frame) | 214 | (add-hook 'delete-frame-functions 'xterm-mouse-handle-delete-frame) |
| 215 | 215 | ||
| 216 | ;; Restore normal mouse behaviour outside Emacs. | 216 | ;; Restore normal mouse behaviour outside Emacs. |
| 217 | (add-hook 'suspend-tty-functions | 217 | |
| 218 | 'turn-off-xterm-mouse-tracking-on-terminal) | 218 | ;; Temporarily disable this hook, it does not work, when |
| 219 | ;; `suspend-tty' calls `suspend-tty-functions' the tty->output | ||
| 220 | ;; is already set to 0 so the 'send-string-to-terminal' call | ||
| 221 | ;; in `turn-off-xterm-mouse-tracking-on-terminal' will result | ||
| 222 | ;; in a crash. | ||
| 223 | ;; (add-hook 'suspend-tty-functions | ||
| 224 | ;; 'turn-off-xterm-mouse-tracking-on-terminal) | ||
| 225 | |||
| 219 | (add-hook 'resume-tty-functions | 226 | (add-hook 'resume-tty-functions |
| 220 | 'turn-on-xterm-mouse-tracking-on-terminal) | 227 | 'turn-on-xterm-mouse-tracking-on-terminal) |
| 221 | (add-hook 'suspend-hook 'turn-off-xterm-mouse-tracking) | 228 | (add-hook 'suspend-hook 'turn-off-xterm-mouse-tracking) |
| @@ -227,8 +234,8 @@ down the SHIFT key while pressing the mouse button." | |||
| 227 | (remove-hook 'after-make-frame-functions | 234 | (remove-hook 'after-make-frame-functions |
| 228 | 'turn-on-xterm-mouse-tracking-on-terminal) | 235 | 'turn-on-xterm-mouse-tracking-on-terminal) |
| 229 | (remove-hook 'delete-frame-functions 'xterm-mouse-handle-delete-frame) | 236 | (remove-hook 'delete-frame-functions 'xterm-mouse-handle-delete-frame) |
| 230 | (remove-hook 'suspend-tty-functions | 237 | ;; (remove-hook 'suspend-tty-functions |
| 231 | 'turn-off-xterm-mouse-tracking-on-terminal) | 238 | ;; 'turn-off-xterm-mouse-tracking-on-terminal) |
| 232 | (remove-hook 'resume-tty-functions | 239 | (remove-hook 'resume-tty-functions |
| 233 | 'turn-on-xterm-mouse-tracking-on-terminal) | 240 | 'turn-on-xterm-mouse-tracking-on-terminal) |
| 234 | (remove-hook 'suspend-hook 'turn-off-xterm-mouse-tracking) | 241 | (remove-hook 'suspend-hook 'turn-off-xterm-mouse-tracking) |