From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 22 Jul 2005 18:40:15 +0000 (+0000)
Subject: Load term/rxvt if the terminal is actually an
X-Git-Tag: emacs-pretest-22.0.90~7908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a55dae2625af1e47376cd54115236abc874d288;p=emacs.git

Load term/rxvt if the terminal is actually an
rxvt terminal.
(xterm-rxvt-set-background-mode): Remove, not used anymore.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a685e22355..5c741ba6c4e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2005-07-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* term/xterm.el: Load term/rxvt if the terminal is actually an
+	rxvt terminal.
+	(xterm-rxvt-set-background-mode): Remove, not used anymore.
+
 	* term/rxvt.el (function-key-map): Use substitute-key-definition
 	to bind {C,S,C-S}-{f1-f10}. Add a few missing key bindings.
 
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 17d7cde0e8a..1d700b727d3 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -26,6 +26,13 @@
 
 ;;; Code:
 
+;;; rxvt terminals sometimes set the TERM variable to "xterm", but
+;;; rxvt's keybindings that are incompatible with xterm's. It is
+;;; better in that case to load rxvt's terminal initialization file.
+(if (and (getenv "COLORTERM")
+	 (string-match "\\`rxvt" (getenv "COLORTERM")))
+    (load "term/rxvt")
+
 ;;; The terminal intialization C code file might have initialized
 ;;; function keys F13->F60 from the termcap/terminfo information.  On
 ;;; a PC-style keyboard these keys correspond to
@@ -359,38 +366,11 @@ versions of xterm."
     ;; right colors, so clear them.
     (clear-face-cache)))
 
-;; rxvt puts the default colors into an environment variable
-;; COLORFGBG.  We use this to set the background mode in a more
-;; intelligent way than the default guesswork in startup.el.
-(defun xterm-rxvt-set-background-mode ()
-  "Set background mode as appropriate for the default rxvt colors."
-  (let ((fgbg (getenv "COLORFGBG"))
-	bg rgb)
-    (setq default-frame-background-mode 'light)
-    (when (and fgbg
-	       (string-match ".*;\\([0-9][0-9]?\\)\\'" fgbg))
-      (setq bg (string-to-number (substring fgbg (match-beginning 1))))
-      ;; The next line assumes that xterm-standard-colors are ordered
-      ;; by the color index in the ascending order!
-      (setq rgb (car (cddr (nth bg xterm-standard-colors))))
-      ;; See the commentary in frame-set-background-mode about the
-      ;; computation below.
-      (if (< (apply '+ rgb)
-	     ;; The following line assumes that white is the 15th
-	     ;; color in xterm-standard-colors.
-	     (* (apply '+ (car (cddr (nth 15 xterm-standard-colors)))) 0.6))
-	  (setq default-frame-background-mode 'dark)))
-    (frame-set-background-mode (selected-frame))))
-
 ;; Do it!
 (xterm-register-default-colors)
-;; If this xterm is actually a disguised rxvt, be more intelligent about
-;; determining the background mode.
-(and (getenv "COLORTERM")
-     (string-match "\\`rxvt" (getenv "COLORTERM"))
-     (xterm-rxvt-set-background-mode))
 ;; This recomputes all the default faces given the colors we've just set up.
 (tty-set-up-initial-frame-faces)
 
+)
 ;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
 ;;; xterm.el ends here