;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Aug 14 16:16:28 1994 ;;; from file /home/fsf/rms/e19/lisp/easymenu.el ;;; emacs version 19.25.93.1. ;;; bytecomp version FSF 2.10 ;;; 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 "`/home/fsf/rms/e19/lisp/easymenu.el' was compiled for Emacs 19")) (defalias 'easy-menu-define '(macro . #[(symbol maps doc menu) "ÀÁ DÂ\nDÃBBÄBB‡" [let* maps menu ((keymap (easy-menu-create-keymaps (car menu) (cdr menu)))) ((and (keymapp maps) (setq maps (list maps))) (while maps (define-key (car maps) (vector (quote menu-bar) (intern (car menu))) (cons (car menu) keymap)) (setq maps (cdr maps))))] 4 "\ Define a menu bar submenu in maps MAPS, according to MENU. The arguments SYMBOL and DOC are ignored; they are present for compatibility only. SYMBOL is not evaluated. In other Emacs versions these arguments may be used as a variable to hold the menu data, and a doc string for that variable. The first element of MENU must be a string. It is the menu bar item name. The rest of the elements are menu items. A menu item is usually a vector of three elements: [NAME CALLBACK ENABLE] NAME is a string--the menu item name. CALLBACK is a command to run when the item is chosen, or a list to evaluate when the item is chosen. ENABLE is an expression; the item is enabled for selection whenever this expression's value is non-nil. A menu item can be a string. Then that string appears in the menu as unselectable text. A string consisting solely of hyphens is displayed as a solid horizontal line. A menu item can be a list. It is treated as a submenu. The first element should be the submenu name. That's used as the menu item in the top-level menu. The cdr of the submenu list is a list of menu items, as above."])) (byte-code "ÀÁ!„ÂÃÄÅ\"‡" [boundp easy-menu-item-count 0 defalias easy-menu-create-keymaps #[(menu-name menu-items) "À !Ã\f!‰ƒÆ\f@Æ !… ÇHÉ\nÉ É\f ;ƒ<É\nÍÎ \"ƒ6Ï‚7 \f‚˜ :ƒPÐ @ A\"\n @\f‚˜Æ !ƒ˜ÑÒÓ\"!\nTÕ\nÖ ×H#ˆ ØH\fÙ!ƒ\fÚP\f9ƒŽ\nMˆ‚˜\nÛÉÜFMˆ\n„ª\nÉ\fD\nAB¡ˆ‚¾\fƒ¾Ý\nÞß\f!!\f\nB#ˆ-\fA‰„\f\n)‡" [make-sparse-keymap menu-name menu reverse menu-items item vectorp 1 callback nil command enabler name string-match "^-+$" "" easy-menu-create-keymaps make-symbol format "menu-function-%d" easy-menu-item-count put menu-enable 2 0 keymapp " ..." lambda (interactive) define-key vector intern] 6]] 3) (defalias 'easy-menu-change #[(path name items) "ÀÁÂÃÄÅÆC\"\"#! Ê !ƒ& Ë\f\"A¡‚)ÍÎ!)‡" [key-binding apply vector menu-bar mapcar intern append path name map keymapp easy-menu-create-keymaps items error "Malformed menu in `easy-menu-change'"] 9 "\ Change menu found at PATH as item NAME to contain ITEMS. PATH is a list of strings for locating the menu containing NAME in the menu bar. ITEMS is a list of menu items, as in `easy-menu-define'. These items entirely replace the previous items in that map. Call this from `activate-menubar-hook' to implement dynamic menus."]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÆ!‡" [defalias easy-menu-remove (macro lambda (menu)) easy-menu-add (macro lambda (menu &optional map)) provide easymenu] 3)