
(defvar zwgc-slow-display t "\
*Flag telling zwgc whether or not to keep the *zwgc* window
visible after a zwgc-punt, and to always keep the window the
same size.  Useful if you use a slow display.")

(defun zwgc-punt (&optional nodisplay) "\
Delete the current Zephyr notice.  Optional argument NODISPLAY
means not to display the new current notice after punting." (interactive) (byte-code "ÇˆÊW… ËÌ!ˆÊp8ÍÎ!qˆÏ ˆ@=?ƒ. Ð\"‰‚F Ð\"‰ˆÑ!‰ˆÊV…F S‰ˆS‰ˆÒ@A\"ˆÓ@Ç\"ˆÓAÇ\"ˆedW?ƒŠ ƒz Ô ÕÎ!=…w ÖÊ!‚‡ × ?…‡ ØÎ!ˆÙÎ!‚’ 	?…’ Ú ˆÛÜ!ˆ
q+‡" [zwgc-notices window-min-height buffer marker zwgc-marker-index zwgc-marker-list zwgc-marker-tail nil zwgc-slow-display nodisplay 1 error "No notices to punt!" get-buffer "*zwgc*" widen delq last delete-region set-marker selected-window get-buffer-window other-window one-window-p delete-windows-on bury-buffer zwgc-current-notice run-hooks zwgc-killed-noticed-hook] 18))

(defun zwgc-maybe-resize-window nil "\
Like zwgc-resize-window, but will selected the *zwgc* window
if it's visible, and will do nothing if it's not." (byte-code "ÂÃ!Ä … Å!ˆÆ ˆÅ	!*‡" [w ow get-buffer-window "*zwgc*" selected-window select-window zwgc-resize-window] 6))

(defun zwgc-install-window-functions nil "\
Installs replacements for C-x 0, C-x 1, and C-x 2 that try hard 
to keep the *zwgc* buffer displayed and fixed in size." (interactive) (byte-code "ÁˆÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#‡" [global-map nil define-key "0" zwgc-hacked-delete-window "1" zwgc-hacked-delete-other-windows "2" zwgc-hacked-split-window] 6))

(defun zwgc-hacked-split-window (&rest args) "\
Replacement for split-window that tries hard
to keep the *zwgc* buffer displayed and fixed in size." (interactive) (byte-code "ÁˆÂÃ\"ˆÄ ‡" [args nil apply split-window zwgc-maybe-resize-window] 3))

(defun zwgc-hacked-delete-window (&rest args) "\
Replacement for delete-window that tries hard
to keep the *zwgc* buffer displayed and fixed in size." (interactive) (byte-code "ÁˆÂÃ\"ˆÄ ‡" [args nil apply delete-window zwgc-maybe-resize-window] 3))

(defun zwgc-hacked-delete-other-windows (&rest args) "\
Replacement for delete-other-windows that tries hard
to keep the *zwgc* buffer displayed and fixed in size." (interactive) (byte-code "ÄˆÅ ÆÇ!ÈÅ É\"Ä
=?…6 
‰ˆÈ
É\"‰ˆ	=†2 =†2 Ê!ˆ‚ ,ˆË ‡" [sw zw nw w nil selected-window get-buffer-window "*zwgc*" next-window 1 delete-window zwgc-maybe-resize-window] 8))

(if zwgc-slow-display (setq zwgc-window-min-height zwgc-window-max-height) (zwgc-install-window-functions))