Mercurial > emacs
comparison lisp/t-mouse.el @ 72199:190ee6511573
(t-mouse-mode): Use set-process-query-on-exit-flag.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 31 Jul 2006 06:05:04 +0000 |
| parents | ecf5c4f0cb3a |
| children | 3480cc226de3 |
comparison
equal
deleted
inserted
replaced
| 72198:bb80dd2ca5dc | 72199:190ee6511573 |
|---|---|
| 290 "-e-move" | 290 "-e-move" |
| 291 "-dall" "-d-hard" | 291 "-dall" "-d-hard" |
| 292 "-f"))) | 292 "-f"))) |
| 293 (setq t-mouse-filter-accumulator "") | 293 (setq t-mouse-filter-accumulator "") |
| 294 (set-process-filter t-mouse-process 't-mouse-process-filter) | 294 (set-process-filter t-mouse-process 't-mouse-process-filter) |
| 295 ; use commented line instead for emacs 21.4 onwards | 295 (set-process-query-on-exit-flag t-mouse-process nil))) |
| 296 (process-kill-without-query t-mouse-process))) | |
| 297 ; (set-process-query-on-exit-flag t-mouse-process nil))) | |
| 298 ;; Turn it off | 296 ;; Turn it off |
| 299 (setq mouse-position-function nil) | 297 (setq mouse-position-function nil) |
| 300 (delete-process t-mouse-process) | 298 (delete-process t-mouse-process) |
| 301 (setq t-mouse-process nil))) | 299 (setq t-mouse-process nil))) |
| 302 | 300 |