
(defvar amiga-icon-path (quote nil) "\
A list of directories to scan when searching for new icons.")

(if (not (fboundp (quote old-amiga-put-icon))) (fset (quote old-amiga-put-icon) (symbol-function (quote amiga-put-icon))))

(defun amiga-put-icon (file force) (byte-code "†
 É	ÊP!?…x ËÌ	\"ÄÍÎ\"Ä
…$ Ï
W…] ?…. …] @Ð	Ñ
\\ÄOÊR‰ˆ…F É!…T Ò	ÊP\"ˆÈ‰ˆA‰ˆ‚' ˆ?…w ÉÓ!ƒs ÒÓ	ÊP\"‚w Ô	\",‡" [force file extpos iconname nil path amiga-icon-path found t file-readable-p ".info" string-match "\\.[a-zA-Z]*\\'" append ("gnuemacs:icons/") 0 "def_" 1 copy-file "gnuemacs:Icons/def_emacs.info" old-amiga-put-icon] 10))