Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/menu-bar.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 "\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)\207" [menu 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")] 4))
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\207" [prop --dolist-tail-- defvaralias menu-bar-files-menu menu-bar-file-menu nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1"] 6)
(defvar menu-bar-file-menu (byte-code "\303\304!\305\306\307#\210\305\310	#\210\305\311\312\313\nE#\210\305\314	#\210\315\316!\2047\305\317\320#\210\305\321\322#\210\305\323	#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334	#\210\305\335\336#\210\305\337\340#\210\305\341\342#\210\305\343	#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354	#\210\305\355\356#\210\305\357\360#\210\305\361\362#\210\305\363\364#\210\305\365\366#\210)\207" [menu 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")] 6))
#@34 Edit the existing file FILENAME.
(defalias 'menu-find-file-existing #[nil "\302\303!\205\303 ?\304\305\"@\203\306	!\202\307	!*\207" [mustmatch filename fboundp x-uses-old-gtk-dialog find-file-read-args "Find file: " find-file-existing find-file] 3 (#$ . 6303) nil])
#@67 Type of last non-incremental search command called from the menu.
(defvar menu-bar-last-search-type nil (#$ . 6585))
#@58 Search forward for the previous search string or regexp.
(defalias 'nonincremental-repeat-search-forward #[nil "\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 (#$ . 6708) nil])
#@59 Search backward for the previous search string or regexp.
(defalias 'nonincremental-repeat-search-backward #[nil "\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 (#$ . 7069) nil])
#@51 Read a string and search for it nonincrementally.
(defalias 'nonincremental-search-forward #[(&optional string backward) "\306	?\n\307\310\232\204\204\311 @!\202)\312\307\"\210\311 !+\207" [menu-bar-last-search-type backward search-default-mode isearch-regexp isearch-regexp-function isearch-forward string nil "" isearch-search-fun-default isearch-update-ring search-ring] 3 (#$ . 7434) "sSearch for string: "])
#@60 Read a string and search backward for it nonincrementally.
(defalias 'nonincremental-search-backward #[(&optional string) "\301\302\"\207" [string nonincremental-search-forward backward] 3 (#$ . 7872) "sSearch backwards for string: "])
#@63 Read a regular expression and search for it nonincrementally.
(defalias 'nonincremental-re-search-forward #[(string) "\303	\304\232\203
\305\n@!\207\306	\307\"\210\305	!\207" [menu-bar-last-search-type string regexp-search-ring regexp "" re-search-forward isearch-update-ring t] 3 (#$ . 8115) "sSearch for regexp: "])
#@72 Read a regular expression and search backward for it nonincrementally.
(defalias 'nonincremental-re-search-backward #[(string) "\303	\304\232\203
\305\n@!\207\306	\307\"\210\305	!\207" [menu-bar-last-search-type string regexp-search-ring regexp "" re-search-backward isearch-update-ring t] 3 (#$ . 8441) "sSearch for regexp: "])
(defvar menu-bar-i-search-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\321#\210)\207" [menu 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")] 4))
(defvar menu-bar-search-menu (byte-code "\303\304!\305\306\307\310	E#\210\305\311\n#\210\305\312\313#\210\305\314\315#\210\305\316\n#\210\305\317\320#\210\305\321\322#\210\305\323\n#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210)\207" [menu 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")] 6))
(defvar menu-bar-replace-menu (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311	#\210\304\312\313#\210\304\314\315#\210)\207" [menu 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")] 4))
(defvar menu-bar-goto-menu (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321	#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210)\207" [menu 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")] 4))
(defalias 'menu-bar-goto-uses-etags-p #[nil "\301\300!?\206@\302=\207" [xref-backend-functions boundp etags--xref-backend] 2])
(defvar yank-menu (byte-code "\300\301!\302B\207" [purecopy "Select Yank" nil] 2))
(byte-code "\300\301BM\207" [yank-menu keymap] 3)
(defvar menu-bar-edit-menu (byte-code "\305\306!\307\310\311#\210\312\313!\203\307\314\315#\210\307\316\317#\210\307\320	#\210\307\321\322#\210\307\323\324\325\nE#\210\307\326\324\327E#\210\307\330\324\331\fE#\210\307\332	#\210\307\333\334#\210\307\335\336#\210\307\312\313!\203a\337\202b\340\324\312\313!\203m\341\202n\342\343BB#\210\307\344\324\345\346\347\350\351\352DD\353BBBBB#\210\307\354\324\355\312\313!\203\226\356\202\227\357\347\360\361\362\363\312\313!\203\246\364\202\247\365\257	#\210\307\366\367#\210\312\313!\203\275\307\370	#\210\307\371\372#\210)\207" [menu menu-bar-separator menu-bar-goto-menu menu-bar-replace-menu menu-bar-search-menu make-sparse-keymap "Edit" bindings--define-key [props] (menu-item "Text Properties" facemenu-menu) featurep ns [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-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 #[nil "\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] (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 operation")] 13))
(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 #[nil "\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 #[nil "\301\302 )\207" [select-enable-clipboard t yank] 1 (#$ . 17409) "*"])
#@176 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.
(defalias 'clipboard-kill-ring-save #[(beg end &optional region) "\304\305	\n#)\207" [select-enable-clipboard beg end region t kill-ring-save] 4 (#$ . 17587) "r\np"])
#@170 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.
(defalias 'clipboard-kill-region #[(beg end &optional region) "\304\305	\n#)\207" [select-enable-clipboard beg end region t kill-region] 4 (#$ . 17938) "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 #[nil "\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 (#$ . 18277) nil])
(defvar menu-bar-custom-menu (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313	#\210\304\314\315#\210\304\316\317#\210\304\320\321#\210\304\322	#\210\304\323\324#\210\304\325\326#\210\304\327	#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210)\207" [menu 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-options] (menu-item "New Options..." customize-changed-options :help "Options 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")] 4))
#@223 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.
(defalias 'menu-bar-make-mm-toggle '(macro . #[(fname doc help &optional props) "\304\305	\306\n\307\310\311\312\313\304	DD\314\304	DDFF\"BBBD\207" [doc fname props help quote menu-item append :help :button :toggle and default-boundp default-value] 15 (#$ . 20459)]))
(defalias 'menu-bar-make-toggle '(macro . #[(name variable doc message help &rest body) "\306\307\310\311\312	\313\314#\227\312	\314\"\315R\316\317\n\203\306\nB\202O\306\320\321DD\322\323\324\325\321D\326BB\327BBD\325\324\325\321D\330BB\331BBDD\332\323\321D\333\332\325\321DEDFEE\304\f\334BB\304\f\335BBF\317\336\337\321DDE\257\321\340
\341	\342\343\344\345\321DD\346\321DDF\257DE\207" [name help body variable message doc progn defun (&optional interactively) "Toggle whether to " substring 0 1 ".\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 ("enabled globally") ("disabled globally") interactively customize-mark-as-set menu-item :help :button :toggle and default-boundp default-value] 19]))
#@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 #[nil "\300\301\302!\203\f\302 \202\303 \304\305#\207" [set-frame-font fboundp x-select-font mouse-select-font nil t] 4 (#$ . 21867) nil])
#@57 Save current values of Options menu items using Custom.
(defalias 'menu-bar-options-save #[nil "\303\304\303\211\203\n@\305	!\203\306\nA\211\204\n*\307\303\211\203=\n@\211\310N\2036\305	!\2036\306\nA\211\204%*\311\312N\203T\313\311\314\311\312N#\210\313\311\312\303#\210\306\205Z\315 )\207" [need-save elt --dolist-tail-- 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 (#$ . 22186) nil])
#@55 Show customization buffer for `window-divider' group.
(defalias 'menu-bar-window-divider-customize #[nil "\300\301!\207" [customize-group window-divider] 2 (#$ . 23226) nil])
#@58 Display dividers on the bottom and right of each window.
(defalias 'menu-bar-bottom-and-right-window-divider #[nil "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places t window-divider-mode 1] 3 (#$ . 23407) nil])
#@52 Display dividers only on the right of each window.
(defalias 'menu-bar-right-window-divider #[nil "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places right-only window-divider-mode 1] 3 (#$ . 23662) nil])
#@53 Display dividers only at the bottom of each window.
(defalias 'menu-bar-bottom-window-divider #[nil "\300\301\302\"\210\303\304!\207" [customize-set-variable window-divider-default-places bottom-only window-divider-mode 1] 3 (#$ . 23909) nil])
#@33 Do not display window dividers.
(defalias 'menu-bar-no-window-divider #[nil "\300\301!\207" [window-divider-mode -1] 2 (#$ . 24159) nil])
(defvar menu-bar-showhide-window-divider-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)\207" [menu 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)))))))] 4))
#@61 Show customization buffer for `indicate-buffer-boundaries'.
(defalias 'menu-bar-showhide-fringe-ind-customize #[nil "\300\301!\207" [customize-variable indicate-buffer-boundaries] 2 (#$ . 26157) nil])
#@73 Display top and bottom indicators in opposite fringes, arrows in right.
(defalias 'menu-bar-showhide-fringe-ind-mixed #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((t . right) (top . left))] 3 (#$ . 26364) nil])
#@56 Display top and bottom indicators in opposite fringes.
(defalias 'menu-bar-showhide-fringe-ind-box #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((top . left) (bottom . right))] 3 (#$ . 26615) nil])
#@59 Display buffer boundaries and arrows in the right fringe.
(defalias 'menu-bar-showhide-fringe-ind-right #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries right] 3 (#$ . 26852) nil])
#@58 Display buffer boundaries and arrows in the left fringe.
(defalias 'menu-bar-showhide-fringe-ind-left #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries left] 3 (#$ . 27068) nil])
#@48 Do not display any buffer boundary indicators.
(defalias 'menu-bar-showhide-fringe-ind-none #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries nil] 3 (#$ . 27281) nil])
(defvar menu-bar-showhide-fringe-ind-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)\207" [menu 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))] 4))
#@46 Show customization buffer for `fringe-mode'.
(defalias 'menu-bar-showhide-fringe-menu-customize #[nil "\300\301!\207" [customize-variable fringe-mode] 2 (#$ . 29176) nil])
#@67 Reset the fringe mode: display fringes on both sides of a window.
(defalias 'menu-bar-showhide-fringe-menu-customize-reset #[nil "\300\301\302\"\207" [customize-set-variable fringe-mode nil] 3 (#$ . 29354) nil])
#@51 Display fringes only on the right of each window.
(defalias 'menu-bar-showhide-fringe-menu-customize-right #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (0)] 3 (#$ . 29572) nil])
#@50 Display fringes only on the left of each window.
(defalias 'menu-bar-showhide-fringe-menu-customize-left #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (nil . 0)] 3 (#$ . 29802) nil])
#@32 Do not display window fringes.
(defalias 'menu-bar-showhide-fringe-menu-customize-disable #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode 0] 3 (#$ . 30036) nil])
(defvar menu-bar-showhide-fringe-menu (byte-code "\302\303!\304\305\306\307	\310BBB#\210\304\311\312\313\314\"\210\315#\210\304\316\317#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210)\207" [menu 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 #[(&optional interactively) "\303\304!\210\304\305N\206\306\304\307N\206\310\211\304\304!?\"*\203'\311\312\313\"\210\202,\311\312\314\"\210\n\2053\315\304!\207" [get set interactively 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] 5 "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." "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))] 7))
#@50 Display scroll bars on the right of each window.
(defalias 'menu-bar-right-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode right] 3 (#$ . 32437) nil])
#@49 Display scroll bars on the left of each window.
(defalias 'menu-bar-left-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode left] 3 (#$ . 32624) nil])
#@23 Turn off scroll bars.
(defalias 'menu-bar-no-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode nil] 3 (#$ . 32808) nil])
(defvar menu-bar-showhide-scroll-bar-menu (byte-code "\302\303!\304\305\306#\210\304\307	#\210\304\310\311#\210\304\312\313#\210\304\314\315#\210)\207" [menu 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))] 4))
#@54 Return the frame suitable for updating the menu bar.
(defalias 'menu-bar-frame-for-menubar #[nil "\301!\203\n\206\f\302 \207" [menu-updating-frame framep selected-frame] 2 (#$ . 34041)])
#@45 Return non-nil if VAL is a positive number.
(defalias 'menu-bar-positive-p #[(val) "\247\205\301V\207" [val 0] 2 (#$ . 34238)])
(defalias 'menu-bar-set-tool-bar-position #[(position) "\301\302\303\"\210\301\304\"\207" [position customize-set-variable tool-bar-mode t tool-bar-position] 3])
#@27 Do not display tool bars.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-disable #[nil "\300\301\302\"\207" [customize-set-variable tool-bar-mode nil] 3 (#$ . 34539) nil])
#@37 Display tool bars on the left side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-left #[nil "\300\301!\207" [menu-bar-set-tool-bar-position left] 2 (#$ . 34723) nil])
#@38 Display tool bars on the right side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-right #[nil "\300\301!\207" [menu-bar-set-tool-bar-position right] 2 (#$ . 34911) nil])
#@36 Display tool bars on the top side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-top #[nil "\300\301!\207" [menu-bar-set-tool-bar-position top] 2 (#$ . 35102) nil])
#@39 Display tool bars on the bottom side.
(defalias 'menu-bar-showhide-tool-bar-menu-customize-enable-bottom #[nil "\300\301!\207" [menu-bar-set-tool-bar-position bottom] 2 (#$ . 35287) nil])
(byte-code "\301\302!\203-\303\304\305!\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210)!\210\301\207" [menu 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))] 5)
(defalias 'menu-bar-display-line-numbers-mode #[(type) "\n\203	\302 \207\303 \207" [type display-line-numbers-type global-display-line-numbers-mode display-line-numbers-mode] 1])
#@34 Turn on visual line number mode.
(defalias 'menu-bar--display-line-numbers-mode-visual #[nil "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode visual message "Visual line numbers enabled"] 2 (#$ . 37274) nil])
#@36 Turn on relative line number mode.
(defalias 'menu-bar--display-line-numbers-mode-relative #[nil "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode relative message "Relative line numbers enabled"] 2 (#$ . 37505) nil])
#@36 Turn on absolute line number mode.
(defalias 'menu-bar--display-line-numbers-mode-absolute #[nil "\301\302!\210\302\303\304!\207" [display-line-numbers menu-bar-display-line-numbers-mode t message "Absolute line numbers enabled"] 2 (#$ . 37744) nil])
#@23 Disable line numbers.
(defalias 'menu-bar--display-line-numbers-mode-none #[nil "\300\301!\210\302\303!\207" [menu-bar-display-line-numbers-mode nil message "Line numbers disabled"] 2 (#$ . 38002) nil])
(defvar menu-bar-showhide-line-numbers-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)\207" [menu 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)))] 4))
(defvar menu-bar-showhide-menu (byte-code "\306\307!\310\311\312\313	E#\210\310\314\315#\210\310\316\317#\210\310\320\321#\210\310\322\n#\210\310\323\324#\210\310\325\326#\210\310\327\n#\210\310\330\331#\210\310\332\333#\210\310\334\312\335\336BBB#\210\310\337\312\340\f\341BBB#\210\310\342\312\343
\344BBB#\210\310\345\346#\210\310\347\350#\210\351\352!\204\310\353\354#\210\355\356!\203\234\357.!\203\234\310\360\312\361.\362BBB#\210\202\242\310\363\364#\210)\207" [menu 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 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)) [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 menu-bar-showhide-tool-bar-menu 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)))] 7))
#@26 Enable visual line mode.
(defalias 'menu-bar--visual-line-mode-enable #[nil "\204\300\301!\210\302\303!\207" [visual-line-mode 1 message "Visual-Line mode enabled"] 2 (#$ . 43115) nil])
#@25 Toggle long lines mode.
(defalias 'menu-bar--toggle-truncate-long-lines #[nil "\203\300\302!\210\303\304\305!\207" [visual-line-mode word-wrap 0 nil toggle-truncate-lines 1] 2 (#$ . 43310) nil])
#@33 Wrap long lines at window edge.
(defalias 'menu-bar--wrap-long-lines-window-edge #[nil "\203\300\303!\210\304\n\205\305\306!\207" [visual-line-mode word-wrap truncate-lines 0 nil toggle-truncate-lines -1] 2 (#$ . 43515) nil])
(defvar menu-bar-line-wrapping-menu (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210)\207" [menu 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)))] 4))
(defvar menu-bar-search-options-menu (byte-code "\304\305!\306\307\211\203I\n@\310\311	@!\312	A@\313\307\314\315\316\317	@DE\320\321\322\323	8\"D\257\324\321\325\323	8\227\"\326\327\330\316\317	@DF\257#\210\nA\211\204\f*\310\331\332#\210\310\333\334#\210\310\335#\210\310\336\337\340\341\"\210\342#\210)\207" [menu x --dolist-tail-- 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")) nil bindings--define-key vector menu-item lambda (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 #[(&optional interactively) "\303\304!\210\304\305N\206\306\304\307N\206\310\211\304\304!?\"*\203'\311\312\313\"\210\202,\311\312\314\"\210\n\2053\315\304!\207" [get set interactively 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] 5 "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." "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)))] 15))
(defvar menu-bar-options-menu (byte-code "\306\307!\310\311\312\313	E#\210\310\314\315#\210\310\316\317#\210\310\320\n#\210\310\321\322#\210\323\324!\2036\310\325\326\327\330\"\210\331#\210\310\332\312\333E#\210\310\334\n#\210\310\335\312\336\fE#\210\310\337\n#\210\310\340\326\341\342\"\210\343#\210\310\344\326\345\346\"\210\347#\210\310\350\n#\210\310\351\352#\210\310\353\n#\210\310\354\326\355\356\"\210\357#\210\310\360\326\361\362\"\210\363#\210\310\364\n#\210\310\365\366#\210\310\367\370#\210\310\371\312\372
E#\210\310\373\312\374@E#\210\310\375\n#\210\310\376\377#\210\310\201A\201B#\210)\207" [menu menu-bar-custom-menu menu-bar-separator menu-bar-showhide-menu mule-menu-keymap menu-bar-search-options-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 #[#1=(&optional interactively) "\303\304!\210\304\305N\206\306\304\307N\206\310\211\304\304!?\"*\203'\311\312\313\"\210\202,\311\312\314\"\210\n\2053\315\304!\207" [get set interactively custom-load-symbol font-use-system-font custom-set set-default custom-get default-value message "Use system font: %s" #2="enabled globally" #3="disabled globally" customize-mark-as-set] 5 "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." #4="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 #[#1# "\303\304!\210\304\305N\206\306\304\307N\206\310\211\304\304!?\"*\203'\311\312\313\"\210\202,\311\312\314\"\210\n\2053\315\304!\207" [get set interactively custom-load-symbol debug-on-quit custom-set set-default custom-get default-value message "Debug on Quit %s" #2# #3# customize-mark-as-set] 5 "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." #4#] (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 #[#1# "\303\304!\210\304\305N\206\306\304\307N\206\310\211\304\304!?\"*\203'\311\312\313\"\210\202,\311\312\314\"\210\n\2053\315\304!\207" [get set interactively custom-load-symbol debug-on-error custom-set set-default custom-get default-value message "Debug on Error %s" #2# #3# customize-mark-as-set] 5 "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." #4#] (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-place] toggle-save-place-globally #[#1# "\301\302!\210\303\304\211J?\"\203\305\306\307\"\210\202\305\306\310\"\210\205!\311\304!\207" [interactively require saveplace set-default save-place-mode message "Saving place in files %s" #2# #3# customize-mark-as-set] 3 "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." #4#] (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 #[#1# "?\205\302\211\203\303\304\305\"\210\202\303\304\306\"\210	\205\307\300!\207" [uniquify-buffer-name-style interactively post-forward-angle-brackets message "Directory name in buffer names (uniquify) %s" #2# #3# customize-mark-as-set] 3 "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." #4#] (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 "Use CUA Keys (Cut/Paste with C-x/C-c/C-v)" 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 "Shift movement mark region (CUA)" cua-mode :visible (and (boundp 'cua-enable-cua-keys) (not cua-enable-cua-keys)) :help "Use shifted movement keys to set and extend the region" :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))) menu-bar-line-wrapping-menu [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)))] 6))
(defvar menu-bar-games-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\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210)\207" [menu 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")] 4))
(defvar menu-bar-encryption-decryption-menu (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317	#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330	#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210)\207" [menu 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")] 4))
(defvar menu-bar-shell-commands-menu (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210)\207" [menu 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")] 4))
#@38 Read mail using `read-mail-command'.
(defalias 'menu-bar-read-mail #[nil "\301!\207" [read-mail-command call-interactively] 2 (#$ . 57423) nil])
(defvar menu-bar-tools-menu (byte-code "\305\306!\307\310\311\312	E#\210\307\313\n#\210\307\314\311\315E#\210\307\316\n#\210\307\317\320#\210\307\321\322#\210\307\323\324#\210\307\325\n#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\n#\210\307\341\342#\210\307\343\n#\210\307\344\345#\210\307\346\347#\210\307\350\351#\210\307\352\n#\210\307\353\354#\210\307\355\n#\210\307\356\357#\210\307\360\361#\210\307\362\363#\210\307\364\365#\210\307\366\311\367\fE#\210\307\370\371#\210\307\372\373#\210)\207" [menu 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)")] 6))
(defvar menu-bar-describe-menu (byte-code "\303\304!\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317\320	E#\210\305\321\n#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210)\207" [menu 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)") [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-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")] 6))
#@55 Display the Emacs Lisp Reference manual in Info mode.
(defalias 'menu-bar-read-lispref #[nil "\300\301!\207" [info "elisp"] 2 (#$ . 62397) nil])
#@66 Display the Introduction to Emacs Lisp Programming in Info mode.
(defalias 'menu-bar-read-lispintro #[nil "\300\301!\207" [info "eintr"] 2 (#$ . 62548) nil])
#@61 Display the Glossary node of the Emacs manual in Info mode.
(defalias 'search-emacs-glossary #[nil "\300\301!\207" [info "(emacs)Glossary"] 2 (#$ . 62712) nil])
(defalias 'emacs-index--prompt #[nil "\302\303!\304\305\306\203\305\307\"\202\310\"\311\211\211\211&\211G\312U\203'\202(	*C\207" [default topic thing-at-point sexp read-from-minibuffer format "Subject to look up%s: " " (default \"%s\")" "" nil 0] 8])
#@56 Look up TOPIC in the indices of the Emacs User Manual.
(defalias 'emacs-index-search #[(topic) "\301\302!\210\303!\207" [topic info "emacs" Info-index] 2 (#$ . 63143) (emacs-index--prompt)])
#@66 Look up TOPIC in the indices of the Emacs Lisp Reference Manual.
(defalias 'elisp-index-search #[(topic) "\301\302!\210\303!\207" [topic info "elisp" Info-index] 2 (#$ . 63341) (emacs-index--prompt)])
(defvar menu-bar-search-documentation-menu (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317	#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210)\207" [menu 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-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")] 4))
(defvar menu-bar-manuals-menu (byte-code "\302\303!\304\305\306#\210\304\307	#\210\304\310\311#\210\304\312\313#\210\304\314\315#\210\304\316\317#\210\304\320\321#\210)\207" [menu 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")] 4))
#@61 Use the Emacs tutorial, specifying which language you want.
(defalias 'help-with-tutorial-spec-language #[nil "\300\301!\207" [help-with-tutorial t] 2 (#$ . 66422) nil])
(defvar menu-bar-help-menu (byte-code "\306\307!\310\311\312#\210\310\313\314#\210\310\315	#\210\310\316\317#\210\310\320\321#\210\310\322\323#\210\310\324	#\210\310\325\326#\210\310\327\330#\210\310\331\332\333\nE#\210\310\334\335#\210\310\336\332\337E#\210\310\340\332\341\fE#\210\310\342	#\210\310\343\344#\210\310\345\346#\210\310\347\350#\210\310\351\352#\210\310\353\354#\210\310\355\356#\210\310\357\360#\210\310\361\362#\210\363\364!\203\243
\365=\204\243\310\366\367#\210)\207" [menu 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)] 6))
(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#\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" 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 #[nil "\206\302 \303	!\205\304	!)\207" [menu-updating-frame menu-frame selected-frame frame-live-p frame-visible-p] 2 (#$ . 69864)])
#@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 #[nil "\206\302 \303	!\205\304\305	!!?)\207" [menu-updating-frame menu-frame selected-frame frame-live-p window-minibuffer-p frame-selected-window] 3 (#$ . 70179)])
#@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 #[nil "\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 (#$ . 70626) nil])
#@71 Return non-nil if the `kill-this-buffer' menu item should be enabled.
(defalias 'kill-this-buffer-enabled-p #[nil "\304 ?\206C\305\3062B\307 \305\211\205@\n@\310\311	!\305\312\313#)\266\203\2048\2043\312\2028\314\306\312\"\210\nA\211\204\305*0)\207" [found-1 buffer --dolist-tail-- inhibit-changing-match-data menu-bar-non-minibuffer-window-p nil found-2 buffer-list "^ " buffer-name t string-match throw] 8 (#$ . 71063)])
(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 #[nil "\302 \303\211\203\304	@!\203T	A\211\204	\305V*\207" [count frames frame-list 0 frame-visible-p 1] 3 (#$ . 71573)])
#@45 Maximum length to display in the yank-menu.
(custom-declare-variable 'yank-menu-length 20 '(#$ . 71814) :type 'integer :group 'menu)
(defalias 'menu-bar-update-yank-menu #[(string old) "A@	G\nX\203	\202\306	\307\n\310\245#\311\306	\n\310\245[\"Q\312\313\"\203+\314P
\203I
\f@=\204=
\f@\230\203I\f	\240\210\fA\240\210\202T	\315BBAB\241\210*AGV\205d\233\316\241\207" [yank-menu string yank-menu-length menu-string front old substring 0 2 "..." string-match "\\`-+\\'" " " menu-bar-select-yank nil kill-ring-max] 7])
(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 #[nil "\301 \210c\207" [last-command-event push-mark] 1 (#$ . 72408) "*"])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\317\320\321\322\304\323\306\307&\210\300\324\325\326\317\327\321\322\304\330\306\307&\207" [custom-declare-variable buffers-menu-max-size 10 "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 30 "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 'unless-uniquify "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 #[(symbol value) "	L\210\302\303!\207" [symbol value menu-bar-update-buffers t] 2] :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 t "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." #[(symbol value) "	L\210\302\303!\207" [symbol value menu-bar-update-buffers t] 2] boolean] 12)
#@71 String to display in buffer listings for buffers not visiting a file.
(defvar list-buffers-directory nil (#$ . 74531))
(make-variable-buffer-local 'list-buffers-directory)
(defalias 'menu-bar-select-buffer #[nil "\301!\207" [last-command-event switch-to-buffer] 2 nil nil])
(defalias 'menu-bar-select-frame #[(frame) "\301!\210\302!\210\303!\207" [frame make-frame-visible raise-frame select-frame] 2])
(defalias 'menu-bar-update-buffers-1 #[(elt) "@\n\306=\203\307\303!\203?\202\n\205\"\310	!\206\"\311\312	\"\211\203+\313\f!\f\203=\fG\314V\203=\315\316\f\317\"P
\203z\320	!\203K\321\202L\322\311\323	\"\203W\324\202X\322\f\203m\325\326A\f%\202v\325\327A$*\202\211\f\203\207\325\330A\f#\202\211A	*B\207" [elt buf buffers-menu-show-directories uniquify-buffer-name-style file buffers-menu-show-status unless-uniquify boundp buffer-file-name buffer-local-value list-buffers-directory file-name-directory 20 "..." substring -17 buffer-modified-p "*" "" buffer-read-only "%" format "%s  %s%s  --  %s" "%s  %s%s" "%s  --  %s" ro mod] 7])
(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 (#$ . 75670))
(defalias 'menu-bar-buffer-vector #[(alist) "\305G\306\"G\306\211\203.\f@	S\n	@\307\306\310\311\312AEFBI\210\fA\211\204*\n*\207" [alist i buffers-vec pair --dolist-tail-- make-vector nil lambda (interactive) funcall menu-bar-select-buffer-function] 10])
(defalias 'menu-bar-update-buffers #[(&optional force) "\306\307 \310\"\205
\204\311 \205
\312 \313 \314\315\f\250\205&\f\316V\205&\f\31434\203\210\211A\2425\3175!\211\315H\320=\204\204\32156\250\203nG6V\203n\322\3156\323\245#\324\3226\323\245[\"Q\202pB!
B\32534T\2114\"\203\204\314*\202,\326
!+C\nA\203\343\327\nG\314\"7\330\3317DB8\3154\n\3149\211:\203\326:@974\3329\333\"\334\314\335\3369DFBI\2104T4:A\211:\204\257*	\337\302\340\3418FD\244+;\204

\342\343\340\344\343\345\346\257\347\340\350\347\345\351\257\352\340\353\354\345\355\257\356\340\357\360\345\361\257\257;	;\244<\362	B\241+\207" [force buffers-menu frames buffers buffers-menu-max-size alist 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 substring 2 "..." eql menu-bar-buffer-vector make-vector keymap "Select Frame" frame-parameter name lambda (interactive) menu-bar-select-frame (frames-separator "--") 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" limit i buf buffers-menu-buffer-name-length frames-vec frames-menu frame --dolist-tail-- menu-bar-buffers-menu-command-entries global-buffers-menu-map] 11])
(byte-code "\304\305\306\"\210\306 \210	D\307\211\203&@\310\n\311\312\313\312!B#\210A\211\204*	\310\n\314\315#\210\310\n\316\317#\210\310\n\320\321#\210)\310\n\322\323#\210\310\n\324\325#\210\310\n\326\327#\210\310\n\330\331#\210\310\n\332\333#\210\310\n\334\335#\210)\307\207" [minibuffer-local-map minibuffer-local-completion-map map --dolist-tail-- add-hook menu-bar-update-hook menu-bar-update-buffers nil 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")] 7)
#@389 Toggle display of a menu bar on each frame (Menu Bar mode).

If called interactively, enable Menu-Bar mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

This command applies to all frames that exist and frames to be
created in the future.
(defalias 'menu-bar-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203\312\202\311\313 \314\211\2037
@\315\f\316#\210
A\211\204'*\316\236\203J\316B\317\316\"B)\320\321!\203\\\n\204\\\322\311\314\323\324$\210\325\326\n\203f\327\202g\330\"\210\320\331!\203\216\306 \203{\306 \232\203\216\332 \323\333\n\203\210\334\202\211\335 #\210))\336 \210\n\207" [#1=#:last-message arg menu-bar-mode val frame --dolist-tail-- current-message toggle prefix-numeric-value 0 1 frame-list nil set-frame-parameter menu-bar-lines assq-delete-all called-interactively-p interactive run-with-idle-timer message "Menu Bar mode disabled.  Use M-x 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 default-frame-alist local] 6 (#$ . 79448) (list (or current-prefix-arg 'toggle))])
(defvar menu-bar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\303\306\311\312#\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.)" add-minor-mode menu-bar-mode nil boundp standard-value (t)] 6)
#@96 Toggle display of the menu bar of the current frame.
See `menu-bar-mode' for more information.
(defalias 'toggle-menu-bar-mode-from-frame #[(&optional arg) "\301=\203\302\303\304\305 \306\"!\203\307\202\310!\207\302!\207" [arg toggle menu-bar-mode menu-bar-positive-p frame-parameter menu-bar-frame-for-menubar menu-bar-lines 0 1] 5 (#$ . 81240) (list (or current-prefix-arg 'toggle))])
#@54 Call `lookup-key' and convert numeric values to nil.
(defalias 'lookup-key-ignore-too-long #[(map key) "\303	\"\211\247?\205\f\n)\207" [map key binding lookup-key] 4 (#$ . 81641)])
#@398 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.
(defalias 'popup-menu #[(menu &optional position prefix from-menu-bar) "\306!\203\n\202C<\203\306@!\203\202C<\204#\307\202C\310@A\"\2119\2055\311	\312N\313\"\211\203A\n	K!\202B	*\314 \307\211 \203q!\315
8\262
\"\316\"@\"A\"\211#\317\"\320FD!*\202w\321!!!	\203
\322!\323	!\"\211\203
 \203\306\f:\203\306\f@\247\203\306\fA\247\203\306\f@\fA\307#$%\316%$\"\211#\324\f\320FD!\325\326\327#\"!\211+\202\377\306	!\204\370	<\203\370\330\326\f\"\307&'	\203\362&\204\362\331	@'\"&	A\211\204\336&*\202\377\332	\330\326\f\"\"\333\334!\210\306
!\205

\211\204{	?\205(
\335
!\205(
()\336\f!@*\337
!,\207" [menu map filter frame event cmd 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 from-menu-bar position xy menu-symbol y x binding mouse-click prefix prefix-arg last-command-event] 6 (#$ . 81832)])
#@247 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.
(defalias 'popup-menu-normalize-position #[(position) "\204\303 \211A@	AAD	@)D\207\304!\203-\305
8\262
\211@\nAD\211@\262
)D\207\306!\2039\307\310!!\207\207" [position mp xy mouse-pixel-position posnp 2 eventp popup-menu-normalize-position event-end] 4 (#$ . 83357)])
#@273 If non-nil, \[menu-bar-open] on a TTY will invoke `tmm-menubar'.

If nil, \[menu-bar-open] will drop down the menu corresponding to the
first (leftmost) menu-bar item; you can select other items by typing
\[forward-char], \[backward-char], \[right-char] and \[left-char].
(custom-declare-variable 'tty-menu-open-use-tmm nil '(#$ . 83891) :type '(choice (const :tag "F10 drops down TTY menus" nil) (const :tag "F10 invokes tmm-menubar" t)) :group 'display :version "24.4")
#@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 (#$ . 84370))
#@559 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.
(defalias 'menu-bar-open #[(&optional frame initial-x) "\306\206\307 !\211\310\267\202\311!\202\207\312!\202\207\n\204q\313\314\315\"\206'\316\316U\204q\317 \210\320 \210\f]\321
\316#\322\323 \324\325\"\"\206d\323\326 \324\325\"\"\206d\327\324\325\"!@A\206d\330 \331
\316\314\332$\314\332$*\202\207\307 p!\"\333\216\334\206\201\307 \335\"\210\336 +)\207" [frame type tty-menu-open-use-tmm initial-x tty-menu--initial-menu-x x framep selected-frame #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 15 w32 21)) 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 #[nil "\302!\203\303\304\"\210\305	!\205	q\207" [#1=#:old-frame #2=#:old-buffer frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord tmm-menubar menu global-map #2# #1#] 8 (#$ . 84538) (list nil (prefix-numeric-value current-prefix-arg))])
(global-set-key [f10] 'menu-bar-open)
#@98 Start key navigation of the buffer menu.
This is the keyboard interface to \[mouse-buffer-menu].
(defalias 'buffer-menu-open #[nil "\300\301 \302\303\211\304\305$\"\207" [popup-menu mouse-buffer-menu-keymap posn-at-x-y 0 nil t] 7 (#$ . 86242) nil])
(global-set-key [C-f10] 'buffer-menu-open)
(defalias 'mouse-buffer-menu-keymap #[nil "\305 \306\211A\242!\237\307\211\2035@\211\211A\242\310	\311\312\f!!\f\313\f\314\n!F#\210)A\211\204*	*\207" [menu km item --dolist-tail-- name mouse-buffer-menu-map make-sparse-keymap nil define-key vector intern keymap menu-bar-buffer-vector] 9])
#@41 Keymap used while processing TTY menus.
(defvar tty-menu-navigation-map (byte-code "\303 \304\305\211\203\n@\306	@	A\307 $\210\nA\211\204*\310\311\312#\210\310\313\314#\210\310\315\314#\210\310\316\314#\210\310\317\314#\210\310\320\314#\210\310\321\314#\210\310\322\314#\210\310\323\314#\210\310\324\314#\210\310\325\314#\210\310\326\327#\210\310\330\331#\210\310\332\333#\210\310\334\335#\210\310\336\327#\210\310\337\327#\210\310\340\331#\210\310\341\331#\210\310\342\331#\210\310\343\331#\210\310\344\314#\210\310\345\314#\210\310\346\347#\210\310\350\347#\210\310\351\347#\210\310\352\347#\210\310\353\347#\210\310\354\347#\210\310\355\347#\210\310\356\347#\210\310\357\347#\210\310\360\347#\210\310\361\362#\210)\207" [map bind --dolist-tail-- 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)) nil substitute-key-definition current-global-map define-key [menu-bar t] tty-menu-exit [18] tty-menu-select [10] [return] [linefeed] [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] [header-line mouse-1] [header-line drag-mouse-1] [mode-line down-mouse-1] tty-menu-ignore [mode-line down-mouse-2] [mode-line down-mouse-3] [mode-line C-down-mouse-1] [mode-line C-down-mouse-2] [mode-line C-down-mouse-3] [down-mouse-1] [C-down-mouse-1] [C-down-mouse-2] [C-down-mouse-3] [mouse-movement] tty-menu-mouse-movement] 6) (#$ . 86846))
(provide 'menu-bar)