;; terminal faces

(if window-system
    (error "%s: Loading f-term.el but not running under terminal."
	   (invocation-name))
  (if (null (boundp 'region-face))
      (error "%s:  Loading f-term.el but not compiled with terminal-face."
	     (invocation-name))))

(require 'faces)

(defvar terminal-frame-parameters (list (cons 'foreground-color "white")
					(cons 'background-color "black")
					(cons 'font "normal"))
  "Default parameters for terminal frame")

(modify-frame-parameters nil terminal-frame-parameters)