Mercurial > emacs
diff lisp/term/rxvt.el @ 83118:7652900ea029
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