home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / lisp / windows.jlc < prev   
Encoding:
Text File  |  1994-04-20  |  1.1 KB  |  17 lines
  1.  
  2. (setq window-list (cons (current-window) nil))
  3.  
  4. (defun open-window (&optional buffer x y w h) 54464 (lisp-code "DI12ÿ€I²F#H†‡ˆ F!þ€»‰KF&‰H¶Š‹\t\nKF H°G¶HHE" [buffer-list win old-buf-list buffer make-window x y w h window-list delq copy-list] 6))
  5.  
  6. (defun close-window (&optional win) 54598 (lisp-code "ÿ€ˆF Hbü€•û€¢†\nF&†H‡\t" [win current-window window-count 1 save-and-quit delq window-list destroy-window] 3))
  7.  
  8. (defun close-other-windows (&optional win) 54660 (lisp-code "ÿ€ˆF H\nF#Hþ€¡L\tHMF#Hû€HIKF#" [win current-window delq window-list destroy-window] 3))
  9.  
  10. (defun add-buffer (buffer) 54742 (lisp-code "D1nþ€¢L¶\nIK\nF%G¶HHMF!Hû€ƒE" [window-list win-list nconc delq buffer buffer-list] 5))
  11.  
  12. (defun remove-buffer (buffer) 54865 (lisp-code "D1nþ€«L¶\nF$HL²aþ€ŸLL°G¶HHMF!Hû€ƒE" [window-list win-list delq buffer buffer-list] 4))
  13.  
  14. (defmacro in-other-window (&rest body) 54957 (lisp-code "KK" [progn (goto-other-window) body] 3))
  15.  
  16. (defun goto-other-window nil 55050 (lisp-code "bü€û€Laü€›MLû€LJ\n" [set-current-window 1 window-count open-window window-list current-window] 3))
  17.