;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303\"\204\304\305\306\307!#\210\310\302\207" [global-map menu-bar-final-items lookup-key [menu-bar] define-key [menu-bar] make-sparse-keymap "menu-bar" (help-menu)] 5)
(defvar global-buffers-menu-map (make-sparse-keymap "Buffers"))
(defvar menu-bar-print-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\207" [make-sparse-keymap "Print" bindings--define-key [ps-print-region] (menu-item "PostScript Print Region (B+W)" ps-print-region :enable mark-active :help "Pretty-print marked region in black and white to PostScript printer") [ps-print-buffer] (menu-item "PostScript Print Buffer (B+W)" ps-print-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pretty-print current buffer in black and white to PostScript printer") [ps-print-region-faces] (menu-item "PostScript Print Region" ps-print-region-with-faces :enable mark-active :help "Pretty-print marked region to PostScript printer") [ps-print-buffer-faces] (menu-item "PostScript Print Buffer" ps-print-buffer-with-faces :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pretty-print current buffer to PostScript printer") [print-region] (menu-item "Print Region" print-region :enable mark-active :help "Print region between mark and current position") [print-buffer] (menu-item "Print Buffer" print-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Print current buffer with page headings")] 5))
(defvar menu-bar-file-menu (byte-code "\302\303!\304
\305\306#\210\304
\307#\210\304
\310\311\312	E#\210\304
\313#\210\314\315!\2046\304
\316\317#\210\304
\320\321#\210\304
\322#\210\304
\323\324#\210\304
\325\326#\210\304
\327\330#\210\304
\331\332#\210\304
\333#\210\304
\334\335#\210\304
\336\337#\210\304
\340\341#\210\304
\342#\210\304
\343\344#\210\304
\345\346#\210\304
\347\350#\210\304
\351\352#\210\304
\353#\210\304
\354\355#\210\304
\356\357#\210\304
\360\361#\210\304
\362\363#\210\304
\364\365#\210\207" [menu-bar-separator menu-bar-print-menu make-sparse-keymap "File" bindings--define-key [exit-emacs] (menu-item "Quit" save-buffers-kill-terminal :help "Save unsaved buffers, then exit") [separator-exit] [print] menu-item "Print" [separator-print] featurep ns [close-tab] (menu-item "Close Tab" tab-close :visible (fboundp 'tab-close) :help "Close currently selected tab") [make-tab] (menu-item "New Tab" tab-new :visible (fboundp 'tab-new) :help "Open a new tab") [separator-tab] [delete-this-frame] (menu-item "Delete Frame" delete-frame :visible (fboundp 'delete-frame) :enable (delete-frame-enabled-p) :help "Delete currently selected frame") [make-frame-on-monitor] (menu-item "New Frame on Monitor..." make-frame-on-monitor :visible (fboundp 'make-frame-on-monitor) :help "Open a new frame on another monitor") [make-frame-on-display] (menu-item "New Frame on Display..." make-frame-on-display :visible (fboundp 'make-frame-on-display) :help "Open a new frame on another display") [make-frame] (menu-item "New Frame" make-frame-command :visible (fboundp 'make-frame-command) :help "Open a new frame") [separator-frame] [one-window] (menu-item "Remove Other Windows" delete-other-windows :enable (not (one-window-p t nil)) :help "Make selected window fill whole frame") [new-window-on-right] (menu-item "New Window on Right" split-window-right :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Make new window on right of selected one") [new-window-below] (menu-item "New Window Below" split-window-below :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Make new window below selected one") [separator-window] [recover-session] (menu-item "Recover Crashed Session" recover-session :enable (and auto-save-list-file-prefix (file-directory-p (file-name-directory auto-save-list-file-prefix)) (directory-files (file-name-directory auto-save-list-file-prefix) nil (concat "\\`" (regexp-quote (file-name-nondirectory auto-save-list-file-prefix))) t)) :help "Recover edits from a crashed session") [revert-buffer] (menu-item "Revert Buffer" revert-buffer :enable (or (not (eq revert-buffer-function 'revert-buffer--default)) (not (eq revert-buffer-insert-file-contents-function 'revert-buffer-insert-file-contents--default-function)) (and buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime (current-buffer)))))) :help "Re-read current buffer from its file") [write-file] (menu-item "Save As..." write-file :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Write current buffer to another file") [save-buffer] (menu-item "Save" save-buffer :enable (and (buffer-modified-p) (buffer-file-name) (menu-bar-non-minibuffer-window-p)) :help "Save current buffer to its file") [separator-save] [kill-buffer] (menu-item "Close" kill-this-buffer :enable (kill-this-buffer-enabled-p) :help "Discard (kill) current buffer") [insert-file] (menu-item "Insert File..." insert-file :enable (menu-bar-non-minibuffer-window-p) :help "Insert another file into current buffer") [dired] (menu-item "Open Directory..." dired :enable (menu-bar-non-minibuffer-window-p) :help "Read a directory, to operate on its files") [open-file] (menu-item "Open File..." menu-find-file-existing :enable (menu-bar-non-minibuffer-window-p) :help "Read an existing file into an Emacs buffer") [new-file] (menu-item "Visit New File..." find-file :enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's name, to edit the file")] 7))
#@34 Edit the existing file FILENAME.
(defalias 'menu-find-file-existing #[0 "\300\301!\205\301 ?\302\303\"@
\203\304
!\207\305
!\207" [fboundp x-uses-old-gtk-dialog find-file-read-args "Find file: " find-file-existing find-file] 4 (#$ . 5673) nil])
#@67 Type of last non-incremental search command called from the menu.
(defvar menu-bar-last-search-type nil (#$ . 5929))
#@58 Search forward for the previous search string or regexp.
(defalias 'nonincremental-repeat-search-forward #[0 "\303=\203
	\203
\304 \207\305=\203\n\203\306\n@!\207\307\310!\207" [menu-bar-last-search-type search-ring regexp-search-ring string nonincremental-search-forward regexp re-search-forward error "No previous search"] 2 (#$ . 6052) nil])
#@59 Search backward for the previous search string or regexp.
(defalias 'nonincremental-repeat-search-backward #[0 "\303=\203
	\203
\304 \207\305=\203\n\203\306\n@!\207\307\310!\207" [menu-bar-last-search-type search-ring regexp-search-ring string nonincremental-search-backward regexp re-search-backward error "No previous search"] 2 (#$ . 6411) nil])
#@83 Read a string and search for it nonincrementally.

(fn &optional STRING BACKWARD)
(defalias 'nonincremental-search-forward #[512 "\306\211?	\307
\310\232\204
\204\311 
@!\202$\312\307\"\210\311 !+\207" [menu-bar-last-search-type search-default-mode isearch-regexp isearch-regexp-function isearch-forward search-ring string nil "" isearch-search-fun-default isearch-update-ring] 5 (#$ . 6774) "sSearch for string: "])
#@83 Read a string and search backward for it nonincrementally.

(fn &optional STRING)
(defalias 'nonincremental-search-backward #[256 "\300
\301\"\207" [nonincremental-search-forward backward] 4 (#$ . 7208) "sSearch backwards for string: "])
#@76 Read a regular expression and search for it nonincrementally.

(fn STRING)
(defalias 'nonincremental-re-search-forward #[257 "\302\211\303\232\203
\304	@!\207\305
\306\"\210\304
!\207" [menu-bar-last-search-type regexp-search-ring regexp "" re-search-forward isearch-update-ring t] 4 (#$ . 7452) "sSearch for regexp: "])
#@85 Read a regular expression and search backward for it nonincrementally.

(fn STRING)
(defalias 'nonincremental-re-search-backward #[257 "\302\211\303\232\203
\304	@!\207\305
\306\"\210\304
!\207" [menu-bar-last-search-type regexp-search-ring regexp "" re-search-backward isearch-update-ring t] 4 (#$ . 7781) "sSearch for regexp: "])
(defvar menu-bar-i-search-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\302
\317\320#\210\207" [make-sparse-keymap "Incremental Search" bindings--define-key [isearch-forward-symbol-at-point] (menu-item "Forward Symbol at Point..." isearch-forward-symbol-at-point :help "Search forward for a symbol found at point") [isearch-forward-symbol] (menu-item "Forward Symbol..." isearch-forward-symbol :help "Search forward for a symbol as you type it") [isearch-forward-word] (menu-item "Forward Word..." isearch-forward-word :help "Search forward for a word as you type it") [isearch-backward-regexp] (menu-item "Backward Regexp..." isearch-backward-regexp :help "Search backwards for a regular expression as you type it") [isearch-forward-regexp] (menu-item "Forward Regexp..." isearch-forward-regexp :help "Search forward for a regular expression as you type it") [isearch-backward] (menu-item "Backward String..." isearch-backward :help "Search backwards for a string as you type it") [isearch-forward] (menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it")] 5))
(defvar menu-bar-search-menu (byte-code "\302\303!\304
\305\306\307E#\210\304
\310	#\210\304
\311\312#\210\304
\313\314#\210\304
\315	#\210\304
\316\317#\210\304
\320\321#\210\304
\322	#\210\304
\323\324#\210\304
\325\326#\210\304
\327\330#\210\304
\331\332#\210\207" [menu-bar-i-search-menu menu-bar-separator make-sparse-keymap "Search" bindings--define-key [i-search] menu-item "Incremental Search" [separator-tag-isearch] [tags-continue] (menu-item "Continue Tags Search" fileloop-continue :enable (and (featurep 'fileloop) (not (eq fileloop--operate-function 'ignore))) :help "Continue last tags search operation") [tags-srch] (menu-item "Search Tagged Files..." tags-search :help "Search for a regexp in all tagged files") [separator-tag-search] [repeat-search-back] (menu-item "Repeat Backwards" nonincremental-repeat-search-backward :enable (or (and (eq menu-bar-last-search-type 'string) search-ring) (and (eq menu-bar-last-search-type 'regexp) regexp-search-ring)) :help "Repeat last search backwards") [repeat-search-fwd] (menu-item "Repeat Forward" nonincremental-repeat-search-forward :enable (or (and (eq menu-bar-last-search-type 'string) search-ring) (and (eq menu-bar-last-search-type 'regexp) regexp-search-ring)) :help "Repeat last search forward") [separator-repeat-search] [re-search-backward] (menu-item "Regexp Backwards..." nonincremental-re-search-backward :help "Search backwards for a regular expression") [re-search-forward] (menu-item "Regexp Forward..." nonincremental-re-search-forward :help "Search forward for a regular expression") [search-backward] (menu-item "String Backwards..." nonincremental-search-backward :help "Search backwards for a string") [search-forward] (menu-item "String Forward..." nonincremental-search-forward :help "Search forward for a string")] 7))
(defvar menu-bar-replace-menu (byte-code "\301\302!\303
\304\305#\210\303
\306\307#\210\303
\310#\210\303
\311\312#\210\303
\313\314#\210\207" [menu-bar-separator make-sparse-keymap "Replace" bindings--define-key [tags-repl-continue] (menu-item "Continue Replace" fileloop-continue :enable (and (featurep 'fileloop) (not (eq fileloop--operate-function 'ignore))) :help "Continue last tags replace operation") [tags-repl] (menu-item "Replace in Tagged Files..." tags-query-replace :help "Interactively replace a regexp in all tagged files") [separator-replace-tags] [query-replace-regexp] (menu-item "Replace Regexp..." query-replace-regexp :enable (not buffer-read-only) :help "Replace regular expression interactively, ask about each occurrence") [query-replace] (menu-item "Replace String..." query-replace :enable (not buffer-read-only) :help "Replace string interactively, ask about each occurrence")] 5))
(defvar menu-bar-goto-menu (byte-code "\301\302!\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\303
\314\315#\210\303
\316\317#\210\303
\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\303
\327\330#\210\207" [menu-bar-separator make-sparse-keymap "Go To" bindings--define-key [set-tags-name] (menu-item "Set Tags File Name..." visit-tags-table :visible (menu-bar-goto-uses-etags-p) :help "Tell navigation commands which tag table file to use") [separator-tag-file] (menu-item "--" nil :visible (menu-bar-goto-uses-etags-p)) [xref-pop] (menu-item "Back" xref-pop-marker-stack :visible (and (featurep 'xref) (not (xref-marker-stack-empty-p))) :help "Back to the position of the last search") [xref-apropos] (menu-item "Find Apropos..." xref-find-apropos :help "Find function/variables whose names match regexp") [xref-find-otherw] (menu-item "Find Definition in Other Window..." xref-find-definitions-other-window :help "Find function/variable definition in another window") [xref-find-def] (menu-item "Find Definition..." xref-find-definitions :help "Find definition of function or variable") [separator-xref] [end-of-buf] (menu-item "Goto End of Buffer" end-of-buffer) [beg-of-buf] (menu-item "Goto Beginning of Buffer" beginning-of-buffer) [go-to-pos] (menu-item "Goto Buffer Position..." goto-char :help "Read a number N and go to buffer position N") [go-to-line] (menu-item "Goto Line..." goto-line :help "Read a line number and go to that line")] 5))
(defalias 'menu-bar-goto-uses-etags-p #[0 "\301\300!?\206@\302=\207" [xref-backend-functions boundp etags--xref-backend] 2])
(defvar yank-menu (byte-code "\300\301!C\207" [purecopy "Select Yank"] 2))
(byte-code "\300\301BM\207" [yank-menu keymap] 3)
(defvar menu-bar-edit-menu (byte-code "\304\305!\306\307!\203\310
\311\312#\210\310
\313\314#\210\310
\315#\210\310
\316\317#\210\310
\320\321\322	E#\210\310
\323\321\324\nE#\210\310
\325\321\326E#\210\310
\327#\210\310
\330\331#\210\310
\332\333#\210\310
\306\307!\203Z\334\202[\335\321\306\307!\203f\336\202g\337\340BB#\210\310
\341\321\342\343\344\345\346\347DD\350BBBBB#\210\310
\351\321\352\306\307!\203\217\353\202\220\354\344\355\356\357\360\306\307!\203\237\361\202\240\362\257	#\210\310
\363\364#\210\306\307!\203\266\310
\365#\210\310
\366\367#\210\310
\370\371#\210\207" [menu-bar-separator menu-bar-goto-menu menu-bar-replace-menu menu-bar-search-menu make-sparse-keymap "Edit" featurep ns bindings--define-key [spell] (menu-item "Spell" ispell-menu-map) [fill] (menu-item "Fill" fill-region :enable (and mark-active (not buffer-read-only)) :help "Fill text in region to fit between left and right margin") [separator-bookmark] [bookmark] (menu-item "Bookmarks" menu-bar-bookmark-map) [goto] menu-item "Go To" [replace] "Replace" [search] "Search" [separator-search] [mark-whole-buffer] (menu-item "Select All" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy") [clear] (menu-item "Clear" delete-active-region :enable (and mark-active (not buffer-read-only)) :help "Delete the text in region between mark and current position") [select-paste] [paste-from-menu] "Select and Paste" "Paste from Kill Menu" (yank-menu :enable (and (cdr yank-menu) (not buffer-read-only)) :help "Choose a string from the kill ring and paste it") [paste] "Paste" yank :enable funcall quote #[0 "\303\304!\204\305\306!\203A\202	\205\n?\207" [yank-menu kill-ring buffer-read-only gui-backend-selection-exists-p CLIPBOARD featurep ns] 2] (:help "Paste (yank) text most recently cut/copied") [copy] "Copy" ns-copy-including-secondary kill-ring-save mark-active :help "Copy text in region between mark and current position" :keys "\\[ns-copy-including-secondary]" "\\[kill-ring-save]" [cut] (menu-item "Cut" kill-region :enable (and mark-active (not buffer-read-only)) :help "Cut (kill) text in region between mark and current position") [separator-undo] [undo-redo] (menu-item "Redo" undo-redo :enable (and (not buffer-read-only) (undo--last-change-was-undo-p buffer-undo-list)) :help "Redo last undone edits") [undo] (menu-item "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command 'undo) (listp pending-undo-list) (consp buffer-undo-list))) :help "Undo last edits")] 14))
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311#\210\306\312\310\313#\210\306\314\310\315\316\317DD#\207" [defalias menu-bar-kill-ring-save kill-ring-save nil make-obsolete "24.1" put clipboard-kill-region menu-enable (and mark-active (not buffer-read-only)) clipboard-kill-ring-save mark-active clipboard-yank funcall quote #[0 "\301\302!\204\f\301\303!\205?\207" [buffer-read-only gui-backend-selection-exists-p PRIMARY CLIPBOARD] 2]] 6)
#@68 Insert the clipboard contents, or the last stretch of killed text.
(defalias 'clipboard-yank #[0 "\302\303\304 *\207" [gui--last-selected-text-clipboard select-enable-clipboard t nil yank] 2 (#$ . 16802) "*"])
#@207 Copy region to kill ring, and save in the GUI's clipboard.
If the optional argument REGION is non-nil, the function ignores
BEG and END, and saves the current region instead.

(fn BEG END &optional REGION)
(defalias 'clipboard-kill-ring-save #[770 "\301\302#)\207" [select-enable-clipboard t kill-ring-save] 7 (#$ . 17021) "r\np"])
#@201 Kill the region, and save it in the GUI's clipboard.
If the optional argument REGION is non-nil, the function ignores
BEG and END, and kills the current region instead.

(fn BEG END &optional REGION)
(defalias 'clipboard-kill-region #[770 "\301\302#)\207" [select-enable-clipboard t kill-region] 7 (#$ . 17364) "r\np"])
#@114 Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard.
Do the same for the keys of the same name.
(defalias 'menu-bar-enable-clipboard #[0 "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\303#\210\301\311\305#\210\301\312\307#\207" [global-map define-key [f20] clipboard-kill-region [f16] clipboard-kill-ring-save [f18] clipboard-yank [cut] [copy] [paste]] 4 (#$ . 17695) nil])
(defvar menu-bar-custom-menu (byte-code "\301\302!\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312#\210\303
\313\314#\210\303
\315\316#\210\303
\317\320#\210\303
\321#\210\303
\322\323#\210\303
\324\325#\210\303
\326#\210\303
\327\330#\210\303
\331\332#\210\303
\333\334#\210\207" [menu-bar-separator make-sparse-keymap "Customize" bindings--define-key [customize-apropos-faces] (menu-item "Faces Matching..." customize-apropos-faces :help "Browse faces matching a regexp or word list") [customize-apropos-options] (menu-item "Options Matching..." customize-apropos-options :help "Browse options matching a regexp or word list") [customize-apropos] (menu-item "All Settings Matching..." customize-apropos :help "Browse customizable settings matching a regexp or word list") [separator-1] [customize-group] (menu-item "Specific Group..." customize-group :help "Customize settings of specific group") [customize-face] (menu-item "Specific Face..." customize-face :help "Customize attributes of specific face") [customize-option] (menu-item "Specific Option..." customize-option :help "Customize value of specific option") [separator-2] [customize-changed] (menu-item "New Options..." customize-changed :help "Options and faces added or changed in recent Emacs versions") [customize-saved] (menu-item "Saved Options" customize-saved :help "Customize previously saved options") [separator-3] [customize-browse] (menu-item "Browse Customization Groups" customize-browse :help "Browse all customization groups") [customize] (menu-item "Top-level Customization Group" customize :help "The master group called `Emacs'") [customize-themes] (menu-item "Custom Themes" customize-themes :help "Choose a pre-defined customization theme")] 5))
#@260 Make a menu-item for a global minor mode toggle.
FNAME is the minor mode's name (variable and function).
DOC is the text to use for the menu entry.
HELP is the text to use for the tooltip.
PROPS are additional properties.

(fn FNAME DOC HELP &optional PROPS)
(defalias 'menu-bar-make-mm-toggle '(macro . #[1027 "\300\301\302\303\304\305\306\307\300DD\310\300DDFF\"BBBD\207" [quote menu-item append :help :button :toggle and default-boundp default-value] 19 (#$ . 19861)]))
#@221 Define a menu-bar toggle command.
See `menu-bar-make-toggle-command', for which this is a
compatibility wrapper.  BODY is passed in as SETTING-SEXP in that macro.

(fn COMMAND VARIABLE ITEM-NAME MESSAGE HELP &rest BODY)
(defalias 'menu-bar-make-toggle '(macro . #[1413 "\300\205\301B\257\207" [menu-bar-make-toggle-command progn] 14 (#$ . 20351)]))
(make-obsolete 'menu-bar-make-toggle 'menu-bar-make-toggle-command "28.1")
#@654 Define a menu-bar toggle command.
COMMAND (a symbol) is the toggle command to define.

VARIABLE (a symbol) is the variable to set.

ITEM-NAME (a string) is the menu-item name.

MESSAGE is a format string for the toggle message, with %s for the new
status.

HELP (a string) is the `:help' tooltip text and the doc string first
line (minus final period) for the command.

SETTING-SEXP is a Lisp sexp that sets VARIABLE, or it is nil meaning
set it according to its `defcustom' or using `set-default'.

KEYWORDS is a plist for `menu-item' for keywords other than `:help'.

(fn COMMAND VARIABLE ITEM-NAME MESSAGE HELP &optional SETTING-SEXP &rest KEYWORDS)
(defalias 'menu-bar-make-toggle-command '(macro . #[1669 "\300\301\302\303\304\305O\227\305\306O\307R\310\311\203\202V\300\312\313DD\314\315\316\317\313D\320BB\321BBD\317\316\317\313D\322BB\323BBDD\324\315\313D\325\324\317\313DEDFEE\326\f\327BB\326
\330BBF\331\332\333\313DDE\257\313\334\335	\336\337\340\341\313DD\342\313DDF\nBBBBBBBDE\207" [progn defun (&optional interactively) "Toggle whether to " 0 1 nil ".\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." (interactive "p") if custom-load-symbol quote let set or get ('custom-set) ('set-default) ('custom-get) ('default-value) funcall not message ("enabled globally") ("disabled globally") when interactively customize-mark-as-set menu-item :help :button :toggle and default-boundp default-value] 26 (#$ . 20799)]))
#@147 Interactively select a font and make it the default on all frames.

The selected font will be the default on both the existing and future frames.
(defalias 'menu-set-font #[0 "\300\301\302!\203\f\302 \202\303 \304\305#\207" [set-frame-font fboundp x-select-font mouse-select-font nil t] 4 (#$ . 22331) nil])
#@57 Save current values of Options menu items using Custom.
(defalias 'menu-bar-options-save #[0 "\300\301\211\203\211@\302
!\203\303\262
A\266\202\202\210\304\211\2036\211@\211\305N\203/\302
!\203/\303\262
A\266\202\202\210\306\307N\203N\310\306\311\306\307N#\210\310\306\307\300#\210\303\262
\211\205T\312 \207" [nil (global-display-line-numbers-mode display-line-numbers-type line-number-mode column-number-mode size-indication-mode cua-mode show-paren-mode transient-mark-mode blink-cursor-mode display-time-mode display-battery-mode menu-bar-mode tab-bar-mode tool-bar-mode) customize-mark-to-save t (scroll-bar-mode debug-on-quit debug-on-error tooltip-mode window-divider-mode save-place-mode uniquify-buffer-name-style fringe-mode indicate-empty-lines indicate-buffer-boundaries case-fold-search font-use-system-font current-language-environment default-input-method text-mode-hook tool-bar-position) customized-value default customized-face put saved-face custom-save-all] 6 (#$ . 22648) nil])
#@55 Show customization buffer for `window-divider' group.
(defalias 'menu-bar-window-divider-customize #[0 "\300\301!\207" [customize-group window-divider] 2 (#$ . 23668) nil])
#@58 Display dividers on the bottom and right of each window.
(defalias 'menu-bar-bottom-and-right-window-divider #[0 "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places t window-divider-mode 1] 3 (#$ . 23847) nil])
#@52 Display dividers only on the right of each window.
(defalias 'menu-bar-right-window-divider #[0 "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places right-only window-divider-mode 1] 3 (#$ . 24100) nil])
#@53 Display dividers only at the bottom of each window.
(defalias 'menu-bar-bottom-window-divider #[0 "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places bottom-only window-divider-mode 1] 3 (#$ . 24345) nil])
#@33 Do not display window dividers.
(defalias 'menu-bar-no-window-divider #[0 "\300\301!\207" [window-divider-mode -1] 2 (#$ . 24593) nil])
(defvar menu-bar-showhide-window-divider-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\207" [make-sparse-keymap "Window Divider" bindings--define-key [customize] (menu-item "Customize" menu-bar-window-divider-customize :help "Customize window dividers" :visible (memq (window-system) '(x w32))) [bottom-and-right] (menu-item "Bottom and Right" menu-bar-bottom-and-right-window-divider :help "Display window divider on the bottom and right of each window" :visible (memq (window-system) '(x w32)) :button (:radio and (window-divider-width-valid-p (cdr (assq 'bottom-divider-width (frame-parameters)))) (window-divider-width-valid-p (cdr (assq 'right-divider-width (frame-parameters)))))) [right-only] (menu-item "Right Only" menu-bar-right-window-divider :help "Display window divider on the right of each window only" :visible (memq (window-system) '(x w32)) :button (:radio and (not (window-divider-width-valid-p (cdr (assq 'bottom-divider-width (frame-parameters))))) (window-divider-width-valid-p (cdr (assq 'right-divider-width (frame-parameters)))))) [bottom-only] (menu-item "Bottom Only" menu-bar-bottom-window-divider :help "Display window divider on the bottom of each window only" :visible (memq (window-system) '(x w32)) :button (:radio and (window-divider-width-valid-p (cdr (assq 'bottom-divider-width (frame-parameters)))) (not (window-divider-width-valid-p (cdr (assq 'right-divider-width (frame-parameters))))))) [no-divider] (menu-item "None" menu-bar-no-window-divider :help "Do not display window dividers" :visible (memq (window-system) '(x w32)) :button (:radio and (not (window-divider-width-valid-p (cdr (assq 'bottom-divider-width (frame-parameters))))) (not (window-divider-width-valid-p (cdr (assq 'right-divider-width (frame-parameters)))))))] 5))
#@61 Show customization buffer for `indicate-buffer-boundaries'.
(defalias 'menu-bar-showhide-fringe-ind-customize #[0 "\300\301!\207" [customize-variable indicate-buffer-boundaries] 2 (#$ . 26581) nil])
#@73 Display top and bottom indicators in opposite fringes, arrows in right.
(defalias 'menu-bar-showhide-fringe-ind-mixed #[0 "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((t . right) (top . left))] 3 (#$ . 26786) nil])
#@56 Display top and bottom indicators in opposite fringes.
(defalias 'menu-bar-showhide-fringe-ind-box #[0 "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((top . left) (bottom . right))] 3 (#$ . 27035) nil])
#@59 Display buffer boundaries and arrows in the right fringe.
(defalias 'menu-bar-showhide-fringe-ind-right #[0 "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries right] 3 (#$ . 27270) nil])
#@58 Display buffer boundaries and arrows in the left fringe.
(defalias 'menu-bar-showhide-fringe-ind-left #[0 "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries left] 3 (#$ . 27484) nil])
#@48 Do not display any buffer boundary indicators.
(defalias 'menu-bar-showhide-fringe-ind-none #[0 "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries nil] 3 (#$ . 27695) nil])
(defvar menu-bar-showhide-fringe-ind-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\207" [make-sparse-keymap "Buffer boundaries" bindings--define-key [customize] (menu-item "Other (Customize)" menu-bar-showhide-fringe-ind-customize :help "Additional choices available through Custom buffer" :visible (display-graphic-p) :button (:radio not (member indicate-buffer-boundaries '(nil left right ((top . left) (bottom . right)) ((t . right) (top . left)))))) [mixed] (menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed :help "Show top/bottom indicators in opposite fringes, arrows in right" :visible (display-graphic-p) :button (:radio equal indicate-buffer-boundaries '((t . right) (top . left)))) [box] (menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box :help "Show top/bottom indicators in opposite fringes, no arrows" :visible (display-graphic-p) :button (:radio equal indicate-buffer-boundaries '((top . left) (bottom . right)))) [right] (menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right :help "Show buffer boundaries and arrows in right fringe" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries 'right)) [left] (menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left :help "Show buffer boundaries and arrows in left fringe" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries 'left)) [none] (menu-item "No Indicators" menu-bar-showhide-fringe-ind-none :help "Hide all buffer boundary indicators and arrows" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries nil))] 5))
#@46 Show customization buffer for `fringe-mode'.
(defalias 'menu-bar-showhide-fringe-menu-customize #[0 "\300\301!\207" [customize-variable fringe-mode] 2 (#$ . 29580) nil])
#@67 Reset the fringe mode: display fringes on both sides of a window.
(defalias 'menu-bar-showhide-fringe-menu-customize-reset #[0 "\300\301\302\"\207" [customize-set-variable fringe-mode nil] 3 (#$ . 29756) nil])
#@51 Display fringes only on the right of each window.
(defalias 'menu-bar-showhide-fringe-menu-customize-right #[0 "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (0)] 3 (#$ . 29972) nil])
#@50 Display fringes only on the left of each window.
(defalias 'menu-bar-showhide-fringe-menu-customize-left #[0 "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (nil . 0)] 3 (#$ . 30200) nil])
#@32 Do not display window fringes.
(defalias 'menu-bar-showhide-fringe-menu-customize-disable #[0 "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode 0] 3 (#$ . 30432) nil])
(defvar menu-bar-showhide-fringe-menu (byte-code "\301\302!\303
\304\305\306\307BBB#\210\303
\310\311\312\313\"\210\314#\210\303
\315\316#\210\303
\317\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\207" [menu-bar-showhide-fringe-ind-menu make-sparse-keymap "Fringe" bindings--define-key [showhide-fringe-ind] menu-item "Buffer Boundaries" (:visible (display-graphic-p) :help "Indicate buffer boundaries in fringe") [indicate-empty-lines] defalias toggle-indicate-empty-lines #[256 "\300\301!\210\301\302N\206\303\301\304N\206\305
\301\301!?\"\266\202\203&\306\307\310\"\210\202+\306\307\311\"\210\211\2052\312\301!\207" [custom-load-symbol indicate-empty-lines custom-set set-default custom-get default-value message "Indicating of empty lines %s" "enabled globally" "disabled globally" customize-mark-as-set] 7 "Toggle whether to indicate trailing empty lines in fringe, globally.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" "p"] (menu-item "Empty Line Indicators" toggle-indicate-empty-lines :help "Indicate trailing empty lines in fringe, globally" :button (:toggle and (default-boundp 'indicate-empty-lines) (default-value 'indicate-empty-lines))) [customize] (menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed customization of fringe" :visible (display-graphic-p)) [default] (menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset :help "Default width fringe on both left and right side" :visible (display-graphic-p) :button (:radio eq fringe-mode nil)) [right] (menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right :help "Fringe only on the right side" :visible (display-graphic-p) :button (:radio equal fringe-mode '(0))) [left] (menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left :help "Fringe only on the left side" :visible (display-graphic-p) :button (:radio equal fringe-mode '(nil . 0))) [none] (menu-item "None" menu-bar-showhide-fringe-menu-customize-disable :help "Turn off fringe" :visible (display-graphic-p) :button (:radio eq fringe-mode 0))] 8))
#@50 Display scroll bars on the right of each window.
(defalias 'menu-bar-right-scroll-bar #[0 "\300\301\302\"\207" [customize-set-variable scroll-bar-mode right] 3 (#$ . 32815) nil])
#@49 Display scroll bars on the left of each window.
(defalias 'menu-bar-left-scroll-bar #[0 "\300\301\302\"\207" [customize-set-variable scroll-bar-mode left] 3 (#$ . 33000) nil])
#@23 Turn off scroll bars.
(defalias 'menu-bar-no-scroll-bar #[0 "\300\301\302\"\207" [customize-set-variable scroll-bar-mode nil] 3 (#$ . 33182) nil])
(defvar menu-bar-showhide-scroll-bar-menu (byte-code "\301\302!\303
\304\305#\210\303
\306#\210\303
\307\310#\210\303
\311\312#\210\303
\313\314#\210\207" [menu-bar-separator make-sparse-keymap "Scroll Bar" bindings--define-key [horizontal] (menu-item "Horizontal" horizontal-scroll-bar-mode :help "Horizontal scroll bar" :button (:toggle and (default-boundp 'horizontal-scroll-bar-mode) (default-value 'horizontal-scroll-bar-mode))) [scrollbar-separator] [right] (menu-item "On the Right" menu-bar-right-scroll-bar :help "Scroll bar on the right side" :visible (display-graphic-p) :button (:radio and scroll-bar-mode (eq (frame-parameter nil 'vertical-scroll-bars) 'right))) [left] (menu-item "On the Left" menu-bar-left-scroll-bar :help "Scroll bar on the left side" :visible (display-graphic-p) :button (:radio and scroll-bar-mode (eq (frame-parameter nil 'vertical-scroll-bars) 'left))) [none] (menu-item "No Vertical Scroll Bar" menu-bar-no-scroll-bar :help "Turn off vertical scroll bar" :visible (display-graphic-p) :button (:radio eq scroll-bar-mode nil))] 5))
#@54 Return the frame suitable for updating the menu bar.
(defalias 'menu-bar-frame-for-menubar #[0 "\301!\203\n\206\f\302 \207" [menu-updating-frame framep selected-frame] 2 (#$ . 34405)])
#@55 Return non-nil if VAL is a positive number.

(fn VAL)
(defalias 'menu-bar-positive-p #[257 "\211\247\205\211\300V\207" [0] 3 (#$ . 34600)])
#@17 

(fn POSITION)
(defalias 'menu-bar-set-tool-bar-position #[257 "\300\301\302\"\210\300\303\"\207" [customize-set-variable tool-bar-mode t tool-bar-position] 4 (#$ . 34748)])
#@27 Do not display tool bars.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-disable #[0 "\300\301\302\"\207" [customize-set-variable tool-bar-mode nil] 3 (#$ . 34930) nil])
#@37 Display tool bars on the left side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-left #[0 "\300\301!\207" [menu-bar-set-tool-bar-position left] 2 (#$ . 35112) nil])
#@38 Display tool bars on the right side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-right #[0 "\300\301!\207" [menu-bar-set-tool-bar-position right] 2 (#$ . 35298) nil])
#@36 Display tool bars on the top side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-top #[0 "\300\301!\207" [menu-bar-set-tool-bar-position top] 2 (#$ . 35487) nil])
#@39 Display tool bars on the bottom side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-bottom #[0 "\300\301!\207" [menu-bar-set-tool-bar-position bottom] 2 (#$ . 35670) nil])
(byte-code "\300\301!\203-\302\303\304!\305
\306\307#\210\305
\310\311#\210\305
\312\313#\210\305
\314\315#\210\305
\316\317#\210\211\262
!\210\300\207" [featurep move-toolbar (lambda (#1=#:def-tmp-var) (defvar menu-bar-showhide-tool-bar-menu #1#)) make-sparse-keymap "Tool Bar" bindings--define-key [showhide-tool-bar-left] (menu-item "On the Left" menu-bar-showhide-tool-bar-menu-customize-enable-left :help "Tool bar at the left side" :visible (display-graphic-p) :button (:radio and tool-bar-mode (eq (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-position) 'left))) [showhide-tool-bar-right] (menu-item "On the Right" menu-bar-showhide-tool-bar-menu-customize-enable-right :help "Tool bar at the right side" :visible (display-graphic-p) :button (:radio and tool-bar-mode (eq (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-position) 'right))) [showhide-tool-bar-bottom] (menu-item "On the Bottom" menu-bar-showhide-tool-bar-menu-customize-enable-bottom :help "Tool bar at the bottom" :visible (display-graphic-p) :button (:radio and tool-bar-mode (eq (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-position) 'bottom))) [showhide-tool-bar-top] (menu-item "On the Top" menu-bar-showhide-tool-bar-menu-customize-enable-top :help "Tool bar at the top" :visible (display-graphic-p) :button (:radio and tool-bar-mode (eq (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-position) 'top))) [showhide-tool-bar-none] (menu-item "None" menu-bar-showhide-tool-bar-menu-customize-disable :help "Turn tool bar off" :visible (display-graphic-p) :button (:radio eq tool-bar-mode nil))] 6)
#@13 

(fn TYPE)
(defalias 'menu-bar-display-line-numbers-mode #[257 "\211	\203	\301 \207\302 \207" [display-line-numbers-type global-display-line-numbers-mode display-line-numbers-mode] 2 (#$ . 37474)])
#@34 Turn on visual line number mode.
(defalias 'menu-bar--display-line-numbers-mode-visual #[0 "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode visual message "Visual line numbers enabled"] 2 (#$ . 37681) nil])
#@36 Turn on relative line number mode.
(defalias 'menu-bar--display-line-numbers-mode-relative #[0 "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode relative message "Relative line numbers enabled"] 2 (#$ . 37910) nil])
#@36 Turn on absolute line number mode.
(defalias 'menu-bar--display-line-numbers-mode-absolute #[0 "\301\302!\210\302\303\304!\207" [display-line-numbers menu-bar-display-line-numbers-mode t message "Absolute line numbers enabled"] 2 (#$ . 38147) nil])
#@23 Disable line numbers.
(defalias 'menu-bar--display-line-numbers-mode-none #[0 "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode nil message "Line numbers disabled"] 2 (#$ . 38403) nil])
(defvar menu-bar-showhide-line-numbers-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\207" [make-sparse-keymap "Line Numbers" bindings--define-key [visual] (menu-item "Visual Line Numbers" menu-bar--display-line-numbers-mode-visual :help "Enable visual line numbers" :button (:radio eq display-line-numbers 'visual) :visible (menu-bar-menu-frame-live-and-visible-p)) [relative] (menu-item "Relative Line Numbers" menu-bar--display-line-numbers-mode-relative :help "Enable relative line numbers" :button (:radio eq display-line-numbers 'relative) :visible (menu-bar-menu-frame-live-and-visible-p)) [absolute] (menu-item "Absolute Line Numbers" menu-bar--display-line-numbers-mode-absolute :help "Enable absolute line numbers" :button (:radio eq display-line-numbers t) :visible (menu-bar-menu-frame-live-and-visible-p)) [none] (menu-item "No Line Numbers" menu-bar--display-line-numbers-mode-none :help "Disable line numbers" :button (:radio null display-line-numbers) :visible (menu-bar-menu-frame-live-and-visible-p)) [global] (menu-item "Global Line Numbers Mode" global-display-line-numbers-mode :help "Set line numbers globally" :button (:toggle and (default-boundp 'global-display-line-numbers-mode) (default-value 'global-display-line-numbers-mode)))] 5))
(defvar menu-bar-showhide-menu (byte-code "\306\307!\310
\311\312\313E#\210\310
\314\315#\210\310
\316\317#\210\310
\320\321#\210\310
\322	#\210\310
\323\324#\210\310
\325\326#\210\310
\327	#\210\310
\330\331#\210\310
\332\333#\210\310
\334\312\335\n\336BBB#\210\310
\337\312\340\341BBB#\210\310
\342\312\343\f\344BBB#\210\310
\345\346#\210\310
\347\350#\210\310
\351\352#\210\353\354!\204\204\310
\355\356#\210\357\305!\203\235\360
!\203\235\310
\361\312\362
\363BBB#\210\207\310
\364\365#\210\207" [menu-bar-showhide-line-numbers-menu menu-bar-separator menu-bar-showhide-window-divider-menu menu-bar-showhide-fringe-menu menu-bar-showhide-scroll-bar-menu menu-bar-showhide-tool-bar-menu make-sparse-keymap "Show/Hide" bindings--define-key [display-line-numbers] menu-item "Line Numbers for All Lines" [column-number-mode] (menu-item "Column Numbers in Mode Line" column-number-mode :help "Show the current column number in the mode line" :button (:toggle and (default-boundp 'column-number-mode) (default-value 'column-number-mode))) [line-number-mode] (menu-item "Line Numbers in Mode Line" line-number-mode :help "Show the current line number in the mode line" :button (:toggle and (default-boundp 'line-number-mode) (default-value 'line-number-mode))) [size-indication-mode] (menu-item "Size Indication" size-indication-mode :help "Show the size of the buffer in the mode line" :button (:toggle and (default-boundp 'size-indication-mode) (default-value 'size-indication-mode))) [linecolumn-separator] [showhide-battery] (menu-item "Battery Status" display-battery-mode :help "Display battery status information in mode line" :button (:toggle and (default-boundp 'display-battery-mode) (default-value 'display-battery-mode))) [showhide-date-time] (menu-item "Time, Load and Mail" display-time-mode :help "Display time, system load averages and mail status in mode line" :button (:toggle and (default-boundp 'display-time-mode) (default-value 'display-time-mode))) [datetime-separator] [showhide-speedbar] (menu-item "Speedbar" speedbar-frame-mode :help "Display a Speedbar quick-navigation frame" :button (:toggle and (boundp 'speedbar-frame) (frame-live-p (symbol-value 'speedbar-frame)) (frame-visible-p (symbol-value 'speedbar-frame)))) [showhide-tab-line-mode] (menu-item "Window Tab Line" global-tab-line-mode :help "Turn window-local tab-lines on/off" :visible (fboundp 'global-tab-line-mode) :button (:toggle . global-tab-line-mode)) [showhide-window-divider] "Window Divider" (:visible (memq (window-system) '(x w32))) [showhide-fringe] "Fringe" (:visible (display-graphic-p)) [showhide-scroll-bar] "Scroll Bar" (:visible (display-graphic-p)) [showhide-tooltip-mode] (menu-item "Tooltips" tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) (fboundp 'x-show-tip)) :button (:toggle . tooltip-mode)) [showhide-context-menu] (menu-item "Context Menus" context-menu-mode :help "Turn mouse-3 context menus on/off" :button (:toggle . context-menu-mode)) [menu-bar-mode] (menu-item "Menu Bar" toggle-menu-bar-mode-from-frame :help "Turn menu bar on/off" :button (:toggle menu-bar-positive-p (frame-parameter (menu-bar-frame-for-menubar) 'menu-bar-lines))) featurep ns [showhide-tab-bar] (menu-item "Tab Bar" toggle-tab-bar-mode-from-frame :help "Turn tab bar on/off" :button (:toggle menu-bar-positive-p (frame-parameter (menu-bar-frame-for-menubar) 'tab-bar-lines))) boundp keymapp [showhide-tool-bar] "Tool Bar" (:visible (display-graphic-p)) [showhide-tool-bar] (menu-item "Tool Bar" toggle-tool-bar-mode-from-frame :help "Turn tool bar on/off" :visible (display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-lines)))] 8))
#@26 Enable visual line mode.
(defalias 'menu-bar--visual-line-mode-enable #[0 "\204\300\301!\210\302\303!\207" [visual-line-mode 1 message "Visual-Line mode enabled"] 2 (#$ . 43661) nil])
#@25 Toggle long lines mode.
(defalias 'menu-bar--toggle-truncate-long-lines #[0 "\203\300\302!\210\303\304\305!\207" [visual-line-mode word-wrap 0 nil toggle-truncate-lines 1] 2 (#$ . 43854) nil])
#@33 Wrap long lines at window edge.
(defalias 'menu-bar--wrap-long-lines-window-edge #[0 "\203\300\303!\210\304\n\205\305\306!\207" [visual-line-mode word-wrap truncate-lines 0 nil toggle-truncate-lines -1] 2 (#$ . 44057) nil])
(defvar menu-bar-line-wrapping-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\207" [make-sparse-keymap "Line Wrapping" bindings--define-key [word-wrap] (menu-item "Word Wrap (Visual Line mode)" menu-bar--visual-line-mode-enable :help "Wrap long lines at word boundaries" :button (:radio and (null truncate-lines) (not (truncated-partial-width-window-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-visible-p)) [truncate] (menu-item "Truncate Long Lines" menu-bar--toggle-truncate-long-lines :help "Truncate long lines at window edge" :button (:radio or truncate-lines (truncated-partial-width-window-p)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partial-width-window-p))) [window-wrap] (menu-item "Wrap at Window Edge" menu-bar--wrap-long-lines-window-edge :help "Wrap long lines at window edge" :button (:radio and (null truncate-lines) (not (truncated-partial-width-window-p)) (not word-wrap)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partial-width-window-p)))] 5))
(defvar menu-bar-search-options-menu (byte-code "\301\302!\303\211\203H\211@\304\305@!\306A@\307\310\311\312\313\314@DE\315\316\317\320
8\"D\257\321\316\322\320\n8\227\"\323\324\325\313\314
@DF\257#\210
A\266\202\202\210\304
\326\327#\210\304
\330\331#\210\304
\332#\210\304
\333\334\335\336\"\210\337#\210\207" [menu-bar-separator make-sparse-keymap "Search Options" ((char-fold-to-regexp "Fold Characters" "Character folding") (isearch-symbol-regexp "Whole Symbols" "Whole symbol") (word-search-regexp "Whole Words" "Whole word")) bindings--define-key vector menu-item lambda nil (interactive) setq search-default-mode function message format "%s search enabled" 2 :help "Enable %s search" :button :radio eq [regexp-search] (menu-item "Regular Expression" (lambda nil (interactive) (setq search-default-mode t) (message "Regular-expression search enabled")) :help "Enable regular-expression search" :button (:radio eq search-default-mode t)) [regular-search] (menu-item "Literal Search" (lambda nil (interactive) (when search-default-mode (setq search-default-mode nil) (when (symbolp search-default-mode) (message "Literal search enabled")))) :help "Disable special search modes" :button (:radio not search-default-mode)) [custom-separator] [case-fold-search] defalias toggle-case-fold-search #[256 "\300\301!\210\301\302N\206\303\301\304N\206\305
\301\301!?\"\266\202\203&\306\307\310\"\210\202+\306\307\311\"\210\211\2052\312\301!\207" [custom-load-symbol case-fold-search custom-set set-default custom-get default-value message "Case-Insensitive Search %s" "enabled globally" "disabled globally" customize-mark-as-set] 7 "Toggle whether to ignore letter-case in search commands.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" "p"] (menu-item "Ignore Case" toggle-case-fold-search :help "Ignore letter-case in search commands" :button (:toggle and (default-boundp 'case-fold-search) (default-value 'case-fold-search)))] 17))
(defvar menu-bar-options-menu (byte-code "\306\307!\310
\311\312\313E#\210\310
\314\315#\210\310
\316\317#\210\310
\320	#\210\310
\321\322#\210\323\324!\2035\310
\325\326\327\330\"\210\331#\210\310
\332\312\333\nE#\210\310
\334	#\210\310
\335\312\336E#\210\310
\337	#\210\310
\340\326\341\342\"\210\343#\210\310
\344\326\345\346\"\210\347#\210\310
\350	#\210\310
\351\352#\210\310
\353	#\210\310
\354\326\355\356\"\210\357#\210\310
\360\326\361\362\"\210\363#\210\310
\364\326\365\366\"\210\367#\210\310
\370	#\210\310
\371\372#\210\310
\373\374#\210\310
\375\312\376\fE#\210\310
\377\312\201@
E#\210\310
\201A	#\210\310
\201B\201C#\210\310
\201D\201E#\210\207" [menu-bar-custom-menu menu-bar-separator menu-bar-showhide-menu mule-menu-keymap menu-bar-search-options-menu menu-bar-line-wrapping-menu make-sparse-keymap "Options" bindings--define-key [customize] menu-item "Customize Emacs" [package] (menu-item "Manage Emacs Packages" package-list-packages :help "Install or uninstall additional Emacs packages") [save] (menu-item "Save Options" menu-bar-options-save :help "Save options set from the menu above") [custom-separator] [menu-set-font] (menu-item "Set Default Font..." menu-set-font :visible (display-multi-font-p) :help "Select a default font") featurep system-font-setting [menu-system-font] defalias toggle-use-system-font #[256 "\300\301!\210\301\302N\206\303\301\304N\206\305
\301\301!?\"\266\202\203&\306\307\310\"\210\202+\306\307\311\"\210\211\2052\312\301!\207" [custom-load-symbol font-use-system-font custom-set set-default custom-get default-value message "Use system font: %s" #1="enabled globally" #2="disabled globally" customize-mark-as-set] 7 "Toggle whether to use the monospaced font defined by the system.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3="p"] (menu-item "Use System Font" toggle-use-system-font :help "Use the monospaced font defined by the system" :button (:toggle and (default-boundp 'font-use-system-font) (default-value 'font-use-system-font))) [showhide] "Show/Hide" [showhide-separator] [mule] "Multilingual Environment" [mule-separator] [debug-on-quit] toggle-debug-on-quit #[256 "\300\301!\210\301\302N\206\303\301\304N\206\305
\301\301!?\"\266\202\203&\306\307\310\"\210\202+\306\307\311\"\210\211\2052\312\301!\207" [custom-load-symbol debug-on-quit custom-set set-default custom-get default-value message "Debug on Quit %s" #1# #2# customize-mark-as-set] 7 "Toggle whether to enter Lisp debugger when C-g is pressed.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3#] (menu-item "Enter Debugger on Quit/C-g" toggle-debug-on-quit :help "Enter Lisp debugger when C-g is pressed" :button (:toggle and (default-boundp 'debug-on-quit) (default-value 'debug-on-quit))) [debug-on-error] toggle-debug-on-error #[256 "\300\301!\210\301\302N\206\303\301\304N\206\305
\301\301!?\"\266\202\203&\306\307\310\"\210\202+\306\307\311\"\210\211\2052\312\301!\207" [custom-load-symbol debug-on-error custom-set set-default custom-get default-value message "Debug on Error %s" #1# #2# customize-mark-as-set] 7 "Toggle whether to enter Lisp debugger when an error is signaled.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3#] (menu-item "Enter Debugger on Error" toggle-debug-on-error :help "Enter Lisp debugger when an error is signaled" :button (:toggle and (default-boundp 'debug-on-error) (default-value 'debug-on-error))) [debugger-separator] [blink-cursor-mode] (menu-item "Blink Cursor" blink-cursor-mode :help "Whether the cursor blinks (Blink Cursor mode)" :button (:toggle and (default-boundp 'blink-cursor-mode) (default-value 'blink-cursor-mode))) [cursor-separator] [save-desktop] toggle-save-desktop-globally #[256 "\300\301!\210\302\303\211J?\"\203\304\305\306\"\210\202\304\305\307\"\210\211\205!\310\303!\207" [require desktop set-default desktop-save-mode message "Saving desktop state %s" #1# #2# customize-mark-as-set] 4 "Toggle whether to visit desktop of previous session when restarting Emacs.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3#] (menu-item "Save State between Sessions" toggle-save-desktop-globally :help "Visit desktop of previous session when restarting Emacs" :button (:toggle and (default-boundp 'desktop-save-mode) (default-value 'desktop-save-mode))) [save-place] toggle-save-place-globally #[256 "\300\301!\210\302\303\211J?\"\203\304\305\306\"\210\202\304\305\307\"\210\211\205!\310\303!\207" [require saveplace set-default save-place-mode message "Saving place in files %s" #1# #2# customize-mark-as-set] 4 "Toggle whether to visit files of previous session when restarting Emacs.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3#] (menu-item "Save Place in Files between Sessions" toggle-save-place-globally :help "Visit files of previous session when restarting Emacs" :button (:toggle and (default-boundp 'save-place-mode) (default-value 'save-place-mode))) [uniquify] toggle-uniquify-buffer-names #[256 "?\205\301\211\203\302\303\304\"\210\202\302\303\305\"\210\211\205\306\300!\207" [uniquify-buffer-name-style post-forward-angle-brackets message "Directory name in buffer names (uniquify) %s" #1# #2# customize-mark-as-set] 4 "Toggle whether to uniquify buffer names by adding parent directory names.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers.\n\n(fn &optional INTERACTIVELY)" #3#] (menu-item "Use Directory Names in Buffer Names" toggle-uniquify-buffer-names :help "Uniquify buffer names by adding parent directory names" :button (:toggle and (default-boundp 'uniquify-buffer-name-style) (default-value 'uniquify-buffer-name-style))) [edit-options-separator] [cua-mode] (menu-item "Cut/Paste with C-x/C-c/C-v (CUA Mode)" cua-mode :visible (or (not (boundp 'cua-enable-cua-keys)) cua-enable-cua-keys) :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :button (:toggle and (default-boundp 'cua-mode) (default-value 'cua-mode))) [cua-emulation-mode] (menu-item "CUA Mode (without C-x/C-c/C-v)" cua-mode :visible (and (boundp 'cua-enable-cua-keys) (not cua-enable-cua-keys)) :help "Enable CUA Mode without rebinding C-x/C-c/C-v keys" :button (:toggle and (default-boundp 'cua-mode) (default-value 'cua-mode))) [search-options] "Default Search Options" [line-wrapping] "Line Wrapping in This Buffer" [highlight-separator] [highlight-paren-mode] (menu-item "Highlight Matching Parentheses" show-paren-mode :help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button (:toggle and (default-boundp 'show-paren-mode) (default-value 'show-paren-mode))) [transient-mark-mode] (menu-item "Highlight Active Region" transient-mark-mode :enable (not cua-mode) :help "Make text in active region stand out in color (Transient Mark mode)" :button (:toggle and (default-boundp 'transient-mark-mode) (default-value 'transient-mark-mode)))] 7))
(defvar menu-bar-games-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\302
\317\320#\210\302
\321\322#\210\302
\323\324#\210\302
\325\326#\210\302
\327\330#\210\302
\331\332#\210\302
\333\334#\210\207" [make-sparse-keymap "Games" bindings--define-key [zone] (menu-item "Zone Out" zone :help "Play tricks with Emacs display when Emacs is idle") [tetris] (menu-item "Tetris" tetris :help "Falling blocks game") [solitaire] (menu-item "Solitaire" solitaire :help "Get rid of all the stones") [snake] (menu-item "Snake" snake :help "Move snake around avoiding collisions") [pong] (menu-item "Pong" pong :help "Bounce the ball to your opponent") [mult] (menu-item "Multiplication Puzzle" mpuz :help "Exercise brain with multiplication") [life] (menu-item "Life" life :help "Watch how John Conway's cellular automaton evolves") [hanoi] (menu-item "Towers of Hanoi" hanoi :help "Watch Towers-of-Hanoi puzzle solved by Emacs") [gomoku] (menu-item "Gomoku" gomoku :help "Mark 5 contiguous squares (like tic-tac-toe)") [bubbles] (menu-item "Bubbles" bubbles :help "Remove all bubbles using the fewest moves") [black-box] (menu-item "Blackbox" blackbox :help "Find balls in a black box by shooting rays") [adventure] (menu-item "Adventure" dunnet :help "Dunnet, a text Adventure game for Emacs") [5x5] (menu-item "5x5" 5x5 :help "Fill in all the squares on a 5x5 board")] 5))
(defvar menu-bar-encryption-decryption-menu (byte-code "\301\302!\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\303
\314\315#\210\303
\316#\210\303
\317\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\303
\327#\210\303
\330\331#\210\303
\332\333#\210\303
\334\335#\210\303
\336\337#\210\207" [menu-bar-separator make-sparse-keymap "Encryption/Decryption" bindings--define-key [insert-keys] (menu-item "Insert Keys" epa-insert-keys :help "Insert public keys after the current point") [export-keys] (menu-item "Export Keys" epa-export-keys :help "Export public keys to a file") [import-keys-region] (menu-item "Import Keys from Region" epa-import-keys-region :help "Import public keys from the current region") [import-keys] (menu-item "Import Keys from File..." epa-import-keys :help "Import public keys from a file") [list-keys] (menu-item "List Keys" epa-list-keys :help "Browse your public keyring") [separator-keys] [sign-region] (menu-item "Sign Region" epa-sign-region :help "Create digital signature of the current region") [verify-region] (menu-item "Verify Region" epa-verify-region :help "Verify digital signature of the current region") [encrypt-region] (menu-item "Encrypt Region" epa-encrypt-region :help "Encrypt the current region") [decrypt-region] (menu-item "Decrypt Region" epa-decrypt-region :help "Decrypt the current region") [separator-file] [sign-file] (menu-item "Sign File..." epa-sign-file :help "Create digital signature of a file") [verify-file] (menu-item "Verify File..." epa-verify-file :help "Verify digital signature of a file") [encrypt-file] (menu-item "Encrypt File..." epa-encrypt-file :help "Encrypt a file") [decrypt-file] (menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt a file")] 5))
(defvar menu-bar-shell-commands-menu (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\207" [make-sparse-keymap "Shell Commands" bindings--define-key [interactive-shell] (menu-item "Run Shell Interactively" shell :help "Run a subshell interactively") [async-shell-command] (menu-item "Async Shell Command..." async-shell-command :help "Invoke a shell command asynchronously in background") [shell-on-region] (menu-item "Shell Command on Region..." shell-command-on-region :enable mark-active :help "Pass marked region to a shell command") [shell] (menu-item "Shell Command..." shell-command :help "Invoke a shell command and catch its output")] 5))
#@38 Read mail using `read-mail-command'.
(defalias 'menu-bar-read-mail #[0 "\301!\207" [read-mail-command call-interactively] 2 (#$ . 58698) nil])
(defvar menu-bar-tools-menu (byte-code "\304\305!\306
\307\310\311E#\210\306
\312	#\210\306
\313\310\314\nE#\210\306
\315	#\210\306
\316\317#\210\306
\320\321#\210\306
\322\323#\210\306
\324	#\210\306
\325\326#\210\306
\327\330#\210\306
\331\332#\210\306
\333\334#\210\306
\335\336#\210\306
\337	#\210\306
\340\341#\210\306
\342	#\210\306
\343\344#\210\306
\345\346#\210\306
\347\350#\210\306
\351	#\210\306
\352\353#\210\306
\354	#\210\306
\355\356#\210\306
\357\360#\210\306
\361\362#\210\306
\363\364#\210\306
\365\310\366E#\210\306
\367\370#\210\306
\371\372#\210\207" [menu-bar-games-menu menu-bar-separator menu-bar-encryption-decryption-menu menu-bar-shell-commands-menu make-sparse-keymap "Tools" bindings--define-key [games] menu-item "Games" [separator-games] [encryption-decryption] "Encryption/Decryption" [separator-encryption-decryption] [simple-calculator] (menu-item "Simple Calculator" calculator :help "Invoke the Emacs built-in quick calculator") [calc] (menu-item "Programmable Calculator" calc :help "Invoke the Emacs built-in full scientific calculator") [calendar] (menu-item "Calendar" calendar :help "Invoke the Emacs built-in calendar") [separator-net] [browse-web] (menu-item "Browse the Web..." browse-web) [directory-search] (menu-item "Directory Servers" eudc-tools-menu) [compose-mail] (menu-item "Compose New Mail" compose-mail :visible (and mail-user-agent (not (eq mail-user-agent 'ignore))) :help "Start writing a new mail message") [rmail] (menu-item "Read Mail" menu-bar-read-mail :visible (and read-mail-command (not (eq read-mail-command 'ignore))) :help "Read your mail") [gnus] (menu-item "Read Net News" gnus :help "Read network news groups") [separator-vc] [vc] nil [separator-compare] [epatch] (menu-item "Apply Patch" menu-bar-epatch-menu) [ediff-merge] (menu-item "Merge" menu-bar-ediff-merge-menu) [compare] (menu-item "Compare (Ediff)" menu-bar-ediff-menu) [separator-spell] [spell] (menu-item "Spell Checking" ispell-menu-map) [separator-prog] [semantic] (menu-item "Source Code Parsers (Semantic)" semantic-mode :help "Toggle automatic parsing in source code buffers (Semantic mode)" :button (:toggle bound-and-true-p semantic-mode)) [ede] (menu-item "Project Support (EDE)" global-ede-mode :help "Toggle the Emacs Development Environment (Global EDE mode)" :button (:toggle bound-and-true-p global-ede-mode)) [gdb] (menu-item "Debugger (GDB)..." gdb :help "Debug a program from within Emacs with GDB") [compile] (menu-item "Compile..." compile :help "Invoke compiler or Make, view compilation errors") [shell-commands] "Shell Commands" [rgrep] (menu-item "Recursive Grep..." rgrep :help "Interactively ask for parameters and search recursively") [grep] (menu-item "Search Files (Grep)..." grep :help "Search files for strings or regexps (with Grep)")] 7))
(defvar menu-bar-describe-menu (byte-code "\302\303!\304
\305\306#\210\304
\307\310#\210\304
\311\312#\210\304
\313\314#\210\304
\315\316\317E#\210\304
\320	#\210\304
\321\322#\210\304
\323\324#\210\304
\325\326#\210\304
\327\330#\210\304
\331\332#\210\304
\333\334#\210\304
\335\336#\210\304
\337\340#\210\304
\341\342#\210\304
\343\344#\210\304
\345\346#\210\207" [describe-language-environment-map menu-bar-separator make-sparse-keymap "Describe" bindings--define-key [mule-diag] (menu-item "Show All of Mule Status" mule-diag :help "Display multilingual environment settings") [describe-coding-system-briefly] (menu-item "Describe Coding System (Briefly)" describe-current-coding-system-briefly) [describe-coding-system] (menu-item "Describe Coding System..." describe-coding-system) [describe-input-method] (menu-item "Describe Input Method..." describe-input-method :help "Keyboard layout for specific input method") [describe-language-environment] menu-item "Describe Language Environment" [separator-desc-mule] [list-keybindings] (menu-item "List Key Bindings" describe-bindings :help "Display all current key bindings (keyboard shortcuts)") [list-recent-keystrokes] (menu-item "Show Recent Inputs" view-lossage :help "Display last few input events and the commands they ran") [describe-current-display-table] (menu-item "Describe Display Table" describe-current-display-table :help "Describe the current display table") [describe-package] (menu-item "Describe Package..." describe-package :help "Display documentation of a Lisp package") [describe-face] (menu-item "Describe Face..." describe-face :help "Display the properties of a face") [describe-variable] (menu-item "Describe Variable..." describe-variable :help "Display documentation of variable/option") [describe-function] (menu-item "Describe Function..." describe-function :help "Display documentation of function/command") [describe-command] (menu-item "Describe Command..." describe-command :help "Display documentation of command") [shortdoc-display-group] (menu-item "Function Group Overview..." shortdoc-display-group :help "Display a function overview for a specific topic") [describe-key-1] (menu-item "Describe Key or Mouse Operation..." describe-key :help "Display documentation of command bound to a key, a click, or a menu-item") [describe-mode] (menu-item "Describe Buffer Modes" describe-mode :help "Describe this buffer's major and minor mode")] 7))
#@55 Display the Emacs Lisp Reference manual in Info mode.
(defalias 'menu-bar-read-lispref #[0 "\300\301!\207" [info "elisp"] 2 (#$ . 64092) nil])
#@66 Display the Introduction to Emacs Lisp Programming in Info mode.
(defalias 'menu-bar-read-lispintro #[0 "\300\301!\207" [info "eintr"] 2 (#$ . 64241) nil])
#@61 Display the Glossary node of the Emacs manual in Info mode.
(defalias 'search-emacs-glossary #[0 "\300\301!\207" [info "(emacs)Glossary"] 2 (#$ . 64403) nil])
(defalias 'emacs-index--prompt #[0 "\300\301!\302\303\304\203\303\305\"\202\306\"\307\211\211\211&\211G\310U\203&
\202'\211C\207" [thing-at-point sexp read-from-minibuffer format "Subject to look up%s: " " (default \"%s\")" "" nil 0] 8])
#@68 Look up TOPIC in the indices of the Emacs User Manual.

(fn TOPIC)
(defalias 'emacs-index-search #[257 "\300\301!\210\302
!\207" [info "emacs" Info-index] 3 (#$ . 64817) (emacs-index--prompt)])
#@78 Look up TOPIC in the indices of the Emacs Lisp Reference Manual.

(fn TOPIC)
(defalias 'elisp-index-search #[257 "\300\301!\210\302
!\207" [info "elisp" Info-index] 3 (#$ . 65017) (emacs-index--prompt)])
(defvar menu-bar-search-documentation-menu (byte-code "\301\302!\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\303
\314\315#\210\303
\316#\210\303
\317\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\303
\327\330#\210\303
\331\332#\210\207" [menu-bar-separator make-sparse-keymap "Search Documentation" bindings--define-key [search-documentation-strings] (menu-item "Search Documentation Strings..." apropos-documentation :help "Find functions and variables whose doc strings match a regexp") [find-any-object-by-name] (menu-item "Find Any Object by Name..." apropos :help "Find symbols of any kind whose names match a regexp") [find-option-by-value] (menu-item "Find Options by Value..." apropos-value :help "Find variables whose values match a regexp") [find-options-by-name] (menu-item "Find Options by Name..." apropos-user-option :help "Find user options whose names match a regexp") [find-commands-by-name] (menu-item "Find Commands by Name..." apropos-command :help "Find commands whose names match a regexp") [sep1] [lookup-symbol-in-manual] (menu-item "Look Up Symbol in Manual..." info-lookup-symbol :help "Display manual section that describes a symbol") [lookup-command-in-manual] (menu-item "Look Up Command in User Manual..." Info-goto-emacs-command-node :help "Display manual section that describes a command") [lookup-key-in-manual] (menu-item "Look Up Key in User Manual..." Info-goto-emacs-key-command-node :help "Display manual section that describes a key") [lookup-subject-in-elisp-manual] (menu-item "Look Up Subject in ELisp Manual..." elisp-index-search :help "Find description of a subject in Emacs Lisp manual") [lookup-subject-in-emacs-manual] (menu-item "Look Up Subject in User Manual..." emacs-index-search :help "Find description of a subject in Emacs User manual") [emacs-terminology] (menu-item "Emacs Terminology" search-emacs-glossary :help "Display the Glossary section of the Emacs manual")] 5))
(defvar menu-bar-manuals-menu (byte-code "\301\302!\303
\304\305#\210\303
\306#\210\303
\307\310#\210\303
\311\312#\210\303
\313\314#\210\303
\315\316#\210\303
\317\320#\210\207" [menu-bar-separator make-sparse-keymap "More Manuals" bindings--define-key [man] (menu-item "Read Man Page..." manual-entry :help "Man-page docs for external commands and libraries") [sep2] [order-emacs-manuals] (menu-item "Ordering Manuals" view-order-manuals :help "How to order manuals from the Free Software Foundation") [lookup-subject-in-all-manuals] (menu-item "Lookup Subject in all Manuals..." info-apropos :help "Find description of a subject in all installed manuals") [other-manuals] (menu-item "All Other Manuals (Info)" Info-directory :help "Read any of the installed manuals") [emacs-lisp-reference] (menu-item "Emacs Lisp Reference" menu-bar-read-lispref :help "Read the Emacs Lisp Reference manual") [emacs-lisp-intro] (menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro :help "Read the Introduction to Emacs Lisp Programming")] 5))
#@61 Use the Emacs tutorial, specifying which language you want.
(defalias 'help-with-tutorial-spec-language #[0 "\300\301!\207" [help-with-tutorial t] 2 (#$ . 68244) nil])
(defvar menu-bar-help-menu (byte-code "\305\306!\307
\310\311#\210\307
\312\313#\210\307
\314#\210\307
\315\316#\210\307
\317\320#\210\307
\321\322#\210\307
\323#\210\307
\324\325#\210\307
\326\327#\210\307
\330\331\332	E#\210\307
\333\334#\210\307
\335\331\336\nE#\210\307
\337\331\340E#\210\307
\341#\210\307
\342\343#\210\307
\344\345#\210\307
\346\347#\210\307
\350\351#\210\307
\352\353#\210\307
\354\355#\210\307
\356\357#\210\307
\360\361#\210\362\363!\203\242\f\364=\204\242\307
\365\366#\210\207" [menu-bar-separator menu-bar-manuals-menu menu-bar-describe-menu menu-bar-search-documentation-menu system-type make-sparse-keymap "Help" bindings--define-key [about-gnu-project] (menu-item "About GNU" describe-gnu-project :help "About the GNU System, GNU Project, and GNU/Linux") [about-emacs] (menu-item "About Emacs" about-emacs :help "Display version number, copyright info, and basic help") [sep4] [describe-no-warranty] (menu-item "(Non)Warranty" describe-no-warranty :help "Explain that Emacs has NO WARRANTY") [describe-copying] (menu-item "Copying Conditions" describe-copying :help "Show the Emacs license (GPL)") [getting-new-versions] (menu-item "Getting New Versions" describe-distribution :help "How to get the latest version of Emacs") [sep2] [external-packages] (menu-item "Finding Extra Packages" view-external-packages :help "How to get more Lisp packages for use in Emacs") [find-emacs-packages] (menu-item "Search Built-in Packages" finder-by-keyword :help "Find built-in packages and features by keyword") [more-manuals] menu-item "More Manuals" [emacs-manual] (menu-item "Read the Emacs Manual" info-emacs-manual :help "Full documentation of Emacs features") [describe] "Describe" [search-documentation] "Search Documentation" [sep1] [emacs-psychotherapist] (menu-item "Emacs Psychotherapist" doctor :help "Our doctor will help you feel better") [send-emacs-bug-report] (menu-item "Send Bug Report..." report-emacs-bug :help "Send e-mail to Emacs maintainers") [emacs-manual-bug] (menu-item "How to Report a Bug" info-emacs-bug :help "Read about how to report an Emacs bug") [emacs-known-problems] (menu-item "Emacs Known Problems" view-emacs-problems :help "Read about known problems with Emacs") [emacs-news] (menu-item "Emacs News" view-emacs-news :help "New features of this version") [emacs-faq] (menu-item "Emacs FAQ" view-emacs-FAQ :help "Frequently asked (and answered) questions about Emacs") [emacs-tutorial-language-specific] (menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-spec-language :help "Learn how to use Emacs (choose a language)") [emacs-tutorial] (menu-item "Emacs Tutorial" help-with-tutorial :help "Learn how to use Emacs") featurep ns darwin [info-panel] (menu-item "About Emacs..." ns-do-emacs-info-panel)] 7))
(byte-code "\306\307\310	B#\210\306\311\312\nB#\210\306\313\314B#\210\306\315\316\fB#\210\306\317\320
B#\210\306\321\322\323!B#\210\324\325\326#\207" [global-map menu-bar-tools-menu global-buffers-menu-map menu-bar-options-menu menu-bar-edit-menu menu-bar-file-menu bindings--define-key [menu-bar tools] "Tools" [menu-bar buffer] "Buffers" [menu-bar options] "Options" [menu-bar edit] "Edit" [menu-bar file] "File" [menu-bar help-menu] purecopy "Help" define-key [menu-bar mouse-1] menu-bar-open-mouse menu-bar-help-menu] 5)
#@120 Return non-nil if the menu frame is alive and visible.
The menu frame is the frame for which we are updating the menu.
(defalias 'menu-bar-menu-frame-live-and-visible-p #[0 "\206\301 \302
!\205\303
!\207" [menu-updating-frame selected-frame frame-live-p frame-visible-p] 3 (#$ . 71744)])
#@226 Return non-nil if the menu frame's selected window is no minibuffer window.
Return nil if the menu frame is dead or its selected window is a
minibuffer window.  The menu frame is the frame for which we are
updating the menu.
(defalias 'menu-bar-non-minibuffer-window-p #[0 "\206\301 \302
!\205\303\304!!?\207" [menu-updating-frame selected-frame frame-live-p window-minibuffer-p frame-selected-window] 4 (#$ . 72044)])
#@225 Kill the current buffer.
When called in the minibuffer, get out of the minibuffer
using `abort-recursive-edit'.

This command can be reliably invoked only from the menu bar,
otherwise it could decide to silently do nothing.
(defalias 'kill-this-buffer #[0 "\300 ?\206\301 \203\302p!\207\303 \207" [menu-bar-menu-frame-live-and-visible-p menu-bar-non-minibuffer-window-p kill-buffer abort-recursive-edit] 2 (#$ . 72476) nil])
#@71 Return non-nil if the `kill-this-buffer' menu item should be enabled.
(defalias 'kill-this-buffer-enabled-p #[0 "\301 ?\206@\302\3032>\304 \211\205;\211@\305\306!\302\307\310#)\266\203\2044\204/\307\262\2024\311\303\307\"\210
A\266\202\202
\262
0\262
\207" [inhibit-changing-match-data menu-bar-non-minibuffer-window-p nil found-2 buffer-list "^ " buffer-name t string-match throw] 10 (#$ . 72911)])
(put 'dired 'menu-enable '(menu-bar-non-minibuffer-window-p))
#@69 Return non-nil if `delete-frame' should be enabled in the menu bar.
(defalias 'delete-frame-enabled-p #[0 "\300 \301
\203\302@!\203\211T\262

A\262\202\211\303V\207" [frame-list 0 frame-visible-p 1] 4 (#$ . 73393)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable yank-menu-length funcall function #[0 "\300\207" [20] 1 ""] "Text of items in `yank-menu' longer than this will be truncated." :type integer :group menu] 8)
#@19 

(fn STRING OLD)
(defalias 'menu-bar-update-yank-menu #[514 "A@G	X\203\202\303	\304\245O\305	\304\245[\306OQ\307\310\"\203)\211\311P\262
\203H@=\204;@\230\203H
\240\210
A
\240\266\202T\312BBAB\241\266AG\nV\205a\n\233\306\241\207" [yank-menu yank-menu-length kill-ring-max 0 2 "..." nil string-match "\\`-+\\'" " " menu-bar-select-yank] 8 (#$ . 73867)])
(put 'menu-bar-select-yank 'apropos-inhibit t)
#@134 Insert the stretch of previously-killed text selected from menu.
The menu shows all the killed text sequences stored in `kill-ring'.
(defalias 'menu-bar-select-yank #[0 "\301 \210c\207" [last-command-event push-mark] 1 (#$ . 74305) "*"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\321\322\323\324\306\325\310\311&\210\300\326\302\303\327DD\330\321\331\323\324\306\332\310\311&\207" [custom-declare-variable buffers-menu-max-size funcall function #[0 "\300\207" [10] 1 #1=""] "Maximum number of entries which may appear on the Buffers menu.\nIf this is 10, then only the ten most-recently-selected buffers are shown.\nIf this is nil, then all buffers are shown.\nA large number or nil slows down menu responsiveness." :type (choice integer (const :tag "All" nil)) :group menu buffers-menu-buffer-name-length #[0 "\300\207" [30] 1 #1#] "Maximum length of the buffer name on the Buffers menu.\nIf this is a number, then buffer names are truncated to this length.\nIf this is nil, then buffer names are shown in full.\nA large number or nil makes the menu too wide." (choice integer (const :tag "Full length" nil)) buffers-menu-show-directories #[0 "\300\207" [unless-uniquify] 1 #1#] "If non-nil, show directories in the Buffers menu for buffers that have them.\nThe special value `unless-uniquify' means that directories will be shown\nunless `uniquify-buffer-name-style' is non-nil (in which case, buffer\nnames should include enough of a buffer's directory to distinguish it\nfrom other buffers).\n\nSetting this variable directly does not take effect until next time the\nBuffers menu is regenerated." :set #[514 "

L\210\300\301!\207" [menu-bar-update-buffers t] 4 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default (choice (const :tag "Never" nil) (const :tag "Unless uniquify is enabled" unless-uniquify) (const :tag "Always" t)) buffers-menu-show-status #[0 "\300\207" [t] 1 #1#] "If non-nil, show modified/read-only status of buffers in the Buffers menu.\nSetting this variable directly does not take effect until next time the\nBuffers menu is regenerated." #[514 "

L\210\300\301!\207" [menu-bar-update-buffers t] 4 "\n\n(fn SYMBOL VALUE)"] boolean] 12)
#@71 String to display in buffer listings for buffers not visiting a file.
(defvar list-buffers-directory nil (#$ . 76580))
(make-variable-buffer-local 'list-buffers-directory)
(defalias 'menu-bar-select-buffer #[0 "\301!\207" [last-command-event switch-to-buffer] 2 nil nil])
(make-obsolete 'menu-bar-select-buffer nil "28.1")
#@14 

(fn FRAME)
(defalias 'menu-bar-select-frame #[257 "\300
!\210\301
!\210\302
!\207" [make-frame-visible raise-frame select-frame] 3 (#$ . 76910)])
#@12 

(fn ELT)
(defalias 'menu-bar-update-buffers-1 #[257 "\211@\303=\203\304\301!\203	?\202\205!\305
!\206!\306\307\"\211\203*\310
!\262
\211\203=\211G\311V\203=\312
\313\314OP\262
\n\203x\315!\203K\316\202L\317\306\320\"\203W\321\202X\317\203k\322\323A%\266\202\202\207\322\324A$\266\202\202\207\211\203\205\322\325A#\202\207AB\207" [buffers-menu-show-directories uniquify-buffer-name-style buffers-menu-show-status unless-uniquify boundp buffer-file-name buffer-local-value list-buffers-directory file-name-directory 20 "..." -17 nil buffer-modified-p "*" "" buffer-read-only "%" format "%s  %s%s  --  %s" "%s  %s%s" "%s  --  %s"] 11 (#$ . 77064)])
(defvar menu-bar-buffers-menu-command-entries nil)
#@127 Function to select the buffer chosen from the `Buffers' menu-bar menu.
It must accept a buffer as its only required argument.
(defvar menu-bar-select-buffer-function 'switch-to-buffer (#$ . 77811))
#@53 Turn ((name . buffer) ...) into a menu.

(fn ALIST)
(defalias 'menu-bar-buffer-vector #[257 "\300
G\301\"
G\211\203(\211@S\262@A\302\303\"\262
BI\210
A\266\202\202\210
\207" [make-vector nil make-closure #[0 "	\300!\207" [V0 menu-bar-select-buffer-function] 2 nil nil]] 12 (#$ . 78015)])
#@70 If user discards the Buffers item, play along.

(fn &optional FORCE)
(defalias 'menu-bar-update-buffers #[256 "\304\305 \306\"\205\354\211\204\307 \205\354\310 \311 \312\313\250\205#\314V\205#\312\203t\211A\262\242\315
!\211\313H\316=\204o\317	\250\203YG	V\203Y\313	\320\245O\321	\320\245[\312OQ\202ZB!B\262\322T\211\262\"\203o\312\262\266\202$\323
!C\266\203\262

A\203\270\324G\312\"\325\326DB\313\211\203\253\211@\327\330\"\331\332\"BI\210T\262
A\266\202\202\215\210\333\334\335\336FD\244\266\204\n\204\340\337\340\335\341\340\342\343\257\344\335\345\344\342\346\257\347\335\350\351\342\352\257\353\335\354\355\342\356\257\257\211\n\244\262
\357B\241\266\203\207" [buffers-menu-max-size buffers-menu-buffer-name-length menu-bar-buffers-menu-command-entries global-buffers-menu-map lookup-key current-global-map [menu-bar buffer] frame-or-buffer-changed-p buffer-list frame-list nil 0 1 buffer-name 32 menu-bar-update-buffers-1 2 "..." eql menu-bar-buffer-vector make-vector keymap "Select Frame" frame-parameter name make-closure #[0 "\301\300!\207" [V0 menu-bar-select-frame] 2 nil nil] (frames-separator "--") frames menu-item "Frames" (command-separator "--") next-buffer "Next Buffer" :help "Switch to the \"next\" buffer in a cyclic order" previous-buffer "Previous Buffer" "Switch to the \"previous\" buffer in a cyclic order" select-named-buffer "Select Named Buffer..." switch-to-buffer "Prompt for a buffer name, and select that buffer in the current window" list-all-buffers "List All Buffers" list-buffers "Pop up a window listing all Emacs buffers" "Buffers"] 16 (#$ . 78320)])
(byte-code "\302\303\304\"\210\304 \210	D\211\203\"\211@\305
\306\307\310\307!B#\210
A\266\202\202\210	\305
\311\312#\210\305
\313\314#\210\305
\315\316#\266\305
\317\320#\210\305
\321\322#\210\305
\323\324#\210\305
\325\326#\210\305
\327\330#\210\305
\331\332#\210\207" [minibuffer-local-map minibuffer-local-completion-map add-hook menu-bar-update-hook menu-bar-update-buffers bindings--define-key [menu-bar minibuf] "Minibuf" make-sparse-keymap [menu-bar minibuf 63] (menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") [menu-bar minibuf space] (menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") [menu-bar minibuf tab] (menu-item "Complete" minibuffer-complete :help "Complete as far as possible") [menu-bar minibuf quit] (menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") [menu-bar minibuf return] (menu-item "Enter" exit-minibuffer :key-sequence "
" :help "Terminate input and exit minibuffer") [menu-bar minibuf isearch-forward] (menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") [menu-bar minibuf isearch-backward] (menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") [menu-bar minibuf next] (menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") [menu-bar minibuf previous] (menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer")] 8)
#@699 Toggle display of a menu bar on each frame (Menu Bar mode).

This is a minor mode.  If called interactively, toggle the `Menu-Bar
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `menu-bar-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

This command applies to all frames that exist and frames to be
created in the future.

(fn &optional ARG)
(defalias 'menu-bar-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\2039\305\202:\312\313 \211\203O\211@\314
\315#\210
A\266\202\202<\210\315\n\236\203_\315
B\316\315\n\"B\210\317\320!\203s\204s\321\312\306\322\323\324!$\210\325\326\203}\327\202~\330\"\210\317\331!\203\240\303 \203\222\211\303 \232\203\240\322\332\203\234\333\202\235\334\335#\210\210\336 \210\207" [menu-bar-mode global-minor-modes default-frame-alist current-message toggle 1 nil t boundp delq 0 frame-list set-frame-parameter menu-bar-lines assq-delete-all called-interactively-p interactive run-with-idle-timer message substitute-command-keys "Menu Bar mode disabled.  Use \\[menu-bar-mode] to make the menu bar appear." run-hooks menu-bar-mode-hook menu-bar-mode-on-hook menu-bar-mode-off-hook any "Menu-Bar mode %sabled%s" "en" "dis" "" force-mode-line-update] 9 (#$ . 81585) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar menu-bar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\303\312\307\314#\207" [menu-bar-mode-map menu-bar-mode-hook variable-documentation put "Hook run after entering or leaving `menu-bar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode menu-bar-mode boundp (t)] 6)
#@116 Toggle display of the menu bar of the current frame.
See `menu-bar-mode' for more information.

(fn &optional ARG)
(defalias 'toggle-menu-bar-mode-from-frame #[256 "\211\300=\203\301\302\303\304 \305\"!\203\306\202\307!\207\301
!\207" [toggle menu-bar-mode menu-bar-positive-p frame-parameter menu-bar-frame-for-menubar menu-bar-lines 0 1] 6 (#$ . 83841) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
#@68 Call `lookup-key' and convert numeric values to nil.

(fn MAP KEY)
(defalias 'lookup-key-ignore-too-long #[514 "\300\"\211\247?\205\211\207" [lookup-key] 5 (#$ . 84271)])
#@449 Popup the given menu and call the selected option.
MENU can be a keymap, an easymenu-style menu or a list of keymaps as for
`x-popup-menu'.
The menu is shown at the place where POSITION specifies.
For the form of POSITION, see `popup-menu-normalize-position'.
PREFIX is the prefix argument (if any) to pass to the command.
FROM-MENU-BAR, if non-nil, means we are dropping one of menu-bar's menus.

(fn MENU &optional POSITION PREFIX FROM-MENU-BAR)
(defalias 'popup-menu #[1025 "\302!\203\n\202D<\203\302@!\203\202D<\204#\303\202D\304@A\"\2119\2054\305
\306N\307\"\211\203A\211K!\266\202\202D
\266\202\310 \303\211\203g\311
8\262
\312
@A\"\211\313\314FD\262	\266\202m\315!\262\203\375\316\317!\"\211\262\203\375\203\270
:\203\270
@\247\203\270
A\247\203\270
@A\303\312\"\262
\211\320\314FD\262\n\321\322\323\"!\211\262\266\203\202\353\302!\204\344<\203\344\324\322\"\303\203\337\211\204\337\325@\"\262
A\262\202\310\262
\202\353\326\324\322\"\"\262
\327\330!\210\302
!\205\370\211\262\202m?\205
\331
!\205
\332!@\333
!\207" [prefix-arg last-command-event keymapp nil easy-menu-create-menu plist-get menu-prop :filter selected-frame 2 menu-bar-menu-at-x-y (menu-bar) 0 popup-menu-normalize-position x-popup-menu indirect-function (menu-bar) key-binding vector menu-bar apply lookup-key-ignore-too-long lookup-key message "" commandp last call-interactively] 16 (#$ . 84453)])
#@262 Convert the POSITION to the form which `popup-menu' expects internally.
POSITION can be an event, a posn- value, a value having the
form ((XOFFSET YOFFSET) WINDOW), or nil.
If nil, the current mouse position is used, or nil if there is no mouse.

(fn POSITION)
(defalias 'popup-menu-normalize-position #[257 "\211\204\300 \211A@
AAD
@D\207\301
!\203)\211\302
8\262
\211@
AD\211@\262
D\207\303
!\2035\304\305!!\207\207" [mouse-pixel-position posnp 2 eventp popup-menu-normalize-position event-end] 5 (#$ . 85917)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable tty-menu-open-use-tmm funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, \\[menu-bar-open] on a TTY will invoke `tmm-menubar'.\n\nIf nil, \\[menu-bar-open] will drop down the menu corresponding to the\nfirst (leftmost) menu-bar item; you can select other items by typing\n\\[forward-char], \\[backward-char], \\[right-char] and \\[left-char]." :type (choice (const :tag "F10 drops down TTY menus" nil) (const :tag "F10 invokes tmm-menubar" t)) :group display :version "24.4"] 10)
#@113 X coordinate of the first menu-bar menu dropped by F10.

This is meant to be used only for debugging TTY menus.
(defvar tty-menu--initial-menu-x 1 (#$ . 87025))
#@591 Start key navigation of the menu bar in FRAME.

Optional argument INITIAL-X gives the X coordinate of the
first TTY menu-bar menu to be dropped down.  Interactively,
this is the numeric argument to the command.
This function decides which method to use to access the menu
depending on FRAME's terminal device.  On X displays, it calls
`x-menu-bar-open'; on Windows, `w32-menu-bar-open'; otherwise it
calls either `popup-menu' or `tmm-menubar' depending on whether
`tty-menu-open-use-tmm' is nil or not.

If FRAME is nil or not given, use the selected frame.

(fn &optional FRAME INITIAL-X)
(defalias 'menu-bar-open #[512 "\303\206\304 !\211\305\267\202\306!\207\307!\207\204c\310\311\312\"\206\"\313\313U\204c\314 \210\315 \210
	]\316
\313#\317\320\n\321\322\"\"\206Y\320\323 \321\322\"\"\206Y\324\321\322\"!@A\206Y\325 \326\313\311\327$\311\327$\207\304 p\330\331#\216\332\206s\304 \333\"\210\334 )\207" [tty-menu-open-use-tmm tty-menu--initial-menu-x global-map framep selected-frame #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 14 w32 18)) x-menu-bar-open w32-menu-bar-open frame-parameter nil menu-bar-lines 0 force-mode-line-update redisplay menu-bar-menu-at-x-y popup-menu lookup-key-ignore-too-long vector menu-bar current-local-map minor-mode-key-binding mouse-menu-bar-map posn-at-x-y t make-closure #[0 "\302\300!\203\303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord tmm-menubar] 12 (#$ . 87193) (byte-code "\301\302!D\207" [current-prefix-arg nil prefix-numeric-value] 3)])
(global-set-key [f10] 'menu-bar-open)
#@232 Open the menu bar for the menu item clicked on by the mouse.
EVENT should be a mouse down or click event.

Also see `menu-bar-open', which this calls.
This command is to be used when you click the mouse in the menubar.

(fn EVENT)
(defalias 'menu-bar-open-mouse #[257 "\300
!\211@\262
\211\203\301\302\"\210\210\300
!\303
8\262
@\304
!\305\306\203(A\202)\307\"\207" [event-start error "Event is inside window %s" 2 menu-bar-item-at-x menu-bar-open nil 0] 6 (#$ . 88869) "e"])
#@343 Return the current menu-bar keymap.
The ordering of the return value respects `menu-bar-final-items'.

It's possible to use the KEYMAP argument to override the default keymap
that is the currently active maps.  For example, the argument KEYMAP
could provide `global-map' where items are limited to the global map only.

(fn &optional KEYMAP)
(defalias 'menu-bar-keymap #[256 "\300C\300C\301\302\303#\206\304\305 \306\"\"\210\307\310\242\237\311\312\313\242\314\"\"\"B\207" [nil map-keymap make-closure #[514 "\303\n\"B
\203\301B\301\242B\240\207\300
\300\242B\240\207" [V0 V1 menu-bar-final-items seq-position] 7 "\n\n(fn KEY BINDING)"] lookup-key menu-bar-current-active-maps [menu-bar] keymap append mapcar cdr sort #[514 "
@
@W\207" [] 4 "\n\n(fn A B)"]] 11 (#$ . 89359)])
#@160 Return the current active maps in the order the menu bar displays them.
This value does not take into account `menu-bar-final-items' as that applies
per-item.
(defalias 'menu-bar-current-active-maps #[0 "\300\301 \237B\207" [keymap current-active-maps] 2 (#$ . 90157)])
#@218 Return a cons of the form (KEY . X) for a menu item.
The returned X is the left X coordinate for that menu item.

X-POSITION is the X coordinate being queried.  If nothing is clicked on,
returns nil.

(fn X-POSITION)
(defalias 'menu-bar-item-at-x #[257 "\300C\301 \302C\302C\302C\3032,\304\305\306&\"\210\242V\205+\211\307\2400\210\211\242\2057\242\242B\207" [0 menu-bar-keymap nil done map-keymap make-closure #[514 "\301\242\300V\203\304\305\240\210\306\307\310\"\210\302\240\210\311
:\205g
\242\211;\203+
\301\303\310\211%\202e\211\312=\205e\243\211:\205c\211\242
\243\211:\205a\211\242
\243\313
\314\"\211?\206Q\315
!\262
\205_\301\303%\266\202\266\202\262
\262
\207" [V0 V1 V2 V3 V4 t throw done nil #[1285 "\242\240\210\211\242G\\T\240\207" [] 8 "\n\n(fn COLUMN PREV-COLUMN NAME CMD PROPS)"] menu-item plist-get :visible eval] 15 "\n\n(fn KEY BINDING)"] t] 14 (#$ . 90434)])
#@98 Start key navigation of the buffer menu.
This is the keyboard interface to \[mouse-buffer-menu].
(defalias 'buffer-menu-open #[0 "\300\301 \302\303\211\304\305$\"\207" [popup-menu mouse-buffer-menu-keymap posn-at-x-y 0 nil t] 7 (#$ . 91364) nil])
(global-set-key [C-f10] 'buffer-menu-open)
(defalias 'mouse-buffer-menu-keymap #[0 "\300 \301
\211A\262\242!
\237\211\2031\211@\211
A\262\242\302\303\304!!\305\306!F#\266
A\266\202\202\f\210\207" [mouse-buffer-menu-map make-sparse-keymap define-key vector intern keymap menu-bar-buffer-vector] 13])
#@83 Like `define-key', but add all possible prefixes for the mouse.

(fn MAP KEY DEF)
(defalias 'menu-bar-define-mouse-key #[771 "\300\301!#\210\302\303\304$\305\"\207" [define-key vector mapc make-closure #[257 "\303\300\304\301\"\302#\207" [V0 V1 V2 define-key vector] 6 "\n\n(fn PREFIX)"] (tab-line header-line menu-bar tab-bar mode-line vertical-line left-margin right-margin)] 9 (#$ . 91927)])
#@41 Keymap used while processing TTY menus.
(defvar tty-menu-navigation-map (byte-code "\300 \301\211\203\211@\302
@A\303 $\210
A\266\202\202\210\304
\305\306#\210\304
\307\310#\210\304
\311\310#\210\304
\312\310#\210\304
\313\310#\210\314
\315\310#\210\314
\316\310#\210\314
\317\310#\210\314
\320\310#\210\314
\321\310#\210\314
\322\310#\210\314
\323\324#\210\314
\325\326#\210\314
\327\330#\210\314
\331\332#\210\314
\333\324#\210\314
\334\324#\210\314
\335\326#\210\314
\336\326#\210\314
\337\326#\210\314
\340\326#\210\314
\341\342#\210\314
\343\342#\210\314
\344\342#\210\314
\345\342#\210\314
\346\342#\210\314
\347\342#\210\314
\350\351#\210\207" [make-sparse-keymap ((keyboard-quit . tty-menu-exit) (keyboard-escape-quit . tty-menu-exit) (forward-char . tty-menu-next-menu) (backward-char . tty-menu-prev-menu) (right-char . tty-menu-next-menu) (left-char . tty-menu-prev-menu) (next-line . tty-menu-next-item) (previous-line . tty-menu-prev-item) (newline . tty-menu-select) (newline-and-indent . tty-menu-select) (menu-bar-open . tty-menu-exit)) substitute-key-definition current-global-map define-key [menu-bar t] tty-menu-exit [18] tty-menu-select [10] [return] [linefeed] menu-bar-define-mouse-key mouse-1 drag-mouse-1 mouse-2 drag-mouse-2 mouse-3 drag-mouse-3 wheel-down tty-menu-next-item wheel-up tty-menu-prev-item wheel-left tty-menu-prev-menu wheel-right tty-menu-next-menu S-mouse-1 S-drag-mouse-1 S-mouse-2 S-drag-mouse-2 S-mouse-3 S-drag-mouse-3 down-mouse-1 tty-menu-ignore down-mouse-2 down-mouse-3 C-down-mouse-1 C-down-mouse-2 C-down-mouse-3 mouse-movement tty-menu-mouse-movement] 8) (#$ . 92335))
(provide 'menu-bar)