Re: How to open full window programmatically?

[Jean Louis <bugs@gnu.support>]

* Jamie Beardslee <jdb@jamzattack.xyz> [2020-12-03 04:03]:
> By "open full window", do you mean (delete-other-windows)?

This here does not work:

(defun hyperscope-key ()
  (interactive)
  (let ((buffer "*HyperScope*"))
    (if (bufferp (get-buffer buffer))
	(cond ((and (one-window-p) hyperscope-full-window) (switch-to-buffer buffer))
	      ((and (not (one-window-p)) hyperscope-full-window) (progn
								   (switch-to-buffer-other-window buffer)
								   (delete-other-windows)))
	      ((one-window-p) (switch-to-buffer buffer))
	      ((not (one-window-p)) (switch-to-buffer-other-window buffer)))
      (hyperscope))))

One time it opens split window from one window, second time opens full
window with one window.

hyperscope-full-window is true

(one-window-p) is true

I do not know why first condition is not working every time but every
second time.