Function: quail-make-guidance-frame

quail-make-guidance-frame is a byte-compiled function defined in quail.el.gz.

Signature

(quail-make-guidance-frame)

Documentation

Make a new one-line frame for Quail guidance.

Source Code

;; Defined in /usr/src/emacs/lisp/international/quail.el.gz
;; Guidance, Completion, and Help buffer handlers.

(defun quail-make-guidance-frame ()
  "Make a new one-line frame for Quail guidance."
  (let* ((fparam (frame-parameters))
	 (top (cdr (assq 'top fparam)))
	 (border (cdr (assq 'border-width fparam)))
	 (internal-border (cdr (assq 'internal-border-width fparam)))
	 (newtop (- top
		    (frame-char-height) (* internal-border 2) (* border 2))))
    (if (< newtop 0)
	(setq newtop (+ top (frame-pixel-height) internal-border border)))
    ;; If I leave the `parent-id' parameter, my frame ends up with 13 lines
    ;; rather than just 1.  Not sure what is really going on, but
    ;; clearly this parameter is not needed.  --Stef
    (setq fparam (delq (assoc 'parent-id fparam) fparam))
    (make-frame (append '((user-position . t) (height . 1)
			  (minibuffer)
			  (menu-bar-lines . 0) (tool-bar-lines . 0))
			(cons (cons 'top newtop) fparam)))))