(provide (quote button))

(fset (quote move-button) (symbol-function (quote epoch::move-zone)))

(fset (quote make-button) (symbol-function (quote epoch::make-zone)))

(fset (quote button-style) (symbol-function (quote epoch::zone-style)))

(fset (quote button-data) (symbol-function (quote epoch::zone-data)))

(fset (quote button-start) (symbol-function (quote epoch::zone-start)))

(fset (quote button-end) (symbol-function (quote epoch::zone-end)))

(fset (quote button-at) (symbol-function (quote epoch::zone-at)))

(fset (quote buttons-at) (symbol-function (quote epoch::zones-at)))

(fset (quote delete-button) (symbol-function (quote epoch::delete-zone)))

(fset (quote delete-button-at) (symbol-function (quote epoch::delete-zone-at)))

(fset (quote buttonp) (symbol-function (quote epoch::zonep)))

(fset (quote button-list) (symbol-function (quote epoch::zone-list)))

(fset (quote buttons-in-region) (symbol-function (quote epoch::zones-in-region)))

(fset (quote button-buffer) (symbol-function (quote epoch::zone-buffer)))

(fset (quote set-button-style) (symbol-function (quote epoch::set-zone-style)))

(fset (quote set-button-data) (symbol-function (quote epoch::set-zone-data)))

(fset (quote button-read-only-p) (symbol-function (quote epoch::zone-read-only-p)))

(fset (quote set-button-read-only) (symbol-function (quote epoch::set-zone-read-only)))

(fset (quote button-transient-p) (symbol-function (quote epoch::zone-transient-p)))

(fset (quote set-button-transient) (symbol-function (quote epoch::set-zone-transient)))

(fset (quote clear-buttons) (symbol-function (quote epoch::clear-zones)))

(fset (quote add-button) (symbol-function (quote epoch::add-zone)))

(fset (quote add-read-only-button) (symbol-function (quote add-read-only-zone)))

(if (fboundp (quote add-graphic-zone)) (fset (quote add-graphic-button) (symbol-function (quote add-graphic-zone))))

(fset (quote epoch::move-button) (symbol-function (quote epoch::move-zone)))

(fset (quote epoch::make-button) (symbol-function (quote epoch::make-zone)))

(fset (quote epoch::button-style) (symbol-function (quote epoch::zone-style)))

(fset (quote epoch::button-data) (symbol-function (quote epoch::zone-data)))

(fset (quote epoch::button-start) (symbol-function (quote epoch::zone-start)))

(fset (quote epoch::button-end) (symbol-function (quote epoch::zone-end)))

(fset (quote epoch::button-at) (symbol-function (quote epoch::zone-at)))

(fset (quote epoch::buttons-at) (symbol-function (quote epoch::zones-at)))

(fset (quote epoch::delete-button) (symbol-function (quote epoch::delete-zone)))

(fset (quote epoch::delete-button-at) (symbol-function (quote epoch::delete-zone-at)))

(fset (quote epoch::buttonp) (symbol-function (quote epoch::zonep)))

(fset (quote epoch::button-list) (symbol-function (quote epoch::zone-list)))

(fset (quote epoch::buttons-in-region) (symbol-function (quote epoch::zones-in-region)))

(fset (quote epoch::read-only-region-p) (symbol-function (quote epoch::read-only-region-p)))

(fset (quote epoch::button-buffer) (symbol-function (quote epoch::zone-buffer)))

(fset (quote epoch::set-button-style) (symbol-function (quote epoch::set-zone-style)))

(fset (quote epoch::set-button-data) (symbol-function (quote epoch::set-zone-data)))

(fset (quote epoch::button-read-only-p) (symbol-function (quote epoch::zone-read-only-p)))

(fset (quote epoch::set-button-read-only) (symbol-function (quote epoch::set-zone-read-only)))

(fset (quote epoch::button-transient-p) (symbol-function (quote epoch::zone-transient-p)))

(fset (quote epoch::set-button-transient) (symbol-function (quote epoch::set-zone-transient)))

(fset (quote epoch::clear-buttons) (symbol-function (quote epoch::clear-zones)))

(fset (quote epoch::add-button) (symbol-function (quote epoch::add-zone)))

(fset (quote epoch::add-read-only-button) (symbol-function (quote add-read-only-zone)))

(if (fboundp (quote add-graphic-zone)) (fset (quote epoch::add-graphic-button) (symbol-function (quote add-graphic-zone))))