;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, first visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

(setq initial-frame-plist
      (quote (minibuffer t height 40 width 80 top -10 left 220)))

(list-buffers)

(defun problem ()
  (interactive)
  (set-buffer (get-buffer-create
	       "*initial-frame-plist-problem*"))
  (goto-char (point-max))
  (insert (format "TERM has a value of `%s'\n\n" (getenv "TERM")))
  (insert "(current-frame-configuration) has a value of")
  (cl-prettyprint (current-frame-configuration))
  (switch-to-buffer (current-buffer)))

(problem)