Function: zone-fill-out-screen

zone-fill-out-screen is a byte-compiled function defined in zone.el.gz.

Signature

(zone-fill-out-screen WIDTH HEIGHT)

Source Code

;; Defined in /usr/src/emacs/lisp/play/zone.el.gz
(defun zone-fill-out-screen (width height)
  (let ((start (window-start))
	(line (make-string width 32)))
    (goto-char start)
    ;; fill out rectangular ws block
    (while (progn (end-of-line)
		  (let ((cc (current-column)))
		    (if (< cc width)
			(insert (substring line cc))
		      (delete-char (- width cc)))
		    (cond ((eobp) (insert "\n") nil)
			  (t (forward-char 1) t)))))
    ;; pad ws past bottom of screen
    (let ((nl (- height (count-lines (point-min) (point)))))
      (when (> nl 0)
	(setq line (concat line "\n"))
        (dotimes (_ nl)
	  (insert line))))
    (goto-char start)
    (recenter 0)
    (sit-for 0)))