;ELC   
;;; compiled by wmperry@monolith.perry.org on Thu May 12 13:01:20 1994
;;; from file /u/wmperry/lisp/development/w3/w3/w3-mac.el
;;; emacs version 19.10 Lucid (beta22).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(fset 'w3-install-menu-lucid-style #[(menudesc) "ÀÁ \n@\"Ã\nA\n«¿\n@\nAÆ!«’ÇÈHÉÊËDÌHCE#ˆª`;«ˆÇÍÃ#ˆªT<¬P¬ˆÇÍÃ#ˆªEÎÏ\"ˆª>ÐÃ\"ˆÑ *‡" [NewMenu get-unique-menu-ID menudesc nil tmp mnu vectorp AppendMenu 0 lambda x y 1 "(-" message "Bad menu descriptor %S" InsertMenu DrawMenuBar] 7 "\
Install a lucid style menu on the mac version of emacs 18"])
(fset 'w3-install-mac-menus #[nil "ÀÁÂ\"‡" [mapcar w3-install-menu-lucid-style (w3-popup-menu w3-help-menu w3-annotation-menu w3-navigate-menu w3-options-menu)] 3 "\
Install menus on a macintosh"])