ウィンドウが分割されているかどうかを確かめる

(defun one-window-p-test ()
  (interactive)
  ;; 分割されているときはnilを返す
  (message "nomini t:%s nil:%s" (one-window-p t) (one-window-p)))
;; C-x pでone-window-pの挙動を確認できる
(global-set-key (kbd "C-x p") 'one-window-p-test)

P129

Emacs Lispテクニックバイブル