procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* term/xterm.el (terminal-init-xterm): Still more simplifications.

Browse source
This commit is contained in:
Glenn Morris 2011-06-12 13:18:04 -07:00
parent 422e69f6b6
commit 873e858a93
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/term/xterm.el
View file

@ -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)