diff options
| author | Glenn Morris | 2011-06-12 13:18:04 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-06-12 13:18:04 -0700 |
| commit | 873e858a931f3af4b318473e052fb7acd35f7b53 (patch) | |
| tree | 9c39712634d4a55b838d00c8f3574761aba16f7a | |
| parent | 422e69f6b6ba3247ccf2d9c2228286943b44387c (diff) | |
| download | emacs-873e858a931f3af4b318473e052fb7acd35f7b53.tar.gz emacs-873e858a931f3af4b318473e052fb7acd35f7b53.zip | |
* term/xterm.el (terminal-init-xterm): Still more simplifications.
| -rw-r--r-- | lisp/term/xterm.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 187d8ea0550..47da0bf4de5 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el | |||
| @@ -489,8 +489,6 @@ features. Set to nil to skip the checks." | |||
| 489 | (let ((coding-system-for-read 'binary) | 489 | (let ((coding-system-for-read 'binary) |
| 490 | (chr nil) | 490 | (chr nil) |
| 491 | (str "") | 491 | (str "") |
| 492 | (background-regex | ||
| 493 | "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)") | ||
| 494 | (recompute-faces nil) | 492 | (recompute-faces nil) |
| 495 | ;; If `xterm-extra-capabilities' is 'check, we don't know | 493 | ;; If `xterm-extra-capabilities' is 'check, we don't know |
| 496 | ;; the capabilities. We need to check for those defined | 494 | ;; the capabilities. We need to check for those defined |
| @@ -540,7 +538,8 @@ features. Set to nil to skip the checks." | |||
| 540 | (setq str "") | 538 | (setq str "") |
| 541 | (while (not (equal (setq chr (read-event nil nil 2)) ?\\)) | 539 | (while (not (equal (setq chr (read-event nil nil 2)) ?\\)) |
| 542 | (setq str (concat str (string chr)))) | 540 | (setq str (concat str (string chr)))) |
| 543 | (if (string-match background-regex str) | 541 | (if (string-match |
| 542 | "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)" str) | ||
| 544 | (setq recompute-faces | 543 | (setq recompute-faces |
| 545 | (xterm-maybe-set-dark-background-mode | 544 | (xterm-maybe-set-dark-background-mode |
| 546 | (string-to-number (match-string 1 str) 16) | 545 | (string-to-number (match-string 1 str) 16) |