;;; -*- coding: iso-2022-7bit -*-
;;;
;;; $Id: minibuffer.el,v 1.2 1998/05/07 12:56:11 tsumura Exp tsumura $
;;;

(defvar TT:use-detached-minibuf-only-with-xemacs nil)

;;; @ Minibuffer
;;;
;; XEmacs ----------------------
(when (and (eq window-system 'x) TT:xemacs)
  (require 'detached-minibuf)
  (setq minibuf-frame-height	1
	minibuf-frame-width	142
	minibuf-frame-pos-y	1
	minibuf-frame-pos-x	65
;;;	minibuf-frame-pos-x	1
	)
  (make-detached-minibuf)
;;;  (frame-notice-user-settings)
  (setq default-frame-plist initial-frame-plist)
  (if default-minibuffer-frame
      (set-frame-properties default-minibuffer-frame
		    '([default foreground] "LemonChiffon"
		      [default background] "#004030"
		      [default font] "-*-fixed-medium-r-*--16-*-*-*"))))
;; not XEmacs ------------------
(when (and (eq window-system 'x)
	   (not TT:xemacs)
	   (not TT:use-detached-minibuf-only-with-xemacs))
  (setq initial-frame-alist '((minibuffer . nil)))
  (setq default-frame-alist
	(append default-frame-alist '((minibuffer . nil))))
  (setq minibuffer-frame-alist
	'((name . "Minibuffer")	; set no title-bar in WM
	  (left . 70)	  (top . 1)
;;;	  (left . 1)	  (top . 1)
	  (user-position . t)
	  (height	. 1)	; 1 line
	  (width	. 143)	; full screen width
	  (minibuffer	. only)	; separate frame
	  (auto-raise	. t)	; auto raise
	  (vertical-scroll-bars . nil) ; no scroll-bar
	  (line-space	. 0)	; no line space
	  (background-color . "#004030")
	  (foreground-color . "lemonchiffon")))
  ;; Emacs 19 -----------
  (if TT:emacs19.34
      (setq minibuffer-frame-alist
	    (cons '(font . "-*-fixed-medium-r-*--16-*-iso8859-1")
		  minibuffer-frame-alist)))
  ;; Emacs 20 -----------
  (if TT:emacs20
      (setq minibuffer-frame-alist
	    (append minibuffer-frame-alist
		    `((font . "fontset-16")  ; set in Xresources
		      (cursor-color . ,TT:default-cursor-color)))))
  (make-frame minibuffer-frame-alist))
;;; Local Variables:
;;; outline-regexp: ";;; @"
;;; mode: outline-minor
;;; End: