diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-06-12 13:18:04 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-06-12 13:18:04 -0700 |
| commit | 873e858a931f3af4b318473e052fb7acd35f7b53 (patch) | |
| tree | 9c39712634d4a55b838d00c8f3574761aba16f7a /lisp/term/xterm.el | |
| parent | 422e69f6b6ba3247ccf2d9c2228286943b44387c (diff) | |
| download | emacs-873e858a931f3af4b318473e052fb7acd35f7b53.tar.gz | |
* term/xterm.el (terminal-init-xterm): Still more simplifications.
Diffstat (limited to 'lisp/term/xterm.el')
| -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." (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) |