menu-bar-tools-menu
menu-bar-tools-menu is a variable defined in `
menu-bar.el'.
Its value is shown
below.
Documentation:
Not documented as a variable.
Value:
(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)"]))