;;; Source file: /usr/local/lib/jade/3.2/lisp/windows.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:49 1994
;;; Jade 3.2

(defvar window-list (cons (current-window) nil) 73861)

(defvar window-closed-hook (quote (close-window)) 73889)

(defun open-window (&optional buffer x y w h) 73972 (interactive) (jade-byte-code "DI12ÿ I²F#HF!þ 7	KF&	H¶Ž‹KF H°G¶HHE" [buffer-list win old-buf-list buffer make-window x y w h window-list] 5))

(defun close-window (&optional win) 74058 (interactive) (jade-byte-code "ÿ F Hbü û ‹F%H	" [win current-window window-count 1 save-and-quit window-list destroy-window] 2))

(defun close-other-windows (&optional win) 74099 (interactive) (jade-byte-code "ÿ F H‹F\"Hþ  L	HMF\"Hû HIKF\"" [win current-window window-list destroy-window] 2))

(defun add-buffer (buffer) 74153 (jade-byte-code "D1nþ !L¶‹IK
F$G¶HHMF!Hû E" [window-list win-list nconc buffer buffer-list] 5))

(defun remove-buffer (buffer) 74256 (jade-byte-code "D1nþ *L¶‹F#HL²aþ LL°G¶HHMF!Hû E" [window-list win-list buffer buffer-list] 3))

(defun in-other-window (command) 74325 (jade-byte-code "H	" [goto-other-window call-command command] 2))

(defun goto-other-window nil 74394 (interactive) (jade-byte-code "J
" [set-current-window other-window] 3))

(defun in-new-window (command) (jade-byte-code "H	" [goto-new-window call-command command] 2))

(defun goto-new-window nil (interactive) (jade-byte-code "J
" [set-current-window open-window] 3))

(defun other-window nil 74424 (jade-byte-code "bü û Laü MLû L" [1 window-count open-window window-list current-window] 2))

(defun toggle-iconic nil 74466 (interactive) (jade-byte-code "ü 
û " [window-asleep-p unsleep-window sleep-window] 1))
