
(defvar amiga-menus-description nil "\
Variable containing the menus setup for Emacs")

(defun amiga-menus-set (menus) "\
Setup menus for emacs (parameter as for amiga-menus)" (byte-code "Ä	Å#ˆ‰ˆÆ!‡" [mouse-map amiga-button-right-up amiga-menus-description menus define-key amiga-menus-dispatch amiga-menus] 4))

(defun amiga-menus-dispatch (selection) (byte-code "	@	A@Ä
8A@8A@!*‡" [menu selection item amiga-menus-description eval] 4))

(defun make-explicit-string (str) (byte-code "GÁY… ÂÃ\"ÄU… ÂÅ\"ÆWƒ+ ÇÈÆÂÅ\"\\!ÁÉOP!‚. Ç!‡" [str 2 elt 0 27 1 128 key-description char-to-string nil] 9))

(defun make-command-name (command str width) (byte-code "Ç	ÂÃ#ƒ ‚ È	!ƒ$ ÉÉÊ\"Ë!#‚% *‡" [keys command nil t string str width where-is-internal symbol-name format "%%-%ds%%s" make-explicit-string] 8))

(defun menu-items (commands) (byte-code "ÃÄÅ
\"ÄÆ
\"*‡" [width names commands 0 mapcar (lambda (cmd) (byte-code "…! 9ƒ Ä!‚ @	G
V… 
‰ˆ	*‡" [cmd name len width symbol-name] 3)) (lambda (cmd) (byte-code "	@	A‰ˆ
…+ 
9ƒ 
‚ 
A@ÅÆ\\#ÇÈDD
AA@E))‡" [name names cmd command width make-command-name 2 call-interactively quote] 5))] 4))