
(provide (quote sticky))

(make-variable-buffer-local (quote sticky-rexx-port))

(set-default (quote sticky-rexx-port) nil)

(if (not (fboundp (quote old-kill-buffer))) (fset (quote old-kill-buffer) (symbol-function (quote kill-buffer))))

(defun kill-buffer (buffer) "\
One arg, a string or a buffer.  Get rid of the specified buffer.
Any processes that have this buffer as the `process-buffer' are killed
with `delete-process'.
Patched to notify client." (interactive "bKill buffer: ") (byte-code "ÁˆÅ!‰Á=ƒ Á‚C ŠqˆÆ!?†, Ç ?†, 
†, ÈÉÊË \"!…B ÌÁ!ˆ…> ÍÎÏQÄ\"ˆÐ!)‡" [buffer nil noninteractive sticky-rexx-port t get-buffer buffer-modified-p buffer-file-name yes-or-no-p format "Buffer %s modified; kill anyway? " buffer-name set-buffer-modified-p amiga-arexx-send-command "ADDRESS " " TERMINATING" old-kill-buffer] 11))