(require (quote mini-cl))

(provide (quote convert-buttons))

(defun convert-current-buffer nil "\
Convert button references to zones" (interactive) (byte-code "ˆŠÃÄ\"ˆÂÂ))‡" [cmd-list repl-string nil mapcar (lambda (repl-string) (byte-code "ebˆÁ@Â!\"ˆÃÄ@\"‡" [repl-string replace-string cadr message "Doing %s"] 5))] 3))

(setq cmd-list (list (list "button-text" "zone-text") (list "clear-buttons" "clear-zones") (list "move-button" "move-zone") (list "make-button" "make-zone") (list "button-style" "zone-style") (list "button-data" "zone-data") (list "button-start" "zone-start") (list "button-end" "zone-end") (list "button-at" "zone-at") (list "buttons-at" "zones-at") (list "delete-button-at" "delete-zone-at") (list "delete-button" "delete-zone") (list "buttonp" "zonep") (list "button-list" "zone-list") (list "buttons-in-region" "zones-in-region") (list "button-buffer" "zone-buffer") (list "set-button-style" "set-zone-style") (list "button-style" "zone-style") (list "set-button-data" "set-zone-data") (list "button-data" "set-zone-data") (list "set-button-read-only" "set-zone-read-only") (list "button-read-only-p" "zone-read-only-p") (list "set-button-transient" "set-zone-transient") (list "button-transient-p" "zone-transient-p") (list "add-button" "add-zone") (list "add-read-only-button" "add-read-only-zone") (list "add-graphic-button" "add-graphic-zone") (list "buttons-modify-buffer" "zones-modify-buffer")))