Current File : //usr/local/share/emacs/27.2/lisp/obsolete/lmenu.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar recompute-lucid-menubar 'recompute-lucid-menubar)
(defalias 'recompute-lucid-menubar #[nil "\304\305\3061 \307\310 \"0\202 \210\311\312!\210\313\314!\210 \315\211#\210\315\211\207" [lucid-menubar-map current-menubar lucid-failing-menubar lucid-menu-bar-dirty-flag define-key [menu-bar] (error) make-lucid-menu-keymap "menu-bar" message "Invalid data in current-menubar moved to lucid-failing-menubar" sit-for 1 nil] 6])
(defvar lucid-menubar-map (make-sparse-keymap))
(byte-code "\302\236\204\f \302 BB\302\207" [minor-mode-map-alist lucid-menubar-map current-menubar] 2)
(defalias 'set-menubar-dirty-flag #[nil "\301 \210\302\211\207" [lucid-menu-bar-dirty-flag force-mode-line-update t] 2])
(defvar add-menu-item-count 0)
(defvar make-lucid-menu-keymap-disable nil)
(defalias 'make-lucid-menu-keymap #[(menu-name menu-items) "\306!\307\n!\211\203r\n@\310\211\211 \211 );\203/ \310\311\312)\"\203) \313\202+ )\202J):\203E \314)@)A\")@\202J\315)!\203J\316\317\320*\"!*T*)\321H)\322H\2119\203o
M\210\202w
\323\310\324 FM\210\325
\326\327#\210\330 ++)GW\203I)+H\331=\203\254 \325
\332)+TH\206\240 \333#\210\330+\\\211+\202\202 )+H\334=\203\300 \330+\\\211+\202\202 )+H\335=\203\324 \330+\\\211+\202\202 )+H\336=\203\350 \330+\\\211+\202\202 )+H\337=\203\374 \330+\\\211+\202\202 )+H9\203 \340\341)+H!!\342U\203 \343\344)+H\"\210\202\200 +\330U\203=\325
\332)+H\2062\333#\210)G\211+\202\202 \343\345)+H\"\210\202\200 )
\204Z \310\fD AB\241\210\202j\f\203j\346 \347\350\f!!\f
B#\210,\nA\211\204\f )\207" [menu-name menu menu-items callback name command make-sparse-keymap reverse nil string-match "^-+$" "" make-lucid-menu-keymap vectorp make-symbol format "menu-function-%d" 0 1 lambda (interactive) put menu-alias t 2 :active menu-enable make-lucid-menu-keymap-disable :suffix :keys :style :selected string-to-char symbol-name 58 error "Unrecognized menu item keyword: %S" "Unexpected menu item value: %S" define-key vector intern item add-menu-item-count i] 6])
#@1157 Pop up a dialog box.
A dialog box description is a list.
- The first element of the list is a string to display in the dialog box.
- The rest of the elements are descriptions of the dialog box's buttons.
Each one is a vector of three elements:
- The first element is the text of the button.
- The second element is the `callback'.
- The third element is t or nil, whether this button is selectable.
If the `callback' of a button 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'.
One (and only one) of the buttons may be nil. This marker means that all
following buttons should be flushright instead of flushleft.
The syntax, more precisely:
form := <something to pass to `eval'>
command := <a symbol or string, to pass to `call-interactively'>
callback := command | form
active-p := <t, nil, or a form to evaluate to decide whether this
button should be selectable>
name := <string>
partition := `nil'
button := `[' name callback active-p `]'
dialog := `(' name [ button ]+ [ partition [ button ]+ ] `)'
(defalias 'popup-dialog-box #[(data) "@A\306\211\211 \f\203H \f@\204 \306 B\202A \f@\307H\f@\310H\f@\311H \203; B\202= B+\fA\211\204 \312\313
\237B\"\211\205b \n9\203_ \314\n!\202b \315\n!-\207" [data meaning choice converted tail name nil 0 1 2 x-popup-dialog t call-interactively eval enable callback item] 6 (#$ . 2467)])
(defconst default-menubar nil)
#@40 Set the default menubar to be menubar.
(defalias 'set-menubar #[(menubar) "\301\302\303!\"\210\304 \207" [menubar set-default current-menubar copy-sequence set-menubar-dirty-flag] 4 (#$ . 4012)])
#@45 Set the buffer-local menubar to be menubar.
(defalias 'set-buffer-menubar #[(menubar) "\302\301!\210\303!\304 \207" [menubar current-menubar make-local-variable copy-sequence set-menubar-dirty-flag] 2 (#$ . 4215)])
#@177 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 'find-menu-item #[(menubar item-path-list &optional parent) "\204 \305\306 \"\n:\205} \n\307\211 \203N \f@\203G @\310\f@!\203+ \f@\311H\2029 \f@;\2036 \f@\2029 \f@@\227\232\203G \f@\307\211\202 \fA\211\204 A\203y :\203b \312 A A #\202| \203o \313\314\315 D\"\202| \313\314\316 @D\"\202| B*\207" [parent item-path-list menubar result rest mapcar downcase nil vectorp 0 find-menu-item signal error "not a submenu" "no such submenu"] 5 (#$ . 4439)])
#@312 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 'disable-menu-item #[(path) "\306 \n\"\211@ A \f\204 \307\310
\203 \311\202 \312\nD\"\210\f:\203) \310\313!\210\f\314\315I\210\316 \210\f,\207" [current-menubar menubar path pair item menu find-menu-item signal error "No such menu item" "No such menu" "can't disable menus, only menu items" 2 nil set-menubar-dirty-flag] 5 (#$ . 5094)])
#@310 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".
(defalias 'enable-menu-item #[(path) "\306 \n\"\211@ A \f\204 \307\310
\203 \311\202 \312\nD\"\210\f:\203* \310\313\n\"\210\f\314\315I\210\316 \210\f,\207" [current-menubar menubar path pair item menu find-menu-item signal error "No such menu item" "No such menu" "%S is a menu, not a menu item" 2 t set-menubar-dirty-flag] 5 (#$ . 5766)])
(defalias 'add-menu-item-1 #[(item-p menu-path item-name item-data enabled-p before) "\203 \227 \3061 \307\n \"@0\202 \210\310\211 <\203( \307\fA
C\"@\202. \311\312\313 D\" \f\204\237 \n \211 \203\236 \n=\203Q \307@C\"@\202[ \307A@C\"@\211\204\222 \211 \204l \312\314!\210A\203\202 A@\203\202 A\211\202n @C\211CA\244\241\210)\fA\211\204> *\f\204\245 \n\204 \203\273 \315
#\202\301
B\203\314 \307\fC\"@\f\310 \203\374 A@=\203\363 AB\241\210\310\316\202\322 A\211\204\327 \204 \f\n=\203\f@=\203\fB\211\202 \fC\244\210*\2037\317I\210\320??I\210\202B
\240\210\241\210\321 \210+\207" [before current-menubar menubar menu-path menu item-name (error) find-menu-item nil signal error "not a submenu" "Trying to modify a menu that doesn't exist" vector t 1 2 set-menubar-dirty-flag item so-far rest rest2 item-p item-data enabled-p added-before] 5])
#@884 Add a menu item to some menu, creating the menu first if necessary.
If the named item exists already, it is changed.
MENU-PATH identifies the menu under which the new menu item should be inserted.
It is a list of strings; for example, ("File") names the top-level "File"
menu. ("File" "Foo") names a hypothetical submenu of "File".
ITEM-NAME is the string naming the menu item to be added.
FUNCTION is the command to invoke when this menu item is selected.
If it is a symbol, then it is invoked with `call-interactively', in the same
way that functions bound to keys are invoked. If it is a list, then the
list is simply evaluated.
ENABLED-P controls whether the item is selectable or not.
BEFORE, if provided, is the name of a menu item before which this item should
be added, if this item is not on the menu already. If the item is already
present, it will not be moved.
(defalias 'add-menu-item #[(menu-path item-name function enabled-p &optional before) "\204 \305\306!\210 \204 \305\307!\210\310\311 \n \f&\207" [menu-path item-name function enabled-p before error "must specify a menu path" "must specify an item name" add-menu-item-1 t] 7 (#$ . 7393)])
#@322 Remove the named menu item from the menu hierarchy.
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 'delete-menu-item #[(path) "\306 \n\"\211@ A\206 \f\205,
=\203# \307\f
\"\202( \307\f
\"\210\310 \210\f,\207" [current-menubar menubar path pair item menu find-menu-item delq set-menubar-dirty-flag] 4 (#$ . 8575)])
#@390 Change the string of the specified menu item.
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".
NEW-NAME is the string that the menu item will be printed as from now on.
(defalias 'relabel-menu-item #[(path new-name) ";\204\f \306\307\310D\" \311\n \"\211 @ \fA
\204. \306\312\203) \313\202* \314 D\"\210
:\203@
@;\203@
\240\210\202E
\315I\210\316 \210
,\207" [new-name current-menubar menubar path pair item signal wrong-type-argument stringp find-menu-item error "No such menu item" "No such menu" 0 set-menubar-dirty-flag menu] 5 (#$ . 9138)])
#@893 Add a menu to the menubar or one of its submenus.
If the named menu exists already, it is changed.
MENU-PATH identifies the menu under which the new menu should be inserted.
It is a list of strings; for example, ("File") names the top-level "File"
menu. ("File" "Foo") names a hypothetical submenu of "File".
If MENU-PATH is nil, then the menu will be added to the menubar itself.
MENU-NAME is the string naming the menu to be added.
MENU-ITEMS is a list of menu item descriptions.
Each menu item should be a vector of three elements:
- a string, the name of the menu item;
- a symbol naming a command, or a form to evaluate;
- and a form whose value determines whether this item is selectable.
BEFORE, if provided, is the name of a menu before which this menu should
be added, if this menu is not on its parent already. If the menu is already
present, it will not be moved.
(defalias 'add-menu #[(menu-path menu-name menu-items &optional before) "\204 \304\305!\210 \204 \304\306!\210\307\310\n \311 &\207" [menu-name menu-items menu-path before error "must specify a menu name" "must specify some menu items" add-menu-item-1 nil t] 7 (#$ . 9924)])
(defvar put-buffer-names-in-file-menu t)
(byte-code "\301!\210\302\303!\207" [default-menubar set-menubar provide lmenu] 2)
Mini Shell