Mercurial > emacs

diff lisp/term/rxvt.el @ 83118:7652900ea029

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed environment variable handling during terminal initialization. lisp/server.el (server-getenv): New inline function. lisp/term/rxvt.el (rxvt-set-background-mode): Use server-getenv instead of getenv. lisp/term/x-win.el (x-initialize-window-system): Ditto. lisp/term/xterm.el (xterm-rxvt-set-background-mode): Ditto. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-158
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 08 May 2004 16:20:28 +0000
parents 695cf19ef79e
children 886073e54ccb
line wrap: on
line diff
--- a/lisp/term/rxvt.el	Fri May 07 14:20:00 2004 +0000
+++ b/lisp/term/rxvt.el	Sat May 08 16:20:28 2004 +0000
@@ -26,6 +26,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'server))
+
 ;; Set up function-key-map entries that termcap and terminfo don't know.
 (let ((map (make-sparse-keymap)))
   (define-key map "\e[A" [up])
@@ -148,7 +150,7 @@
 ;; intelligent way than the default guesswork in startup.el.
 (defun rxvt-set-background-mode ()
   "Set background mode as appropriate for the default rxvt colors."
-  (let ((fgbg (getenv "COLORFGBG"))
+  (let ((fgbg (server-getenv "COLORFGBG"))
 	bg rgb)
     (setq frame-background-mode 'light)	; default
     (when (and fgbg