aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2011-06-12 13:18:04 -0700
committerGlenn Morris2011-06-12 13:18:04 -0700
commit873e858a931f3af4b318473e052fb7acd35f7b53 (patch)
tree9c39712634d4a55b838d00c8f3574761aba16f7a
parent422e69f6b6ba3247ccf2d9c2228286943b44387c (diff)
downloademacs-873e858a931f3af4b318473e052fb7acd35f7b53.tar.gz
emacs-873e858a931f3af4b318473e052fb7acd35f7b53.zip
* term/xterm.el (terminal-init-xterm): Still more simplifications.
-rw-r--r--lisp/term/xterm.el5
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)