diff options
| author | Chong Yidong | 2012-06-16 17:56:15 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-06-16 17:56:15 +0800 |
| commit | 771e3eae1e110cbf1ba50ae25bfcf560fdb0822c (patch) | |
| tree | 2f0e3fdacfb4338b52e155860d05e6055b0356ea /lisp | |
| parent | 6665a6fd1968288bc83ff8857665168b29828a8b (diff) | |
| download | emacs-771e3eae1e110cbf1ba50ae25bfcf560fdb0822c.tar.gz emacs-771e3eae1e110cbf1ba50ae25bfcf560fdb0822c.zip | |
Fix for xterm reportBackground query.
* lisp/term/xterm.el (terminal-init-xterm): Discard input before
querying background mode.
Fixes: debbugs:10959
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term/xterm.el | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e78f41e6a7..609dcb117b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-06-16 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * term/xterm.el (terminal-init-xterm): Discard input before | ||
| 4 | querying background mode (Bug#10959). | ||
| 5 | |||
| 1 | 2012-06-16 Stefan Merten <smerten@oekonux.de> | 6 | 2012-06-16 Stefan Merten <smerten@oekonux.de> |
| 2 | 7 | ||
| 3 | * textmodes/rst.el: Added and corrected some comments. | 8 | * textmodes/rst.el: Added and corrected some comments. |
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 51e5aa5796d..28fb9da0b9d 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el | |||
| @@ -539,6 +539,7 @@ The relevant features are: | |||
| 539 | (and (memq 'reportBackground tocheck-capabilities) | 539 | (and (memq 'reportBackground tocheck-capabilities) |
| 540 | version | 540 | version |
| 541 | (>= version 242))) | 541 | (>= version 242))) |
| 542 | (discard-input) | ||
| 542 | (send-string-to-terminal "\e]11;?\e\\") | 543 | (send-string-to-terminal "\e]11;?\e\\") |
| 543 | (when (and (equal (read-event nil nil 2) ?\e) | 544 | (when (and (equal (read-event nil nil 2) ?\e) |
| 544 | (equal (read-event nil nil 2) ?\])) | 545 | (equal (read-event nil nil 2) ?\])) |