;ELC ;;; Compiled by root@bugs.build.redhat.com on Fri Feb 4 11:20:41 2005 ;;; from file /usr/src/build/514901-i386/BUILD/emacs-21.3/lisp/menu-bar.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`menu-bar.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@239 *Maximum number of entries which may appear on the Buffers menu. If this is 10, then only the ten most-recently-selected buffers are shown. If this is nil, then all buffers are shown. A large number or nil slows down menu responsiveness. (custom-declare-variable 'buffers-menu-max-size '10 '(#$ . -639) :type '(choice integer (const :tag "All" nil)) :group 'mouse) (byte-code "\306\307\"\204\310\311\312\313!#\210\302 B\314\302!\204\312\315!\316\310\317\315\nB#\210\304 B\314\304!\2045\312\320!\310\321\320\fB#\210\310\322\323\312\323!B#\210\305 B\314\305!\204U\312\324!\310\325\324 B#\210\326 B\314\326!\204l\312\327!\310\330\327B#\210\331 B\314\331!\204\204\312\332!\310\333\332B#\210\334 B\314\334!\204\233\310\335\336#\210\310\337\340#\210\310\341\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\310\363\364#\210\310\365\366#\210\310\367\370#\210\310\371\372#\210\310\373\374#\210\310\375\376#\210\310\377\201@#\210\310\201A\201B#\210\310\201C\201D#\210\310\201E\201F#\210\310\201G\201H#\210\310\201I\201J#\210\310\201K\201L#\207" [global-map current-load-list menu-bar-help-menu menu-bar-final-items menu-bar-tools-menu menu-bar-options-menu lookup-key [menu-bar] define-key [menu-bar] make-sparse-keymap "menu-bar" boundp "Help" (help-menu) [menu-bar help-menu] "Tools" [menu-bar tools] [menu-bar buffer] "Buffers" "Options" [menu-bar options] menu-bar-edit-menu "Edit" [menu-bar edit] menu-bar-files-menu "File" [menu-bar files] menu-bar-file-menu [exit-emacs] (menu-item "Exit Emacs" save-buffers-kill-emacs :help "Save unsaved buffers, then exit") [separator-exit] ("--") [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-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") [one-window] (menu-item "Unsplit Windows" delete-other-windows :enable (not (one-window-p t nil)) :help "Make selected window fill its frame") [split-window] (menu-item "Split Window" split-window-vertically :help "Split selected window in two") [separator-window] (menu-item "--") [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 :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 :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 :help "Print current buffer with page headings") [separator-print] (menu-item "--") [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 revert-buffer-function revert-buffer-insert-file-contents-function (and (buffer-file-name) (or (buffer-modified-p) (not (verify-visited-file-modtime (current-buffer)))))) :help "Re-read current buffer from its file") [write-file] (menu-item "Save Buffer As..." write-file :enable (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) :help "Write current buffer to another file") [save-buffer] (menu-item "Save (current buffer)" save-buffer :enable (and (buffer-modified-p) (buffer-file-name) (not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) :help "Save current buffer to its file") [separator-save] (menu-item "--") [kill-buffer] (menu-item "Close (current buffer)" kill-this-buffer :enable (kill-this-buffer-enabled-p) :help "Discard current buffer") [insert-file] (menu-item "Insert File..." insert-file :enable (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) :help "Insert another file into current buffer") [dired] (menu-item "Open Directory..." dired :help "Read a directory, operate on its files") [open-file] (menu-item "Open File..." find-file :enable (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) :help "Read a file into an Emacs buffer")] 6) #@51 Read a string and search for it nonincrementally. (defalias 'nonincremental-search-forward #[(string) "\302\232\203 \303 @!\207\304\305\"\210\303!\207" [string search-ring "" search-forward isearch-update-ring nil] 3 (#$ . 5769) "sSearch for string: "]) #@60 Read a string and search backward for it nonincrementally. (defalias 'nonincremental-search-backward #[(string) "\302\232\203 \303 @!\207\304\305\"\210\303!\207" [string search-ring "" search-backward isearch-update-ring nil] 3 (#$ . 6033) "sSearch for string: "]) #@63 Read a regular expression and search for it nonincrementally. (defalias 'nonincremental-re-search-forward #[(string) "\302\232\203 \303 @!\207\304\305\"\210\303!\207" [string regexp-search-ring "" re-search-forward isearch-update-ring t] 3 (#$ . 6308) "sSearch for regexp: "]) #@72 Read a regular expression and search backward for it nonincrementally. (defalias 'nonincremental-re-search-backward #[(string) "\302\232\203 \303 @!\207\304\305\"\210\303!\207" [string regexp-search-ring "" re-search-backward isearch-update-ring t] 3 (#$ . 6595) "sSearch for regexp: "]) #@48 Search forward for the previous search string. (defalias 'nonincremental-repeat-search-forward #[nil "\204\301\302!\210\303@!\207" [search-ring error "No previous search" search-forward] 2 (#$ . 6893) nil]) #@49 Search backward for the previous search string. (defalias 'nonincremental-repeat-search-backward #[nil "\204\301\302!\210\303@!\207" [search-ring error "No previous search" search-backward] 2 (#$ . 7110) nil]) #@53 Search forward for the previous regular expression. (defalias 'nonincremental-repeat-re-search-forward #[nil "\204\301\302!\210\303@!\207" [regexp-search-ring error "No previous search" re-search-forward] 2 (#$ . 7330) nil]) #@54 Search backward for the previous regular expression. (defalias 'nonincremental-repeat-re-search-backward #[nil "\204\301\302!\210\303@!\207" [regexp-search-ring error "No previous search" re-search-backward] 2 (#$ . 7565) nil]) (byte-code "\301B\306\301!\204\307\310!\302B\306\302!\204\307\311!\312\n\313\314#\210\312\n\315\316#\210\312\n\317\320#\210\312\n\321\322#\210\312\n\323\324#\210\312\n\325\326#\210\312\n\327\330#\210\312\n\331\332#\210\312\n\333\334#\210\312 \335\336\311\n\337\340\257#\210\312 \341\342#\210\312 \343\344#\210\312 \345\346#\210\312 \347\350#\210\312 \351\352#\210\312 \353\354#\210\312 \355\356#\210\312 \357\360#\210\312 \361\362#\210\304B\306\304!\204\242\307\363!\312\f\364\365#\210\312\f\366\367#\210\312\f\370\371#\210\312\f\372\373#\210\312\f\374\375#\210\312\f\376\377#\210\312\f\201@\201A#\210\312\f\201B\201C#\210\312\f\201D\201E#\210\312\f\201F\201G#\210\312\f\201H\201I#\210\312\f\201J\201K#\210\312 \201L\336\363\fE#\210\312 \201M\336\310 E#\210\312 \201N\201O#\210\312 \201P\201Q#\210\312 \201R\201S#\210\305B\306\305!\204H\201T\201UB\305\201V BM\210\312 \201W\201X#\210\312 \201Y\201Z#\210\312 \201[\201\\#\210\312 \201]\201^#\210\312 \201_\201`#\207" [current-load-list menu-bar-search-menu menu-bar-adv-search-menu menu-bar-edit-menu menu-bar-goto-menu yank-menu boundp make-sparse-keymap "Search" "Advanced Search/Replace" define-key [tags-continue] (menu-item "Continue Tags Search/Replace" tags-loop-continue :help "Continue last tags search/replace operation") [tags-repl] (menu-item "Replace in all tagged files" tags-query-replace :help "Interactively replace a regexp in all tagged files") [tags-srch] (menu-item "Search in all tagged files" tags-search :help "Search for a regexp in all tagged files") [separator-tag-search] (menu-item "--") [query-replace-regexp] (menu-item "Replace Regexp..." query-replace-regexp :enable (not buffer-read-only) :help "Replace regular expression, ask about each occurrence") [repeat-regexp-back] (menu-item "Repeat Regexp Backwards" nonincremental-repeat-re-search-backward :enable regexp-search-ring :help "Repeat last regular expression search backwards") [repeat-regexp-fwd] (menu-item "Repeat Regexp" nonincremental-repeat-re-search-forward :enable regexp-search-ring :help "Repeat last regular expression search forward") [re-search-backward] (menu-item "Search Regexp Backwards..." nonincremental-re-search-backward :help "Search backwards for a regular expression") [re-search-forward] (menu-item "Search Regexp..." nonincremental-re-search-forward :help "Search forward for a regular expression") [re-search] menu-item :help "Regexp and Tags search and replace" [query-replace] (menu-item "Replace..." query-replace :enable (not buffer-read-only) :help "Replace string interactively, ask about each occurrence") [repeat-search-back] (menu-item "Repeat Backwards" nonincremental-repeat-search-backward :enable search-ring :help "Repeat last search backwards") [repeat-search-fwd] (menu-item "Repeat Search" nonincremental-repeat-search-forward :enable search-ring :help "Repeat last search forward") [search-backward] (menu-item "Search Backwards..." nonincremental-search-backward :help "Search backwards for a string") [search-forward] (menu-item "Search..." nonincremental-search-forward :help "Search forward for a string") [props] (menu-item "Text Properties" facemenu-menu :help "Change properties of text in region") [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] (menu-item "--") [bookmark] (menu-item "Bookmarks" menu-bar-bookmark-map :help "Record positions and jump between them") "Go To" [set-tags-name] (menu-item "Set Tags File Name" visit-tags-table :help "Tell Tags commands which tag table file to use") [separator-tag-file] (menu-item "--") [apropos-tags] (menu-item "Tags Apropos" tags-apropos :help "Find function/variables whose names match regexp") [next-tag-otherw] (menu-item "Next Tag in Other Window" (lambda nil (interactive) (find-tag-other-window nil t)) :enable (and (boundp 'tags-location-ring) (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name in another window") [next-tag] (menu-item "Find Next Tag" (lambda nil (interactive) (find-tag nil t)) :enable (and (boundp 'tags-location-ring) (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name") [find-tag-otherw] (menu-item "Find Tag in Other Window..." find-tag-other-window :help "Find function/variable definition in another window") [find-tag] (menu-item "Find Tag..." find-tag :help "Find definition of function or variable") [separator-tags] (menu-item "--") [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") [goto] [search] [separator-search] (menu-item "--") [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) (not (mouse-region-match))) :help "Delete the text in region between mark and current position") "Select Yank" nil keymap [select-paste] (menu-item "Select and Paste" yank-menu :enable (and (cdr yank-menu) (not buffer-read-only)) :help "Paste (yank) text cut or copied earlier") [paste] (menu-item "Paste" yank :enable (and (fboundp 'x-selection-exists-p) (x-selection-exists-p) (not buffer-read-only)) :help "Paste (yank) text most recently cut/copied") [copy] (menu-item "Copy" menu-bar-kill-ring-save :enable mark-active :help "Copy text in region between mark and current position" :keys "\\[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") [undo] (menu-item "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command 'undo) pending-undo-list (consp buffer-undo-list))) :help "Undo last operation")] 8) (defalias 'menu-bar-kill-ring-save #[(beg end) "\302 \203 \303\304!\207\305 \"\207" [beg end mouse-region-match message "Selecting a region with the mouse does `copy' automatically" kill-ring-save] 3 nil "r"]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311#\210\306\312\310\311#\210\306\313\310\314#\207" [autoload ispell-menu-map "ispell" nil t keymap put clipboard-kill-region menu-enable mark-active clipboard-kill-ring-save clipboard-yank (or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p)) (x-selection-exists-p 'CLIPBOARD))] 6) #@68 Insert the clipboard contents, or the last stretch of killed text. (defalias 'clipboard-yank #[nil "\301\302 )\207" [x-select-enable-clipboard t yank] 1 (#$ . 14519) nil]) #@56 Copy region to kill ring, and save in the X clipboard. (defalias 'clipboard-kill-ring-save #[(beg end) "\303\304 \n\")\207" [x-select-enable-clipboard beg end t kill-ring-save] 3 (#$ . 14698) "r"]) #@50 Kill the region, and save it in the X clipboard. (defalias 'clipboard-kill-region #[(beg end) "\303\304 \n\")\207" [x-select-enable-clipboard beg end t kill-region] 3 (#$ . 14903) "r"]) #@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 "\302\303\304\305\306BB#\210\302\307\310\311\312BB#\210\302\313\314\315\316BB#\210\302 \317\316#\210\302 \320\312#\210\302 \321\306#\210\302 \322\316#\210\302 \323\312#\210\302 \324\306#\207" [menu-bar-edit-menu global-map define-key [paste] "Paste" "Paste text from clipboard" clipboard-yank [copy] "Copy" "Copy text in region to the clipboard" clipboard-kill-ring-save [cut] "Cut" "Delete text in region and copy it to the clipboard" clipboard-kill-region [f20] [f16] [f18] [cut] [copy] [paste]] 6 (#$ . 15097) nil]) (byte-code "\301B\302\301!\204\303\304!\305 \306\307#\210\305 \310\311#\210\305 \312\313#\210\305 \314\315#\210\305 \316\317#\210\305 \320\321#\210\305 \322\323#\210\305 \324\325#\210\305 \326\327#\210\305 \330\331#\210\305 \332\333#\210\305 \334\335#\207" [current-load-list menu-bar-custom-menu boundp make-sparse-keymap "Customize" define-key [customize-apropos-groups] (menu-item "Groups Matching Regexp..." customize-apropos-groups :help "Browse groups whose names match regexp") [customize-apropos-faces] (menu-item "Faces Matching Regexp..." customize-apropos-faces :help "Browse faces whose names match regexp") [customize-apropos-options] (menu-item "Options Matching Regexp..." customize-apropos-options :help "Browse options whose names match regexp") [customize-apropos] (menu-item "Settings Matching Regexp..." customize-apropos :help "Browse customizable settings whose names match regexp") [separator-2] ("--") [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 "Change value of specific option") [customize-changed-options] (menu-item "Recently Changed Options..." customize-changed-options :help "Customize options changed in recent versions") [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'")] 4) (defalias 'menu-bar-make-toggle '(macro . #[(name variable doc message help &rest body) "\306\307\310\311 \312\313O\227 \313\310O\314R\315\316\n\203\306\nB\202\"\317 \320 DE\304\f\321BB\304\f\322BBF\257\323\324 \325 \326\327\330\331\323 DD F\257DE\207" [name help body variable message doc progn defun nil "Toggle whether to " 0 1 "." (interactive) if setq not ("enabled") ("disabled") quote menu-item :help :button :toggle and boundp] 14])) (byte-code "\302\303\304\305 \306\307\257#\207" [menu-bar-options-menu menu-bar-custom-menu define-key [customize] menu-item "Customize Emacs" :help "Full customization of every Emacs feature"] 8) #@57 Save current values of Options menu items using Custom. (defalias 'menu-bar-options-save #[nil "\303\304\211\203 @\305!\203\306\305!\"\210 A\211\204*\307\n>\203-\306\302\305\302!\"\210\310\311!\203:\306\312\305\312!\"\210\310\313!\205F\306\314\305\314!\"\207" [elt #1=#:--dolist-temp-- text-mode-hook (debug-on-quit debug-on-error auto-compression-mode case-fold-search truncate-lines show-paren-mode transient-mark-mode global-font-lock-mode current-language-environment default-input-method) nil default-value customize-save-variable turn-on-auto-fill featurep saveplace save-place uniquify uniquify-buffer-name-style] 5 (#$ . 18087) nil]) (byte-code "\302\303\304#\210\302\305\306#\210\302\307\310\311 \312\313\257#\210\302\314\315#\210\302\316\317\320M\210\321#\210\302\322\323\324M\210\325#\210\302\326\327#\210\302\330\331#\210\302\332\333\334M\210\335#\210\302\336\337\340M\210\341#\210\302\342\343#\210\302\344\345\346M\210\347#\210\302\350\351#\210\302\352\353\354M\210\355#\210\302\356\357#\210\302\360\361\362M\210\363#\210\302\364\365\366M\210\367#\210\302\370\371\372M\210\373#\207" [menu-bar-options-menu mule-menu-keymap define-key [save] (menu-item "Save Options" menu-bar-options-save :help "Save options set from the menu above") [custom-separator] ("--") [mule] menu-item "Mule (Multilingual Environment)" :help "Default language, encodings, input method" [mule-separator] ("--") [debug-on-quit] toggle-debug-on-quit #[nil "?\211\203\f\301\302\303\"\207\301\302\304\"\207" [debug-on-quit message "Debug on Quit %s" "enabled" "disabled"] 3 "Toggle whether to enter Lisp debugger when C-g is pressed." nil] (menu-item "Enter Debugger on Quit/C-g" toggle-debug-on-quit :help "Enter Lisp debugger when C-g is pressed" :button (:toggle and (boundp 'debug-on-quit) debug-on-quit)) [debug-on-error] toggle-debug-on-error #[nil "?\211\203\f\301\302\303\"\207\301\302\304\"\207" [debug-on-error message "Debug on Error %s" "enabled" "disabled"] 3 "Toggle whether to enter Lisp debugger when an error is signaled." nil] (menu-item "Enter Debugger on Error" toggle-debug-on-error :help "Enter Lisp debugger when an error is signaled" :button (:toggle and (boundp 'debug-on-error) debug-on-error)) [debugger-separator] ("--") [toggle-auto-compression] (menu-item "Automatic File De/compression" auto-compression-mode :help "Transparently decompress compressed files" :button (:toggle rassq 'jka-compr-handler file-name-handler-alist)) [save-place] toggle-save-place-globally #[nil "\301\302!\210\303\300\304!?\"\203\305\306\307\"\207\305\306\310\"\207" [save-place require saveplace set-default default-value message "Saving place in files %s" "enabled" "disabled"] 4 "Toggle whether to save Emacs state for next session." nil] (menu-item "Save Place in Files between Sessions" toggle-save-place-globally :help "Save Emacs state for next session" :button (:toggle and (boundp 'save-place) save-place)) [uniquify] toggle-uniquify-buffer-names #[nil "\301\302!\210?\205\n\303\211\203\304\305\306\"\207\304\305\307\"\207" [uniquify-buffer-name-style require uniquify forward message "Directory name in buffer names (uniquify) %s" "enabled" "disabled"] 3 "Toggle whether to uniquify buffer names by adding parent directory names." nil] (menu-item "Use Directory Names in Buffer Names" toggle-uniquify-buffer-names :help "Uniquify buffer names by adding parent directory names" :button (:toggle and (boundp 'uniquify-buffer-name-style) uniquify-buffer-name-style)) [edit-options-separator] ("--") [case-fold-search] toggle-case-fold-search #[nil "?\211\203\f\301\302\303\"\207\301\302\304\"\207" [case-fold-search message "Case-Insensitive Search %s" "enabled" "disabled"] 3 "Toggle whether to ignore letter-case in search." nil] (menu-item "Case-Insensitive Search" toggle-case-fold-search :help "Ignore letter-case in search" :button (:toggle and (boundp 'case-fold-search) case-fold-search)) [auto-fill-mode] (menu-item "Word Wrap in Text Modes (Auto Fill)" toggle-text-mode-auto-fill :help "Automatically fill text between left and right margins" :button (:toggle member 'turn-on-auto-fill text-mode-hook)) [truncate-lines] toggle-truncate-lines #[nil "?\211\301\302 !\210\203\303\304\305\"\207\303\304\306\"\207" [truncate-lines set-buffer-modified-p buffer-modified-p message "Long Line Truncation %s" "enabled" "disabled"] 3 "Toggle whether to truncate long lines on the screen." nil] (menu-item "Truncate Long Lines in this Buffer" toggle-truncate-lines :help "Truncate long lines on the screen" :button (:toggle and (boundp 'truncate-lines) truncate-lines)) [highlight-separator] ("--") [highlight-paren-mode] toggle-highlight-paren-mode #[nil "\300 \203\n\301\302\303\"\207\301\302\304\"\207" [show-paren-mode message "Show Paren mode %s" "enabled" "disabled"] 3 "Toggle whether to highlight matching/mismatched parentheses at cursor." nil] (menu-item "Paren Match Highlighting (Show Paren mode)" toggle-highlight-paren-mode :help "Highlight matching/mismatched parentheses at cursor" :button (:toggle and (boundp 'show-paren-mode) show-paren-mode)) [transient-mark-mode] toggle-transient-mark-mode #[nil "?\211\203\f\301\302\303\"\207\301\302\304\"\207" [transient-mark-mode message "Transient Mark mode %s" "enabled" "disabled"] 3 "Toggle whether to make text in active region stand out in color." nil] (menu-item "Active Region Highlighting (Transient Mark mode)" toggle-transient-mark-mode :help "Make text in active region stand out in color" :button (:toggle and (boundp 'transient-mark-mode) transient-mark-mode)) [toggle-global-lazy-font-lock-mode] toggle-global-lazy-font-lock-mode #[nil "\300 \203\n\301\302\303\"\207\301\302\304\"\207" [global-font-lock-mode message "Global Font Lock mode %s" "enabled" "disabled"] 3 "Toggle whether to colorize text based on language syntax." nil] (menu-item "Syntax Highlighting (Global Font Lock mode)" toggle-global-lazy-font-lock-mode :help "Colorize text based on language syntax" :button (:toggle and (boundp 'global-font-lock-mode) global-font-lock-mode))] 8) (defalias 'send-mail-item-name #[nil "\303 \236\211\203\nA\202 \304 !\305\306\n\"\203 \307\310\n\"\n*\207" [known-send-mail-commands mail-user-agent name ((sendmail-user-agent . "sendmail") (mh-e-user-agent . "MH") (message-user-agent . "Gnus Message") (gnus-user-agent . "Gnus")) symbol-name string-match "\\(.+\\)-user-agent" match-string 1] 4]) (defalias 'read-mail-item-name #[nil "\303 \236\211\203\nA\202\304 !*\207" [known-rmail-commands read-mail-command known ((rmail . "RMAIL") (mh-rmail . "MH") (gnus . "Gnus")) symbol-name] 3]) (byte-code "\301B\306\301!\204\307\310!\311\n\312\313\310 E#\210\311\n\314\315#\210\311 \316\317#\210\311 \320\321#\210\311 \322\323#\210\311 \324\325#\210\311 \326\327#\210\311 \330\331#\210\311 \332\333#\210\311 \334\335#\210\311 \336\337#\210\311 \340\341#\210\311 \342\343#\210\311\n\344\345#\210\311\n\346\347#\210\311\n\350\351#\210\311\n\352\313\353\354\355\356\357\360\257#\210\311\n\361\313\362\363\355\364\357\365\257#\210\311\n\366\367#\210\311\n\370\371#\210\303B\306\303!\204\247\307\372!\311\n\373\313\374\f\375BBB#\210\311\n\376\313\372 \357\377\257#\210\311\n\201C\201D#\210\311\n\201E\201F#\210\311\n\201G\201H#\210\311\n\201I\201J#\210\311\n\201K\201L#\210\311\n\201M\201N#\210\311\n\201O\201P#\210\311\n\201Q\201R#\210\311\n\201S\201T#\210\311\n\201U\201V#\210\311\n\201W\201X#\210\311\n\201Y\201Z#\210\311\n\201[\201\\#\210\305B\306\305!\204Q\307\201]!\311 \201^\201_#\210\311 \201`\201a#\210\311 \201b\201c#\210\311 \201d\313\201e@\357\201f\257#\210\311 \201g\201h#\210\311 \201i\201j#\210\311 \201k\201l#\210\311 \201m\201n#\210\311 \201o\201p#\210\311 \201q\201r#\210\311 \201s\201t#\210\311 \201u\201v#\210\311 \201w\201x#\210\201AB\306\201A!\204\361\307\201y!A\311A\201z\201{#\210\311A\201|\201}#\210\311A\201~\201#\210\311A\201\200\201\201#\210\311A\201\202\201\203#\210\311B\201\204\201\205#\210\311B\201\206\201\207#\210\311B\201\210\201\211#\210\311B\201\212\201\213#\210\311B\201\214\201\215#\210\311B\201\216\201\217#\210\311B\201\220\201\221#\210\311B\201\222\201\223#\210\311B\201\224\201\225#\210\311B\201\226\313\201] \357\201\227\257#\210\311B\201\230\313\201yA\357\201\231\257#\210\311B\201\232\201\233#\210\311B\201\234\201\235#\210\311B\201\236\201\237#\210\311B\201\240\201\241#\210\311B\201\242\201\243#\210\311B\201\244\201\245#\210\311B\201\246\201\247#\210\311B\201\250\201\251#\210\311B\201\252\201\253#\207" [current-load-list menu-bar-games-menu menu-bar-tools-menu vc-menu-map cvs-global-menu menu-bar-describe-menu boundp make-sparse-keymap "Games" define-key [games] menu-item [separator-games] ("--") [zone] (menu-item "Zone Out" zone :help "Play tricks with Emacs display when Emacs is idle") [yow] (menu-item "Random Quotation" yow :help "Display a random Zippy quotation") [solitaire] (menu-item "Solitaire" solitaire) [snake] (menu-item "Snake" snake :help "Move snake around avoiding collisions") [mult] (menu-item "Multiplication Puzzle" mpuz :help "Excercise 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)") [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") [calendar] (menu-item "Display Calendar" calendar) [speedbar] (menu-item "Display Speedbar" speedbar-frame-mode) [directory-search] (menu-item "Directory Search" eudc-tools-menu :help "Query directory servers via LDAP, CCSO PH/QI or BBDB") [compose-mail] (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq mail-user-agent 'ignore))) :help "Send a mail message" [rmail] (format "Read Mail (with %s)" (read-mail-item-name)) #[nil "\301!\207" [read-mail-command call-interactively] 2 nil nil] (and read-mail-command (not (eq read-mail-command 'ignore))) "Read your mail and reply to it" [gnus] (menu-item "Read Net News (Gnus)" gnus :help "Read network news groups") [separator-vc] ("--") "Version Control" [pcl-cvs] "PCL-CVS" (:help "Module-level interface to CVS") [vc] "Interface to RCS, CVS, SCCS" describe-language-environment-map menu-bar-manuals-menu menu-bar-help-menu [separator-compare] ("--") [ediff-misc] (menu-item "Ediff Miscellanea" menu-bar-ediff-misc-menu :help "Ediff manual, customization, sessions, etc.") [epatch] (menu-item "Apply Patch" menu-bar-epatch-menu) [ediff-merge] (menu-item "Merge" menu-bar-ediff-merge-menu :help "Merge different revisions of files/directories") [compare] (menu-item "Compare (Ediff)" menu-bar-ediff-menu :help "Display differences between files/directories") [separator-spell] ("--") [spell] (menu-item "Spell Checking" ispell-menu-map) [separator-prog] ("--") [gdb] (menu-item "Debugger (GUD)..." gdb :help "Debug a program from within Emacs") [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") [compile] (menu-item "Compile..." compile :help "Invoke compiler or Make, view compilation errors") [grep] (menu-item "Search Files (Grep)..." grep :help "Search files for strings or regexps (with Grep)") "Describe" [mule-diag] (menu-item "Show All of Mule Status" mule-diag :visible default-enable-multibyte-characters :help "Display multilingual environment settings") [describe-coding-system] (menu-item "Describe Coding System..." describe-coding-system :visible default-enable-multibyte-characters) [describe-input-method] (menu-item "Describe Input Method..." describe-input-method :visible default-enable-multibyte-characters :help "Keyboard layout for specific input method") [describe-language-environment] "Describe Language Environment" "Show multilingual settings for a specific language" [separator-desc-mule] ("--") [list-keybindings] (menu-item "List Key Bindings" describe-bindings :help "Display a list of all current keybindings") [list-keybindings] (menu-item "List Key Bindings" describe-bindings :help "Display a list of all current keybindings") [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] (menu-item "Describe Key..." describe-key :help "Display documentation of command bound to a key (or menu-item)") [apropos-variables] (menu-item "Apropos Variables..." apropos-variable :help "List variables whose names match a regexp") [apropos-commands] (menu-item "Apropos Commands..." apropos-command :help "List commands whose names match a regexp") [describe-mode] (menu-item "Describe Buffer Modes" describe-mode :help "Describe this buffer's major and minor mode") "Manuals" [man] (menu-item "Read Man Page..." manual-entry :help "Man-page docs for external commands and libraries") [sep2] ("--") [info] (menu-item "Browse Manuals with Info" Info-directory :help "Read any of the installed manuals") [command] (menu-item "Find Command in Manual" Info-goto-emacs-command-node :help "Display manual section that describes a command") [key] (menu-item "Find Key in Manual" Info-goto-emacs-key-command-node :help "Display manual section that describes a key") [eliza] (menu-item "Emacs Psychiatrist" doctor :help "Our doctor will help you feel better") [sep3] ("--") [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)") [describe-distribution] (menu-item "Getting New Versions" describe-distribution :help "How to get latest versions of Emacs") [more] (menu-item "Find Extra Packages" (lambda nil (interactive) (let (enable-local-variables) (view-file (expand-file-name "MORE.STUFF" data-directory)) (goto-address))) :help "Where to find some extra packages and possible updates") [emacs-version] (menu-item "Show Emacs Version" emacs-version) [sep2] ("--") [finder-by-keyword] (menu-item "Find Emacs Packages..." finder-by-keyword :help "Find packages and features by keyword") [describe] "Describe commands, variables, keys" [manuals] "Lookup commands and keys in docs, read manuals" [sep1] ("--") [report-emacs-bug] (menu-item "Send Bug Report..." report-emacs-bug :help "Send e-mail to Emacs maintainers") [order-emacs-manuals] (menu-item "Ordering Manuals" view-order-manuals :help "How to order manuals from the Free Software Foundation") [emacs-manual] (menu-item "Read the Emacs Manual" (lambda nil (interactive) (info "emacs"))) [emacs-problems] (menu-item "Emacs Known Problems" view-emacs-problems) [emacs-news] (menu-item "Emacs News" view-emacs-news :help "New features of this version") [emacs-faq] (menu-item "Emacs FAQ" view-emacs-FAQ) [emacs-tutorial-language-specific] (menu-item "Emacs Tutorial (choose language)..." (lambda nil (interactive) (help-with-tutorial t)) :help "Learn how to use Emacs (choose a language)") [emacs-tutorial] (menu-item "Emacs Tutorial" help-with-tutorial :help "Learn how to use Emacs")] 10) #@26 Kill the current buffer. (defalias 'kill-this-buffer #[nil "\300p!\207" [kill-buffer] 2 (#$ . 33820) nil]) (defalias 'kill-this-buffer-enabled-p #[nil "\303\304 \203\305\306\307@!\"\204 TA\211\204 \310\311\n!!?\205) \312V*\207" [buffers count menu-updating-frame 0 buffer-list string-match "^ " buffer-name window-minibuffer-p frame-selected-window 1] 5]) (put 'dired 'menu-enable '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) #@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 (#$ . 34294)]) #@46 *Maximum length to display in the yank-menu. (custom-declare-variable 'yank-menu-length '20 '(#$ . -34535) :type 'integer :group 'mouse) (defalias 'menu-bar-update-yank-menu #[(string old) "A@ G\nX\203 \202 \306\n\307\245O\310 \n\307\245[\311OQ\312\313 \"\203* \314P \203H \f@=\204< \f@\230\203H\f \240\210\fA \240\210\202S \315BBAB\241\210*AGV\205c\233\311\241\207" [yank-menu string yank-menu-length menu-string front old 0 2 "..." nil string-match "\\`-+\\'" " " menu-bar-select-yank kill-ring-max] 6]) (put 'menu-bar-select-yank 'apropos-inhibit t) (defalias 'menu-bar-select-yank #[nil "\301`!\210c\207" [last-command-event push-mark] 2 nil "*"]) (byte-code "\301B\302\301!\204\f\303\304B\303\207" [current-load-list list-buffers-directory boundp nil menu-bar-update-buffers-maxbuf] 2) (defalias 'menu-bar-select-buffer #[nil "\301!\207" [last-command-event switch-to-buffer] 2 nil nil]) (defalias 'menu-bar-select-frame #[nil "\304\305 \304\211\203 \n@ \306 \307\"\232\203 \nA\211\204 *\310!\210\311!\210\312!)\207" [frame f #1=#:--dolist-temp-- last-command-event nil frame-list frame-parameter name make-frame-visible raise-frame select-frame] 5 nil nil]) (defalias 'menu-bar-update-buffers-1 #[(elt) "\305\211\306\" A\307 @!\203\310\202\311\212 @q\210\n\203 \312\202!\311)\313 @!\2064\212 @q\210 )\2064\314\315\f!\206<\314\211G\316V\203K\317\f\320\321OP\f)% @B\207" [menu-bar-update-buffers-maxbuf elt buffer-read-only list-buffers-directory file format "%%%ds %%s%%s %%s" buffer-modified-p "*" " " "%" buffer-file-name "" file-name-directory 20 "..." -17 nil] 10]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list menu-bar-buffers-menu-list-buffers-entry boundp nil] 2) (defalias 'menu-bar-update-buffers #[(&optional force) "\306\307 \310\"\205N\204\311 \205N\312 \313 \314\315\211(\250\2039(\316V\2039 G(V\2039( \233\315\241\210\317\320\321 \"\n\315)\314*\315+\315,\n\211)\203\204\322)@@!-)@-G\323V\203v-\314\324O\325-\326\315OQ\202x-\241\210))A\211)\204T\n\211)\203\252)@A\314H\327=\204\241*)@AG]*)A\211)\204\214\n\211)\203\351)@.\327.A\314H=\204\312\330.!+B++\203\337+@@G V\203\337+@@G))A\211)\204\262+\237+/\204\372\331\332\331BB//A\333 \334\245\335Z\314]\327\"\336P\240\210\320\337+\"/C\244-B\fA\203=\333 \334\245\340Z\314]\327\"\341P\342\343\320\344\f\"BB-\304- BB\nB*\n\203E\342\nB\345\307 \346\347\nB#-\207" [force frames-menu buffers-menu maxlen frames buffers lookup-key current-global-map [menu-bar buffer] frame-or-buffer-changed-p buffer-list frame-list 0 nil 1 "Select Buffer" mapcar list buffer-name 27 12 "..." -12 32 menu-bar-update-buffers-1 list-buffers "" make-string 2 8 "List All Buffers" #[(pair) "\301A!@\302\211BE\303\244\207" [pair buffer-name nil menu-bar-select-buffer] 4] 3 "Frames" keymap "Select Frame" #[(frame) "\301\302\"\301\302\"\303\211BE\304\244\207" [frame frame-parameter name nil menu-bar-select-frame] 4] define-key [menu-bar buffer] "Buffers" buffers-menu-max-size tail menu-bar-update-buffers-maxbuf alist head name elt menu-bar-buffers-menu-list-buffers-entry] 8]) (byte-code "\306\307\310\"\210\310 \210 \n \f\257\311\211$\203.$@\312 \313\314\315\314!B#\210$A\211$\204* \fD\311\211%\203k%@\312 \316\317\320\321\322\323\257#\210\312 \324\317\325\326\322\327\257#\210\312 \330\317\331\332\322\333\257#\210%A\211%\204:* \n \f\257\311\211&\203\240&@\312 \334\317\335\336\322\337\257#\210\312 \340\317\341\342\322\343\257#\210&A\211&\204{*\311\207" [minibuffer-local-ns-map minibuffer-local-must-match-map minibuffer-local-isearch-map minibuffer-local-map minibuffer-local-completion-map map add-hook menu-bar-update-hook menu-bar-update-buffers nil 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] "Complete Word" minibuffer-complete-word "Complete at most one word" [menu-bar minibuf tab] "Complete" minibuffer-complete "Complete as far as possible" [menu-bar minibuf quit] "Quit" keyboard-escape-quit "Abort input and exit minibuffer" [menu-bar minibuf return] "Enter" exit-minibuffer "Terminate input and exit minibuffer" #:--dolist-temp-- #:--dolist-temp-- #:--dolist-temp--] 9) #@155 Toggle display of a menu bar on each frame. Setting this variable directly does not take effect; use either \[customize] or the function `menu-bar-mode'. (custom-declare-variable 'menu-bar-mode 'nil '(#$ . 38933) :set (lambda (symbol value) (menu-bar-mode (or value 0))) :initialize 'custom-initialize-default :type 'boolean :group 'frames) #@235 Toggle display of a menu bar on each frame. This command applies to all frames that exist and frames to be created in the future. With a numeric argument, if the argument is positive, turn on menu bars; otherwise, turn off menu bars. (defalias 'menu-bar-mode #[(flag) "\306\236\211\203 A\307=?\202\306\n\203\310\202\307BB) \204)\n?\202.\311 !\307V\306\236\211:\203G\f\n\203A\310\202B\307\241\210\202U\306\n\203P\310\202Q\307BB)\312 \211\205\212\313\314 @!\236A \315 @\306\n\203r\310\202s\307BC\"\210\315 @\313 BC\"\210) A\211\204]\316)\207" [default-frame-alist default menu-bar-mode flag parameter frames menu-bar-lines 0 1 prefix-numeric-value frame-list height frame-parameters modify-frame-parameters nil] 5 (#$ . 39281) "P"]) (provide 'menu-bar)