diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2004-05-08 16:20:28 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2004-05-08 16:20:28 +0000 |
| commit | 2cd1371d9b0a3217db747b3c7485dd7f3cd6dda5 (patch) | |
| tree | a8afcaf1b4c727c9a8c928cf2f654819bc2a8a86 /lisp/term/rxvt.el | |
| parent | 52f9ab73a16c71ffe7f8a1c25f9432bbe32f10cf (diff) | |
| download | emacs-2cd1371d9b0a3217db747b3c7485dd7f3cd6dda5.tar.gz | |
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
Diffstat (limited to 'lisp/term/rxvt.el')
| -rw-r--r-- | lisp/term/rxvt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el index 7839ebba95d..3dbea1d46b2 100644 --- a/lisp/term/rxvt.el +++ b/lisp/term/rxvt.el @@ -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 @@ for the currently selected frame." ;; 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 |