From: Glenn Morris <rgm@gnu.org>
Date: Sun, 12 Jun 2011 20:15:02 +0000 (-0700)
Subject: * term/xterm.el (terminal-init-xterm): More simplifications.
X-Git-Tag: emacs-pretest-24.0.90~104^2~570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=422e69f6b6ba3247ccf2d9c2228286943b44387c;p=emacs.git

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

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index b0fe443ca59..187d8ea0550 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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