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