Re: How to open full window programmatically?

[Jean Louis]

* 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.