diff options
| author | Glenn Morris | 2011-06-12 12:56:41 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-06-12 12:56:41 -0700 |
| commit | 9db51acaf1991e638e07fc6a624265d4d64b74ae (patch) | |
| tree | 57eb9187257bd085ed839c1bf868edb6b445e3bb | |
| parent | ea3596a2f31dff4d614451a13bcafcad60e39365 (diff) | |
| download | emacs-9db51acaf1991e638e07fc6a624265d4d64b74ae.tar.gz emacs-9db51acaf1991e638e07fc6a624265d4d64b74ae.zip | |
* term/xterm.el (terminal-init-xterm): `version' may be nil. (Bug#8838)
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/term/xterm.el | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a72f2a89d99..23d6b097504 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-06-12 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * term/xterm.el (terminal-init-xterm): `version' may be nil. (Bug#8838) | ||
| 4 | |||
| 1 | 2011-06-12 Martin Rudalics <rudalics@gmx.at> | 5 | 2011-06-12 Martin Rudalics <rudalics@gmx.at> |
| 2 | 6 | ||
| 3 | * window.el (window-safely-shrinkable-p): Restore function which | 7 | * window.el (window-safely-shrinkable-p): Restore function which |
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index c2b870bd535..e345b4dda8f 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el | |||
| @@ -539,6 +539,7 @@ features. Set to nil to skip the checks." | |||
| 539 | ;; versions do too...) | 539 | ;; versions do too...) |
| 540 | (when (or (memq 'reportBackground given-capabilities) | 540 | (when (or (memq 'reportBackground given-capabilities) |
| 541 | (and (memq 'reportBackground tocheck-capabilities) | 541 | (and (memq 'reportBackground tocheck-capabilities) |
| 542 | version | ||
| 542 | (>= version 242))) | 543 | (>= version 242))) |
| 543 | (send-string-to-terminal "\e]11;?\e\\") | 544 | (send-string-to-terminal "\e]11;?\e\\") |
| 544 | (when (equal (read-event nil nil 2) ?\e) | 545 | (when (equal (read-event nil nil 2) ?\e) |
| @@ -559,6 +560,7 @@ features. Set to nil to skip the checks." | |||
| 559 | ;; support. | 560 | ;; support. |
| 560 | (when (or (memq 'modifyOtherKeys given-capabilities) | 561 | (when (or (memq 'modifyOtherKeys given-capabilities) |
| 561 | (and (memq 'modifyOtherKeys tocheck-capabilities) | 562 | (and (memq 'modifyOtherKeys tocheck-capabilities) |
| 563 | version | ||
| 562 | (>= version 216))) | 564 | (>= version 216))) |
| 563 | (terminal-init-xterm-modify-other-keys)) | 565 | (terminal-init-xterm-modify-other-keys)) |
| 564 | 566 | ||