;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 21:56:29 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/lmenu.el ;;; emacs version 19.5.19. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "M! \" BBM!,\nM" [recompute-lucid-menubar #[nil " ŏ#É" [define-key lucid-menubar-map [menu-bar] nil (make-lucid-menu-keymap "menu-bar" current-menubar) ((error (byte-code "!! Ɖ" [message "Invalid data in current-menubar moved to lucid-failing-menubar" sit-for 1 current-menubar lucid-failing-menubar nil] 2))) lucid-menu-bar-dirty-flag] 6] boundp lucid-menubar-map make-sparse-keymap assq current-menubar minor-mode-map-alist set-menubar-dirty-flag #[nil " " [force-mode-line-update t lucid-menu-bar-dirty-flag] 2] add-menu-item-count 0 make-lucid-menu-keymap #[(menu-name menu-items) " ! ! @ ! H\n  ;1\n  :E @ A\"\n @ !\"!\n\"! T\n # HL H 9\nM\nFM \n !! \nB#- A \n)" [make-sparse-keymap menu-name menu reverse menu-items item vectorp 1 callback nil command enabler name make-lucid-menu-keymap make-symbol format "menu-function-%d" add-menu-item-count "menu-function-%d-enabler" put menu-enable 2 0 lambda (interactive) define-key vector intern] 6]] 3) (defalias 'popup-menu #[(menu-desc) " @ A\"  A@ AAD @D\" !\"\n-\n!+" [make-lucid-menu-keymap menu-desc mouse-position nil answer pos menu x-popup-menu lookup-key vector cmd call-interactively] 5 "\ Pop up the given menu. A menu is a list of menu items, strings, and submenus. The first element of a menu must be a string, which is the name of the menu. This is the string that will be displayed in the parent menu, if any. For toplevel menus, it is ignored. This string is not displayed in the menu itself. A menu item is a vector of three or four elements: - the name of the menu item (a string); - the `callback' of that item; - whether this item is active (selectable); - and an optional string to append to the name. If the `callback' of a menu item is a symbol, then it must name a command. It will be invoked with `call-interactively'. If it is a list, then it is evaluated with `eval'. The fourth element of a menu item is a convenient way of adding the name of a command's ``argument'' to the menu, like ``Kill Buffer NAME''. If an element of a menu is a string, then that string will be presented in the menu as unselectable text. If an element of a menu is a string consisting solely of hyphens, then that item will be presented as a solid horizontal line. If an element of a menu is a list, it is treated as a submenu. The name of that submenu (the first element in the list) will be used as the name of the item representing this menu on the parent. The syntax, more precisely: form := command := callback := command | form active-p := text := name := argument := menu-item := '[' name callback active-p [ argument ] ']' menu := '(' name [ menu-item | menu | text ]+ ')' "]) (byte-code "" [nil default-menubar] 1) (defalias 'set-menubar #[(menubar) " !\" " [set-default current-menubar copy-sequence menubar set-menubar-dirty-flag] 4 "\ Set the default menubar to be menubar."]) (defalias 'set-buffer-menubar #[(menubar) "! ! " [make-local-variable current-menubar copy-sequence menubar set-menubar-dirty-flag] 2 "\ Set the buffer-local menubar to be menubar."]) (defalias 'find-menu-item #[(menubar item-path-list &optional parent) " \" :?? _@V @@!4@HE@;A@E@@!\"V@ʼnA A:vA A#D\" @D\"B*" [parent mapcar downcase item-path-list menubar nil result rest equal vectorp 0 find-menu-item signal error "not a submenu" "no such submenu"] 6 "\ Searches MENUBAR for item given by ITEM-PATH-LIST. Returns (ITEM . PARENT), where PARENT is the immediate parent of the item found. Signals an error if the item is not found."]) (defalias 'disable-menu-item #[(path) " \"@ A \"ɂ D\" :+! I ," [current-menubar menubar find-menu-item path pair item menu signal error "No such menu item" "No such menu" "can't disable menus, only menu items" 2 nil set-menubar-dirty-flag] 5 "\ Make the named menu item be unselectable. PATH is a list of strings which identify the position of the menu item in the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."]) (defalias 'enable-menu-item #[(path) " \"@ A \"ɂ D\" :, \" I ," [current-menubar menubar find-menu-item path pair item menu signal error "No such menu item" "No such menu" "%S is a menu, not a menu item" 2 t set-menubar-dirty-flag] 5 "\ Make the named menu item be selectable. PATH is a list of strings which identify the position of the menu item in the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."]) (fset (quote add-menu-item-1) #[(item-p menu-path item-name item-data enabled-p before) "!\nƏ