global-map
global-map is a variable defined in `
subr.el'.
Its value is shown
below.
- This variable may be risky if used as a file-local variable.
Documentation:
Default global keymap mapping Emacs keyboard input into commands.
The value is a keymap which is usually (but not necessarily) Emacs's
global map.
Value:
(keymap
#^[nil nil keymap
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command delete-backward-char]
#^^[1 0
#^^[2 0
#^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command electric-newline-and-maybe-indent kill-line recenter-top-bottom newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command delete-backward-char]
self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command]
self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command]
self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command]
(remap keymap
(find-file-other-window)
(find-file))
(C-M-print . pr-txt-fast-fire)
(C-print . pr-txt-fast-fire)
(S-print . pr-ps-mode-using-ghostscript)
(M-print . pr-ps-mode-using-ghostscript)
(print . pr-ps-fast-fire)
(ignore . ignore)
(M-S-down-mouse-2 . viper-mouse-catch-frame-switch)
(M-S-mouse-2 . viper-mouse-click-insert-word)
(M-S-down-mouse-1 . viper-mouse-catch-frame-switch)
(M-S-mouse-1 . viper-mouse-click-search-word)
(S-mouse-3 . kmacro-end-call-mouse)
(C-mouse-5 . mwheel-scroll)
(S-mouse-5 . mwheel-scroll)
(mouse-5 . mwheel-scroll)
(C-mouse-4 . mwheel-scroll)
(S-mouse-4 . mwheel-scroll)
(mouse-4 . mwheel-scroll)
(XF86WakeUp . ignore)
(tool-bar menu-item "tool bar" ignore :filter tool-bar-make-keymap)
(C-f10 . buffer-menu-open)
(f10 . menu-bar-open)
(horizontal-scroll-bar keymap
(mouse-1 . scroll-bar-toolkit-horizontal-scroll))
(bottom-divider keymap
(down-mouse-1 . mouse-drag-mode-line))
(right-divider keymap
(down-mouse-1 . mouse-drag-vertical-line))
(vertical-line keymap
(mouse-1 . mouse-select-window)
(down-mouse-1 . mouse-drag-vertical-line)
(C-mouse-2 . mouse-split-window-vertically))
(vertical-scroll-bar keymap
(mouse-1 . scroll-bar-toolkit-scroll)
(C-mouse-2 . mouse-split-window-vertically))
(header-line keymap
(mouse-1 . mouse-select-window)
(down-mouse-1 . mouse-drag-header-line))
(mode-line keymap
(C-mouse-2 . mouse-split-window-horizontally)
(mouse-3 . mouse-delete-window)
(mouse-2 . mouse-delete-other-windows)
(down-mouse-1 . mouse-drag-mode-line)
(drag-mouse-1 . mouse-select-window)
(mouse-1 . mouse-select-window))
(C-down-mouse-3 menu-item "Menu Bar" ignore :filter
(lambda
(_)
(if
(zerop
(or
(frame-parameter nil 'menu-bar-lines)
0))
(mouse-menu-bar-map)
(mouse-menu-major-mode-map))))
(S-down-mouse-1 . mouse-appearance-menu)
(C-down-mouse-1 . mouse-buffer-menu)
(mouse-3 . mouse-save-then-kill)
(mouse-2 . mouse-yank-primary)
(drag-mouse-1 . mouse-set-region)
(mouse-1 . mouse-set-point)
(down-mouse-1 . mouse-drag-region)
(M-mouse-2 . mouse-yank-secondary)
(M-mouse-3 . mouse-secondary-save-then-kill)
(M-down-mouse-1 . mouse-drag-secondary)
(M-drag-mouse-1 . mouse-set-secondary)
(M-mouse-1 . mouse-start-secondary)
(C-down-mouse-2 . facemenu-menu)
(M-f10 . toggle-frame-maximized)
(f11 . toggle-frame-fullscreen)
(compose-last-chars . compose-last-chars)
(f1 . help-command)
(help . help-command)
(f2 . 2C-command)
(menu-bar keymap
(help-menu "Help" keymap
(emacs-tutorial menu-item "Emacs Tutorial" help-with-tutorial :help "Learn how to use 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-faq menu-item "Emacs FAQ" view-emacs-FAQ :help "Frequently asked (and answered) questions about Emacs")
(emacs-news menu-item "Emacs News" view-emacs-news :help "New features of this version")
(emacs-known-problems menu-item "Emacs Known Problems" view-emacs-problems :help "Read about known problems with Emacs")
(emacs-manual-bug menu-item "How to Report a Bug" info-emacs-bug :help "Read about how to report an Emacs bug")
(send-emacs-bug-report menu-item "Send Bug Report..." report-emacs-bug :help "Send e-mail to Emacs maintainers")
(emacs-psychotherapist menu-item "Emacs Psychotherapist" doctor :help "Our doctor will help you feel better")
(sep1 "--")
(search-documentation menu-item "Search Documentation"
(keymap
(emacs-terminology menu-item "Emacs Terminology" search-emacs-glossary :help "Display the Glossary section of the Emacs 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")
(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-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-command-in-manual menu-item "Look Up Command in User Manual..." Info-goto-emacs-command-node :help "Display manual section that describes a command")
(sep1 "--")
(find-commands-by-name menu-item "Find Commands by Name..." apropos-command :help "Find commands whose names 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-option-by-value menu-item "Find Options by Value..." apropos-value :help "Find variables whose values 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")
(search-documentation-strings menu-item "Search Documentation Strings..." apropos-documentation :help "Find functions and variables whose doc strings match a regexp")
"Search Documentation"))
(describe menu-item "Describe"
(keymap
(describe-mode menu-item "Describe Buffer Modes" describe-mode :help "Describe this buffer's major and minor mode")
(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-function menu-item "Describe Function..." describe-function :help "Display documentation of function/command")
(describe-variable menu-item "Describe Variable..." describe-variable :help "Display documentation of variable/option")
(describe-face menu-item "Describe Face..." describe-face :help "Display the properties of a face")
(describe-package menu-item "Describe Package..." describe-package :help "Display documentation of a Lisp package")
(describe-current-display-table menu-item "Describe Display Table" describe-current-display-table :help "Describe the current display table")
(list-keybindings menu-item "List Key Bindings" describe-bindings :help "Display all current key bindings (keyboard shortcuts)")
(separator-desc-mule "--")
(describe-language-environment menu-item "Describe Language Environment"
(keymap
(Default menu-item "Default" describe-specified-language-support)
"Describe Language Environment"
(Chinese "Chinese" . describe-chinese-environment-map)
(Cyrillic "Cyrillic" . describe-cyrillic-environment-map)
(Indian "Indian" . describe-indian-environment-map)
(Sinhala "Sinhala" . describe-specified-language-support)
(English "English" . describe-specified-language-support)
(ASCII "ASCII" . describe-specified-language-support)
(Ethiopic "Ethiopic" . describe-specified-language-support)
(European "European" . describe-european-environment-map)
(Turkish "Turkish" . describe-specified-language-support)
(Greek "Greek" . describe-specified-language-support)
(Hebrew "Hebrew" . describe-specified-language-support)
(Windows-1255 "Windows-1255" . describe-specified-language-support)
(Japanese "Japanese" . describe-specified-language-support)
(Korean "Korean" . describe-specified-language-support)
(Lao "Lao" . describe-specified-language-support)
(TaiViet "TaiViet" . describe-specified-language-support)
(Thai "Thai" . describe-specified-language-support)
(Tibetan "Tibetan" . describe-specified-language-support)
(Vietnamese "Vietnamese" . describe-specified-language-support)
(IPA "IPA" . describe-specified-language-support)
(Arabic "Arabic" . describe-specified-language-support)
(Persian "Persian" . describe-specified-language-support)
(UTF-8 "UTF-8" . describe-specified-language-support)
(Khmer "Khmer" . describe-specified-language-support)
(Burmese "Burmese" . describe-specified-language-support)))
(describe-input-method menu-item "Describe Input Method..." describe-input-method :visible
(default-value 'enable-multibyte-characters)
:help "Keyboard layout for specific input method")
(describe-coding-system menu-item "Describe Coding System..." describe-coding-system :visible
(default-value 'enable-multibyte-characters))
(describe-coding-system-briefly menu-item "Describe Coding System (Briefly)" describe-current-coding-system-briefly :visible
(default-value 'enable-multibyte-characters))
(mule-diag menu-item "Show All of Mule Status" mule-diag :visible
(default-value 'enable-multibyte-characters)
:help "Display multilingual environment settings")
"Describe"))
(emacs-manual menu-item "Read the Emacs Manual" info-emacs-manual :help "Full documentation of Emacs features")
(more-manuals menu-item "More Manuals"
(keymap
(emacs-lisp-intro menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro :help "Read the Introduction to Emacs Lisp Programming")
(emacs-lisp-reference menu-item "Emacs Lisp Reference" menu-bar-read-lispref :help "Read the Emacs Lisp Reference manual")
(other-manuals menu-item "All Other Manuals (Info)" Info-directory :help "Read any of the installed manuals")
(lookup-subject-in-all-manuals menu-item "Lookup Subject in all Manuals..." info-apropos :help "Find description of a subject in all installed manuals")
(order-emacs-manuals menu-item "Ordering Manuals" view-order-manuals :help "How to order manuals from the Free Software Foundation")
(sep2 "--")
(man menu-item "Read Man Page..." manual-entry :help "Man-page docs for external commands and libraries")
"More Manuals"
(woman menu-item "Read Man Page (WoMan)..." woman :help "Man-page documentation Without Man")))
(find-emacs-packages menu-item "Search Built-in Packages" finder-by-keyword :help "Find built-in packages and features by keyword")
(external-packages menu-item "Finding Extra Packages" view-external-packages :help "How to get more Lisp packages for use in Emacs")
(sep2 "--")
(getting-new-versions menu-item "Getting New Versions" describe-distribution :help "How to get the latest version of Emacs")
(describe-copying menu-item "Copying Conditions" describe-copying :help "Show the Emacs license (GPL)")
(describe-no-warranty menu-item "(Non)Warranty" describe-no-warranty :help "Explain that Emacs has NO WARRANTY")
(sep4 "--")
(about-emacs menu-item "About Emacs" about-emacs :help "Display version number, copyright info, and basic help")
(about-gnu-project menu-item "About GNU" describe-gnu-project :help "About the GNU System, GNU Project, and GNU/Linux")
"Help")
(file "File" keymap
(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")
(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")
(dired menu-item "Open Directory..." dired :enable
(menu-bar-non-minibuffer-window-p)
:help "Read a directory, to operate on its files")
(insert-file menu-item "Insert File..." insert-file :enable
(menu-bar-non-minibuffer-window-p)
:help "Insert another file into current buffer")
(kill-buffer menu-item "Close" kill-this-buffer :enable
(kill-this-buffer-enabled-p)
:help "Discard (kill) current buffer")
(separator-save "--")
(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")
(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")
(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")
(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")
(separator-print "--")
(print-buffer menu-item "Print Buffer" print-buffer :enable
(menu-bar-menu-frame-live-and-visible-p)
:help "Print current buffer with page headings")
(print-region menu-item "Print Region" print-region :enable mark-active :help "Print region between mark and current position")
(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")
(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 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 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")
(separator-window "--")
(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")
(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")
(one-window menu-item "Remove Other Windows" delete-other-windows :enable
(not
(one-window-p t nil))
:help "Make selected window fill whole frame")
(separator-frame "--")
(make-frame menu-item "New Frame" make-frame-command :visible
(fboundp 'make-frame-command)
:help "Open a new 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")
(delete-this-frame menu-item "Delete Frame" delete-frame :visible
(fboundp 'delete-frame)
:enable
(delete-frame-enabled-p)
:help "Delete currently selected frame")
(separator-exit "--")
(exit-emacs menu-item "Quit" save-buffers-kill-terminal :help "Save unsaved buffers, then exit")
"File")
(edit "Edit" keymap
(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")
(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")
(copy menu-item "Copy" kill-ring-save :enable mark-active :help "Copy text in region between mark and current position" :keys "\\[kill-ring-save]")
(paste menu-item "Paste" yank :enable
(and
(or
(gui-call gui-selection-exists-p 'CLIPBOARD)
(if
(featurep 'ns)
(cdr yank-menu)
kill-ring))
(not buffer-read-only))
:help "Paste (yank) text most recently cut/copied")
(paste-from-menu menu-item "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")
(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")
(mark-whole-buffer menu-item "Select All" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy")
(separator-search "--")
(search menu-item "Search"
(keymap
(search-forward menu-item "String Forward..." nonincremental-search-forward :help "Search forward for a string")
(search-backward menu-item "String Backwards..." nonincremental-search-backward :help "Search backwards for a string")
(re-search-forward menu-item "Regexp Forward..." nonincremental-re-search-forward :help "Search forward for a regular expression")
(re-search-backward menu-item "Regexp Backwards..." nonincremental-re-search-backward :help "Search backwards for a regular expression")
(separator-repeat-search "--")
(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")
(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")
(separator-tag-search "--")
(tags-srch menu-item "Search Tagged Files..." tags-search :help "Search for a regexp in all tagged files")
(tags-continue menu-item "Continue Tags Search" tags-loop-continue :help "Continue last tags search operation")
(separator-tag-isearch "--")
(i-search menu-item "Incremental Search"
(keymap
(isearch-forward menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it")
(isearch-backward menu-item "Backward String..." isearch-backward :help "Search backwards for a string 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-regexp menu-item "Backward Regexp..." isearch-backward-regexp :help "Search backwards for a regular expression as you type it")
"Incremental Search"))
"Search"))
(replace menu-item "Replace"
(keymap
(query-replace menu-item "Replace String..." query-replace :enable
(not buffer-read-only)
:help "Replace string interactively, ask about each occurrence")
(query-replace-regexp menu-item "Replace Regexp..." query-replace-regexp :enable
(not buffer-read-only)
:help "Replace regular expression interactively, ask about each occurrence")
(separator-replace-tags "--")
(tags-repl menu-item "Replace in Tagged Files..." tags-query-replace :help "Interactively replace a regexp in all tagged files")
(tags-repl-continue menu-item "Continue Replace" tags-loop-continue :help "Continue last tags replace operation")
"Replace"))
(goto menu-item "Go To"
(keymap
(go-to-line menu-item "Goto Line..." goto-line :help "Read a line number and go to that line")
(go-to-pos menu-item "Goto Buffer Position..." goto-char :help "Read a number N and go to buffer position N")
(beg-of-buf menu-item "Goto Beginning of Buffer" beginning-of-buffer)
(end-of-buf menu-item "Goto End of Buffer" end-of-buffer)
(separator-tags "--")
(find-tag menu-item "Find Tag..." find-tag :help "Find definition of function or variable")
(find-tag-otherw menu-item "Find Tag in Other Window..." find-tag-other-window :help "Find function/variable definition in another window")
(next-tag menu-item "Find Next Tag" menu-bar-next-tag :enable
(and
(boundp 'tags-location-ring)
(not
(ring-empty-p tags-location-ring)))
:help "Find next function/variable matching last tag name")
(next-tag-otherw menu-item "Next Tag in Other Window" menu-bar-next-tag-other-window :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")
(apropos-tags menu-item "Tags Apropos..." tags-apropos :help "Find function/variables whose names match regexp")
(separator-tag-file "--")
(set-tags-name menu-item "Set Tags File Name..." visit-tags-table :help "Tell Tags commands which tag table file to use")
"Go To"))
(bookmark menu-item "Bookmarks" menu-bar-bookmark-map)
(separator-bookmark "--")
(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")
(props menu-item "Text Properties" facemenu-menu)
"Edit")
(options "Options" keymap
(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)))
(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)))
(highlight-separator "--")
(line-wrapping menu-item "Line Wrapping in This Buffer"
(keymap
(window-wrap menu-item "Wrap at 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 nil nil]
: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)))
(truncate menu-item "Truncate Long Lines"
#[nil "\203 \300\302!\210\303\304\305!\207"
[visual-line-mode word-wrap 0 nil toggle-truncate-lines 1]
2 nil nil]
: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)))
(word-wrap menu-item "Word Wrap (Visual Line mode)"
#[nil "\204 \300\301!\210\302\303!\207"
[visual-line-mode 1 message "Visual-Line mode enabled"]
2 nil nil]
: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))
"Line Wrapping"))
(case-fold-search menu-item "Ignore Case for Search" toggle-case-fold-search :help "Ignore letter-case in search commands" :button
(:toggle and
(default-boundp 'case-fold-search)
(default-value 'case-fold-search)))
(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)))
(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)))
(edit-options-separator "--")
(uniquify 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)))
(save-place 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)
(default-value 'save-place)))
(cursor-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)))
(debugger-separator "--")
(debug-on-error 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)))
(debug-on-quit 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)))
(mule-separator "--")
(mule menu-item "Multilingual Environment"
(keymap
(set-language-environment menu-item "Set Language Environment"
(keymap
(Default menu-item "Default" setup-specified-language-environment)
"Set Language Environment"
(Chinese "Chinese" . setup-chinese-environment-map)
(Cyrillic "Cyrillic" . setup-cyrillic-environment-map)
(Indian "Indian" . setup-indian-environment-map)
(Sinhala "Sinhala" . setup-specified-language-environment)
(English "English" . setup-specified-language-environment)
(ASCII "ASCII" . setup-specified-language-environment)
(Ethiopic "Ethiopic" . setup-specified-language-environment)
(European "European" . setup-european-environment-map)
(Turkish "Turkish" . setup-specified-language-environment)
(Greek "Greek" . setup-specified-language-environment)
(Hebrew "Hebrew" . setup-specified-language-environment)
(Windows-1255 "Windows-1255" . setup-specified-language-environment)
(Japanese "Japanese" . setup-specified-language-environment)
(Korean "Korean" . setup-specified-language-environment)
(Lao "Lao" . setup-specified-language-environment)
(TaiViet "TaiViet" . setup-specified-language-environment)
(Thai "Thai" . setup-specified-language-environment)
(Tibetan "Tibetan" . setup-specified-language-environment)
(Vietnamese "Vietnamese" . setup-specified-language-environment)
(IPA "IPA" . setup-specified-language-environment)
(Arabic "Arabic" . setup-specified-language-environment)
(Persian "Persian" . setup-specified-language-environment)
(UTF-8 "UTF-8" . setup-specified-language-environment)
(Khmer "Khmer" . setup-specified-language-environment)
(Burmese "Burmese" . setup-specified-language-environment)
(Cham "Cham" . setup-specified-language-environment)))
(separator-mule "--")
(toggle-input-method menu-item "Toggle Input Method" toggle-input-method)
(set-input-method menu-item "Select Input Method..." set-input-method)
(separator-input-method "--")
(set-various-coding-system menu-item "Set Coding Systems"
(keymap
(universal-coding-system-argument menu-item "For Next Command" universal-coding-system-argument :help "Coding system to be used by next command")
(separator-1 "--")
(set-buffer-file-coding-system menu-item "For Saving This Buffer" set-buffer-file-coding-system :help "How to encode this buffer when saved")
(revert-buffer-with-coding-system menu-item "For Reverting This File Now" revert-buffer-with-coding-system :enable buffer-file-name :help "Revisit this file immediately using specified coding system")
(set-file-name-coding-system menu-item "For File Name" set-file-name-coding-system :help "How to decode/encode file names")
(separator-2 "--")
(set-keyboard-coding-system menu-item "For Keyboard" set-keyboard-coding-system :help "How to decode keyboard input")
(set-terminal-coding-system menu-item "For Terminal" set-terminal-coding-system :enable
(null
(memq initial-window-system
'(x w32 ns)))
:help "How to encode terminal output")
(separator-3 "--")
(set-selection-coding-system menu-item "For X Selections/Clipboard" set-selection-coding-system :visible
(display-selections-p)
:help "How to en/decode data to/from selection/clipboard")
(set-next-selection-coding-system menu-item "For Next X Selection" set-next-selection-coding-system :visible
(display-selections-p)
:help "How to en/decode next selection/clipboard operation")
(set-buffer-process-coding-system menu-item "For I/O with Subprocess" set-buffer-process-coding-system :visible
(fboundp 'start-process)
:enable
(get-buffer-process
(current-buffer))
:help "How to en/decode I/O from/to subprocess connected to this buffer")
"Set Coding System")
:enable
(default-value 'enable-multibyte-characters))
(view-hello-file menu-item "Show Multilingual Sample Text" view-hello-file :enable
(file-readable-p
(expand-file-name "HELLO" data-directory))
:help "Demonstrate various character sets")
(separator-coding-system "--")
(describe-language-environment menu-item "Describe Language Environment"
(keymap
(Default menu-item "Default" describe-specified-language-support)
"Describe Language Environment"
(Chinese "Chinese" . describe-chinese-environment-map)
(Cyrillic "Cyrillic" . describe-cyrillic-environment-map)
(Indian "Indian" . describe-indian-environment-map)
(Sinhala "Sinhala" . describe-specified-language-support)
(English "English" . describe-specified-language-support)
(ASCII "ASCII" . describe-specified-language-support)
(Ethiopic "Ethiopic" . describe-specified-language-support)
(European "European" . describe-european-environment-map)
(Turkish "Turkish" . describe-specified-language-support)
(Greek "Greek" . describe-specified-language-support)
(Hebrew "Hebrew" . describe-specified-language-support)
(Windows-1255 "Windows-1255" . describe-specified-language-support)
(Japanese "Japanese" . describe-specified-language-support)
(Korean "Korean" . describe-specified-language-support)
(Lao "Lao" . describe-specified-language-support)
(TaiViet "TaiViet" . describe-specified-language-support)
(Thai "Thai" . describe-specified-language-support)
(Tibetan "Tibetan" . describe-specified-language-support)
(Vietnamese "Vietnamese" . describe-specified-language-support)
(IPA "IPA" . describe-specified-language-support)
(Arabic "Arabic" . describe-specified-language-support)
(Persian "Persian" . describe-specified-language-support)
(UTF-8 "UTF-8" . describe-specified-language-support)
(Khmer "Khmer" . describe-specified-language-support)
(Burmese "Burmese" . describe-specified-language-support))
:help "Show multilingual settings for a specific language")
(describe-input-method menu-item "Describe Input Method" describe-input-method)
(describe-coding-system menu-item "Describe Coding System..." describe-coding-system)
(list-character-sets menu-item "List Character Sets" list-character-sets :help "Show table of available character sets")
(mule-diag menu-item "Show All Multilingual Settings" mule-diag :help "Display multilingual environment settings")
"Mule (Multilingual Environment)"))
(showhide-separator "--")
(showhide menu-item "Show/Hide"
(keymap
(showhide-tool-bar menu-item "Tool-bar"
(keymap
(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))
(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-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-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-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)))
"Tool-bar")
:visible
(display-graphic-p))
(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)))
(showhide-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Turn tooltips on/off" :visible
(and
(display-graphic-p)
(fboundp 'x-show-tip))
:button
(:toggle . tooltip-mode))
(showhide-scroll-bar menu-item "Scroll-bar"
(keymap
(none menu-item "None" menu-bar-no-scroll-bar :help "Turn off scroll-bar" :visible
(display-graphic-p)
:button
(:radio eq
(cdr
(assq 'vertical-scroll-bars
(frame-parameters)))
nil))
(left menu-item "On the Left" menu-bar-left-scroll-bar :help "Scroll-bar on the left side" :visible
(display-graphic-p)
:button
(:radio eq
(cdr
(assq 'vertical-scroll-bars
(frame-parameters)))
'left))
(right menu-item "On the Right" menu-bar-right-scroll-bar :help "Scroll-bar on the right side" :visible
(display-graphic-p)
:button
(:radio eq
(cdr
(assq 'vertical-scroll-bars
(frame-parameters)))
'right))
(none-horizontal menu-item "None-horizontal" menu-bar-no-horizontal-scroll-bar :help "Turn off horizontal scroll bars" :visible
(horizontal-scroll-bars-available-p)
:button
(:radio not
(cdr
(assq 'horizontal-scroll-bars
(frame-parameters)))))
(horizontal menu-item "Horizontal" menu-bar-horizontal-scroll-bar :help "Horizontal scroll bar" :visible
(horizontal-scroll-bars-available-p)
:button
(:radio cdr
(assq 'horizontal-scroll-bars
(frame-parameters))))
"Scroll-bar")
:visible
(display-graphic-p))
(showhide-fringe menu-item "Fringe"
(keymap
(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))
(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)))
(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)))
(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))
(customize menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed customization of fringe" :visible
(display-graphic-p))
(indicate-empty-lines 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)))
(showhide-fringe-ind menu-item "Buffer Boundaries"
(keymap
(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))
(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))
(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))
(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))))
(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))))
(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))))))
"Buffer boundaries")
:visible
(display-graphic-p)
:help "Indicate buffer boundaries in fringe")
"Fringe")
:visible
(display-graphic-p))
(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))))
(datetime-separator "--")
(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)))
(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)))
(linecolumn-separator "--")
(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)))
(line-number-mode menu-item "Line Numbers" 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)))
(column-number-mode menu-item "Column Numbers" 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)))
"Show/Hide"))
(menu-system-font 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)))
(menu-set-font menu-item "Set Default Font..." menu-set-font :visible
(display-multi-font-p)
:help "Select a default font")
(custom-separator "--")
(save menu-item "Save Options" menu-bar-options-save :help "Save options set from the menu above")
(package menu-item "Manage Emacs Packages" package-list-packages :help "Install or uninstall additional Emacs packages")
(customize menu-item "Customize Emacs"
(keymap
(customize-themes menu-item "Custom Themes" customize-themes :help "Choose a pre-defined customization theme")
(customize menu-item "Top-level Customization Group" customize :help "The master group called `Emacs'")
(customize-browse menu-item "Browse Customization Groups" customize-browse :help "Browse all customization groups")
(separator-3 "--")
(customize-saved menu-item "Saved Options" customize-saved :help "Customize previously saved options")
(customize-changed-options menu-item "New Options..." customize-changed-options :help "Options added or changed in recent Emacs versions")
(separator-2 "--")
(customize-option menu-item "Specific Option..." customize-option :help "Customize value of specific option")
(customize-face menu-item "Specific Face..." customize-face :help "Customize attributes of specific face")
(customize-group menu-item "Specific Group..." customize-group :help "Customize settings of specific group")
(separator-1 "--")
(customize-apropos menu-item "All Settings Matching..." customize-apropos :help "Browse customizable settings 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-faces menu-item "Faces Matching..." customize-apropos-faces :help "Browse faces matching a regexp or word list")
"Customize"))
"Options")
(buffer "Buffers" keymap "Buffers"
[("*scratch* " lambda nil
(interactive)
(funcall menu-bar-select-buffer-function #))
("*Messages* *%" lambda nil
(interactive)
(funcall menu-bar-select-buffer-function #))
("loaddefs.el %" lambda nil
(interactive)
(funcall menu-bar-select-buffer-function #>))
("tramp-loaddefs.el %" lambda nil
(interactive)
(funcall menu-bar-select-buffer-function #))]
(command-separator "--")
(next-buffer menu-item "Next Buffer" next-buffer :help "Switch to the \"next\" buffer in a cyclic order")
(previous-buffer menu-item "Previous Buffer" previous-buffer :help "Switch to the \"previous\" buffer in a cyclic order")
(select-named-buffer menu-item "Select Named Buffer..." switch-to-buffer :help "Prompt for a buffer name, and select that buffer in the current window")
(list-all-buffers menu-item "List All Buffers" list-buffers :help "Pop up a window listing all Emacs buffers"))
(tools "Tools" keymap
(grep menu-item "Search Files (Grep)..." grep :help "Search files for strings or regexps (with Grep)")
(compile menu-item "Compile..." compile :help "Invoke compiler or Make, view compilation errors")
(shell menu-item "Shell Command..." shell-command :help "Invoke a shell command and catch its output")
(shell-on-region menu-item "Shell Command on Region..." shell-command-on-region :enable mark-active :help "Pass marked region to a shell command")
(gdb menu-item "Debugger (GDB)..." gdb :help "Debug a program from within Emacs with GDB")
(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))
(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))
(separator-prog "--")
(spell menu-item "Spell Checking" ispell-menu-map)
(separator-spell "--")
(compare menu-item "Compare (Ediff)" menu-bar-ediff-menu)
(ediff-merge menu-item "Merge" menu-bar-ediff-merge-menu)
(epatch menu-item "Apply Patch" menu-bar-epatch-menu)
(separator-compare "--")
(vc menu-item "Version Control" vc-menu-map :filter vc-menu-map-filter)
(separator-vc "--")
(gnus menu-item "Read Net News" gnus :help "Read network news groups")
(rmail menu-item "Read Mail" menu-bar-read-mail :visible
(and read-mail-command
(not
(eq read-mail-command 'ignore)))
:help "Read your mail")
(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")
(directory-search "Directory Search" keymap "Directory Search"
(Server menu-item "Server"
(keymap "Server"
(--- menu-item "---" nil :enable 'nil)
(Bookmark\ Current\ Server menu-item "Bookmark Current Server" eudc-bookmark-current-server :help "Add current server to the EUDC `servers' hotlist")
(Edit\ Server\ List menu-item "Edit Server List" eudc-edit-hotlist :help "Edit the hotlist of directory servers in a specialized buffer")
(New\ Server menu-item "New Server" eudc-set-server :help "Set the directory server to SERVER using PROTOCOL")))
(--- menu-item "---" nil :enable 'nil)
(Query\ with\ Form menu-item "Query with Form" eudc-query-form :help "Display a form to query the directory server")
(Expand\ Inline\ Query menu-item "Expand Inline Query" eudc-expand-inline :help "Query the directory server, and expand the query string before point")
(Insert\ Record\ into\ BBDB menu-item "Insert Record into BBDB" eudc-insert-record-at-point-into-bbdb :enable
(and
(or
(featurep 'bbdb)
(prog1
(locate-library "bbdb")
(message "")))
(overlays-at
(point))
(overlay-get
(car
(overlays-at
(point)))
'eudc-record)))
(Insert\ All\ Records\ into\ BBDB menu-item "Insert All Records into BBDB" eudc-batch-export-records-to-bbdb :enable
(and
(derived-mode-p 'eudc-mode)
(or
(featurep 'bbdb)
(prog1
(locate-library "bbdb")
(message "")))))
(----6 menu-item "---" nil :enable 'nil)
(Get\ Email menu-item "Get Email" eudc-get-email :help "Get the email field of NAME from the directory server")
(Get\ Phone menu-item "Get Phone" eudc-get-phone :help "Get the phone field of name from the directory server")
(List\ Valid\ Attribute\ Names menu-item "List Valid Attribute Names" eudc-get-attribute-list :help "Return a list of valid attributes for the current server")
(----10 menu-item "---" nil :enable 'nil)
(Customize menu-item "Customize"
(keymap "Customize"
(Eudc\.\.\. menu-item "Eudc..." menu-function-44 :key-sequence nil)
(nil-7 menu-item "--")
(Eudc\ Ph menu-item "Eudc Ph" nil :filter
#[257 "\302\301!\300\"\207"
["Eudc Ph"
(lambda
(&rest junk)
(let*
((menu
(custom-menu-create 'eudc-ph)))
(if
(consp menu)
(cdr menu)
menu)))
easy-menu-filter-return]
4 "\n\n(fn MENU)"])
(Eudc\ Ldap menu-item "Eudc Ldap" nil :filter
#[257 "\302\301!\300\"\207"
["Eudc Ldap"
(lambda
(&rest junk)
(let*
((menu
(custom-menu-create 'eudc-ldap)))
(if
(consp menu)
(cdr menu)
menu)))
easy-menu-filter-return]
4 "\n\n(fn MENU)"])
(Eudc\ Bbdb menu-item "Eudc Bbdb" nil :filter
#[257 "\302\301!\300\"\207"
["Eudc Bbdb"
(lambda
(&rest junk)
(let*
((menu
(custom-menu-create 'eudc-bbdb)))
(if
(consp menu)
(cdr menu)
menu)))
easy-menu-filter-return]
4 "\n\n(fn MENU)"])
(Eudc\ Server\.\.\. menu-item "Eudc Server..." menu-function-48 :key-sequence nil)
(Eudc\ Protocol\.\.\. menu-item "Eudc Protocol..." menu-function-49 :key-sequence nil)
(Eudc\ Strict\ Return\ Matches\.\.\. menu-item "Eudc Strict Return Matches..." menu-function-50 :key-sequence nil :button
(:toggle . eudc-strict-return-matches))
(Eudc\ Default\ Return\ Attributes\.\.\. menu-item "Eudc Default Return Attributes..." menu-function-51 :key-sequence nil)
(Eudc\ Multiple\ Match\ Handling\ Method\.\.\. menu-item "Eudc Multiple Match Handling Method..." menu-function-52 :key-sequence nil)
(Eudc\ Duplicate\ Attribute\ Handling\ Method\.\.\. menu-item "Eudc Duplicate Attribute Handling Method..." menu-function-53 :key-sequence nil)
(Format\ of\ Inline\ Expansion\ Queries\.\.\. menu-item "Format of Inline Expansion Queries..." menu-function-54 :key-sequence nil)
(Eudc\ Expansion\ Overwrites\ Query\.\.\. menu-item "Eudc Expansion Overwrites Query..." menu-function-55 :key-sequence nil :button
(:toggle . eudc-expansion-overwrites-query))
(Eudc\ Inline\ Expansion\ Format\.\.\. menu-item "Eudc Inline Expansion Format..." menu-function-56 :key-sequence nil)
(Eudc\ Inline\ Expansion\ Servers\.\.\. menu-item "Eudc Inline Expansion Servers..." menu-function-57 :key-sequence nil)
(Max\ Number\ of\ Servers\ to\ Query\.\.\. menu-item "Max Number of Servers to Query..." menu-function-58 :key-sequence nil)
(Attributes\ in\ Query\ Forms\.\.\. menu-item "Attributes in Query Forms..." menu-function-59 :key-sequence nil)
(User-defined\ Names\ of\ Directory\ Attributes\.\.\. menu-item "User-defined Names of Directory Attributes..." menu-function-60 :key-sequence nil)
(Eudc\ Use\ Raw\ Directory\ Names\.\.\. menu-item "Eudc Use Raw Directory Names..." menu-function-61 :key-sequence nil :button
(:toggle . eudc-use-raw-directory-names))
(Attribute\ Decoding\ Functions\.\.\. menu-item "Attribute Decoding Functions..." menu-function-62 :key-sequence nil)
(External\ Viewer\ Programs\.\.\. menu-item "External Viewer Programs..." menu-function-63 :key-sequence nil)
(Eudc\ Options\ File\.\.\. menu-item "Eudc Options File..." menu-function-64 :key-sequence nil)
(Eudc\ Mode\ Hook\.\.\. menu-item "Eudc Mode Hook..." menu-function-65 :key-sequence nil))))
(browse-web menu-item "Browse the Web..." browse-web)
(separator-net "--")
(calendar menu-item "Calendar" calendar :help "Invoke the Emacs built-in calendar")
(calc menu-item "Programmable Calculator" calc :help "Invoke the Emacs built-in full scientific calculator")
(simple-calculator menu-item "Simple Calculator" calculator :help "Invoke the Emacs built-in quick calculator")
(separator-encryption-decryption "--")
(encryption-decryption menu-item "Encryption/Decryption"
(keymap
(decrypt-file menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt a file")
(encrypt-file menu-item "Encrypt File..." epa-encrypt-file :help "Encrypt a file")
(verify-file menu-item "Verify File..." epa-verify-file :help "Verify digital signature of a file")
(sign-file menu-item "Sign File..." epa-sign-file :help "Create digital signature of a file")
(separator-file "--")
(decrypt-region menu-item "Decrypt Region" epa-decrypt-region :help "Decrypt the current region")
(encrypt-region menu-item "Encrypt Region" epa-encrypt-region :help "Encrypt the current region")
(verify-region menu-item "Verify Region" epa-verify-region :help "Verify digital signature of the current region")
(sign-region menu-item "Sign Region" epa-sign-region :help "Create digital signature of the current region")
(separator-keys "--")
(list-keys menu-item "List Keys" epa-list-keys :help "Browse your public keyring")
(import-keys menu-item "Import Keys from File..." epa-import-keys :help "Import public keys from a file")
(import-keys-region menu-item "Import Keys from Region" epa-import-keys-region :help "Import public keys from the current region")
(export-keys menu-item "Export Keys" epa-export-keys :help "Export public keys to a file")
(insert-keys menu-item "Insert Keys" epa-insert-keys :help "Insert public keys after the current point")
"Encryption/Decryption"))
(separator-games "--")
(games menu-item "Games"
(keymap
(5x5 menu-item "5x5" 5x5 :help "Fill in all the squares on a 5x5 board")
(adventure menu-item "Adventure" dunnet :help "Dunnet, a text Adventure game for Emacs")
(black-box menu-item "Blackbox" blackbox :help "Find balls in a black box by shooting rays")
(bubbles menu-item "Bubbles" bubbles :help "Remove all bubbles using the fewest moves")
(gomoku menu-item "Gomoku" gomoku :help "Mark 5 contiguous squares (like tic-tac-toe)")
(hanoi menu-item "Towers of Hanoi" hanoi :help "Watch Towers-of-Hanoi puzzle solved by Emacs")
(life menu-item "Life" life :help "Watch how John Conway's cellular automaton evolves")
(mult menu-item "Multiplication Puzzle" mpuz :help "Exercise brain with multiplication")
(pong menu-item "Pong" pong :help "Bounce the ball to your opponent")
(snake menu-item "Snake" snake :help "Move snake around avoiding collisions")
(solitaire menu-item "Solitaire" solitaire :help "Get rid of all the stones")
(tetris menu-item "Tetris" tetris :help "Falling blocks game")
(zone menu-item "Zone Out" zone :help "Play tricks with Emacs display when Emacs is idle")
"Games"))
"Tools"
(nil-7 menu-item "--")
(Table menu-item "Table"
(keymap "Table"
(Insert menu-item "Insert"
(keymap "Insert"
(a\ Table\.\.\. menu-item "a Table..." table-insert :enable
(and
(not buffer-read-only)
(not
(table--probe-cell)))
:help "Insert a text based table at point")
(Row menu-item "Row" table-insert-row :enable
(table--row-column-insertion-point-p)
:help "Insert row(s) of cells in table")
(Column menu-item "Column" table-insert-column :enable
(table--row-column-insertion-point-p 'column)
:help "Insert column(s) of cells in table")))
(nil menu-item "----")
(Recognize menu-item "Recognize"
(keymap "Recognize"
(in\ Buffer menu-item "in Buffer" table-recognize :help "Recognize all tables in the current buffer")
(in\ Region menu-item "in Region" table-recognize-region :enable
(and mark-active
(not
(eq
(mark t)
(point))))
:help "Recognize all tables in the current region")
(a\ Table menu-item "a Table" table-recognize-table :enable
(table--probe-cell)
:help "Recognize a table at point")
(a\ Cell menu-item "a Cell" table-recognize-cell :enable
(let
((cell
(table--probe-cell)))
(and cell
(null
(table--at-cell-p
(car cell)))))
:help "Recognize a cell at point")))
(Unrecognize menu-item "Unrecognize"
(keymap "Unrecognize"
(in\ Buffer menu-item "in Buffer" table-unrecognize :help "Unrecognize all tables in the current buffer")
(in\ Region menu-item "in Region" table-unrecognize-region :enable
(and mark-active
(not
(eq
(mark t)
(point))))
:help "Unrecognize all tables in the current region")
(a\ Table menu-item "a Table" table-unrecognize-table :enable
(table--probe-cell)
:help "Unrecognize the current table")
(a\ Cell menu-item "a Cell" table-unrecognize-cell :enable
(let
((cell
(table--probe-cell)))
(and cell
(table--at-cell-p
(car cell))))
:help "Unrecognize the current cell")))
(nil-4 menu-item "----")
(Capture\ Region menu-item "Capture Region" table-capture :enable
(and
(not buffer-read-only)
mark-active
(not
(eq
(mark t)
(point)))
(not
(table--probe-cell)))
:help "Capture text in the current region as a table")
(Release menu-item "Release" table-release :enable
(table--editable-cell-p)
:help "Release the current table as plain text")))
(Follow menu-item "Follow"
(["Scroll Up" follow-scroll-up follow-mode]
["Scroll Down" follow-scroll-down follow-mode]
"--"
["Delete Other Windows and Split" follow-delete-other-windows-and-split follow-mode]
"--"
["Switch To Buffer" follow-switch-to-buffer follow-mode]
["Switch To Buffer (all windows)" follow-switch-to-buffer-all follow-mode]
"--"
["First Window" follow-first-window follow-mode]
["Last Window" follow-last-window follow-mode]
["Next Window" follow-next-window follow-mode]
["Previous Window" follow-previous-window follow-mode]
"--"
["Recenter" follow-recenter follow-mode]
"--"
["Follow mode" follow-mode :style toggle :selected follow-mode])
:filter
#[257 "\302\301!\300\"\207"
["Follow" follow-menu-filter easy-menu-filter-return]
4 "\n\n(fn MENU)"]))
(mouse-1 . tmm-menubar-mouse))
(f4 . kmacro-end-or-call-macro)
(f3 . kmacro-start-macro-or-insert-counter)
(C-M-end . end-of-defun)
(C-M-home . beginning-of-defun)
(C-M-down . down-list)
(C-M-up . backward-up-list)
(C-M-right . forward-sexp)
(C-M-left . backward-sexp)
(S-delete . kill-region)
(C-backspace . backward-kill-word)
(C-delete . kill-word)
(C-left . left-word)
(C-right . right-word)
(M-left . left-word)
(M-right . right-word)
(mouse-movement . ignore)
(deletechar . delete-forward-char)
(deleteline . kill-line)
(insertline . open-line)
(open . find-file)
(again . repeat-complex-command)
(redo . repeat-complex-command)
(undo . undo)
(S-insertchar . yank)
(C-insertchar . kill-ring-save)
(insertchar . overwrite-mode)
(S-insert . yank)
(C-insert . kill-ring-save)
(insert . overwrite-mode)
(execute . execute-extended-command)
(M-begin . beginning-of-buffer-other-window)
(begin . beginning-of-buffer)
(M-end . end-of-buffer-other-window)
(C-end . end-of-buffer)
(end . move-end-of-line)
(M-prior . scroll-other-window-down)
(M-next . scroll-other-window)
(C-next . scroll-left)
(C-prior . scroll-right)
(C-down . forward-paragraph)
(C-up . backward-paragraph)
(next . scroll-up-command)
(prior . scroll-down-command)
(down . next-line)
(right . right-char)
(up . previous-line)
(left . left-char)
(M-home . beginning-of-buffer-other-window)
(C-home . beginning-of-buffer)
(home . move-beginning-of-line)
(C-S-backspace . kill-whole-line)
(find . search-forward)
(menu . execute-extended-command)
(67108896 . set-mark-command)
(67108909 . negative-argument)
(67108921 . digit-argument)
(67108920 . digit-argument)
(67108919 . digit-argument)
(67108918 . digit-argument)
(67108917 . digit-argument)
(67108916 . digit-argument)
(67108915 . digit-argument)
(67108914 . digit-argument)
(67108913 . digit-argument)
(67108912 . digit-argument)
(XF86Back . previous-buffer)
(XF86Forward . next-buffer)
(67108911 . undo)
(make-frame-visible . ignore-event)
(iconify-frame . ignore-event)
(delete-frame . handle-delete-frame)
(select-window . handle-select-window)
(switch-frame . handle-switch-frame))