[Emacs-diffs] /srv/bzr/emacs/trunk r104578: * term/xterm.el (terminal-init-xterm): Still more simplifications.

[Glenn Morris]

------------------------------------------------------------
revno: 104578
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2011-06-12 13:18:04 -0700
message:
  * term/xterm.el (terminal-init-xterm): Still more simplifications.
modified:
  lisp/term/xterm.el

=== modified file 'lisp/term/xterm.el'
--- a/lisp/term/xterm.el        2011-06-12 20:15:02 +0000
+++ b/lisp/term/xterm.el        2011-06-12 20:18:04 +0000
@@ -489,8 +489,6 @@
     (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 @@
           (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)