mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2011-06-12 13:15:02 -07:00
parent 7cb363eba0
commit 422e69f6b6
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/term/xterm.el
View File

@ -488,7 +488,7 @@ features. Set to nil to skip the checks."
(when xterm-extra-capabilities
(let ((coding-system-for-read 'binary)
(chr nil)
(str nil)
(str "")
(background-regex
"11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)")
(recompute-faces nil)
@ -525,10 +525,7 @@ features. Set to nil to skip the checks."
(while (not (equal (setq chr (read-event nil nil 2)) ?c))
(setq str (concat str (string chr))))
(if (string-match ">0;\\([0-9]+\\);0" str)
(setq version
(string-to-number
(substring str (match-beginning 1) (match-end 1))))))
(setq version (string-to-number (match-string 1 str)))))
;; 2. If reportBackground is known to be supported, or the
;; version is 242 or higher, assume the xterm supports
;; reporting the background color (TODO: maybe earlier
@ -552,8 +549,7 @@ features. Set to nil to skip the checks."
;; 3. If modifyOtherKeys is known to be supported or the
;; version is 216 (the version when modifyOtherKeys was
;; introduced) or higher, initialize the modifyOtherKeys
;; support.
;; introduced) or higher, initialize the modifyOtherKeys support.
(if (or (memq 'modifyOtherKeys given-capabilities)
(and (memq 'modifyOtherKeys tocheck-capabilities)
version