From 873e858a931f3af4b318473e052fb7acd35f7b53 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 12 Jun 2011 13:18:04 -0700 Subject: [PATCH] * term/xterm.el (terminal-init-xterm): Still more simplifications. --- lisp/term/xterm.el | 5 ++--- 1 file 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." (let ((coding-system-for-read 'binary) (chr nil) (str "") - (background-regex - "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)") (recompute-faces nil) ;; If `xterm-extra-capabilities' is 'check, we don't know ;; the capabilities. We need to check for those defined @@ -540,7 +538,8 @@ features. Set to nil to skip the checks." (setq str "") (while (not (equal (setq chr (read-event nil nil 2)) ?\\)) (setq str (concat str (string chr)))) - (if (string-match background-regex str) + (if (string-match + "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)" str) (setq recompute-faces (xterm-maybe-set-dark-background-mode (string-to-number (match-string 1 str) 16) -- 2.39.5