bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt

[Thierry Volpiatto]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> I still not understand the purpose of `tmm-add-prompt', what does it
>> want to complete here? A list of buffers? Why?
>
> It expects the completion table to contain all the menu entries
> previously build by tmm-prompt.
That make sense, my completion map contain here (when `tmm-add-prompt'
is called) a list of buffers.

>> Your patch works with `anything-completion-mode' disabled, but as soon i
>> turn it on, `tmm-add-prompt' is called and same error occur:
>
>> --8<---------------cut here---------------start------------->8---
>> Debugger entered--Lisp error: (wrong-type-argument listp closure)
>>   car(closure)
>>   mapcar(car (closure (t) (&rest args)
>> [...]
>>   tmm-add-prompt()
>> --8<---------------cut here---------------end--------------->8---
>
> Please show the complete stack trace.
Debugger entered--Lisp error: (wrong-type-argument listp closure)
  car(closure)
  mapcar(car (closure (t) (&rest args) (apply (quote 
completion-table-with-predicate) (quote internal-complete-buffer) (quote #[257 
"\211:\203\n.\211@\202.\211\300\232?\207" ["anything.el"] 3 "\n\n(fn NAME)"]) 
(quote nil) args)))
  tmm-add-prompt()
  #[nil "\301\302\"\210\303 \207" [setup-hook remove-hook 
minibuffer-setup-hook tmm-add-prompt] 3]()
  read-string("Menu bar (up/down to change, PgUp to menu): " nil nil "")
  anything-read-pattern-maybe("Menu bar (up/down to change, PgUp to menu): " 
nil nil noresume nil "")
  byte-code("\306\211\211\307\206      .       ...\310\311.\".
\312\313!B..\314.\315\313\306\"\210\316\216\317...#\210\320    
!\210\321\322!\210\323\216\324. ..!..\".#&.\210,
?\205T.\325.$!\321\326\327\330\331\"P!\210-\207" [any-buffer anything-buffer 
case-fold-search anything-quit anything-in-persistent-action 
anything-source-name nil t mapcar #[(v) "\211JB\207" [v] 2] default-value 
post-command-hook (t) set-default ((byte-code ".\306\211.     :\203. 
@\211.\211A.@\211.\nL\210       
A\211.\202.+\f@.\307\305\fA\"\210\310\311!\207" [--orig-vars --cl-var-- value 
var --post-command-hook-pair post-command-hook nil set-default anything-log 
"restore variables"] 4)) anything-initialize anything-display-buffer 
anything-log "show prompt" ((anything-cleanup)) anything-read-pattern-maybe 
anything-execute-selection-action-1 "[End session] " make-string 41 45 
anything-restored-variables --post-command-hook-pair --orig-vars any-resume 
any-input any-sources any-prompt any-preselect any-keymap any-default 
any-history] 7)
  anything-internal((((name . "menu-bar-open History") (candidates lambda nil 
(let ((all (anything-comp-read-get-candidates history nil nil nil))) 
(anything-fast-remove-dups (if (and default (not ...)) (delq nil (cons default 
...)) all) :test (quote equal)))) (filtered-candidate-transformer lambda 
(candidates sources) (loop for i in candidates do (set-text-properties 0 
(length i) nil i) collect i)) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn)) ((name . "menu-bar-open") (candidates lambda 
nil (let ((cands (anything-comp-read-get-candidates collection test sort 
alistp))) (unless (or must-match (string= anything-pattern "")) (setq cands 
(append (list anything-pattern) cands))) (if (and default (not (string= default 
""))) (delq nil (cons default (delete default cands))) cands))) 
(filtered-candidate-transformer #[(candidates source) ".\305\211.\305.  
:\203/. @\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn) (volatile))) nil "Menu bar (up/down to 
change, PgUp to menu): " noresume nil "*ac-mode-menu-bar-open*" nil "" history)
  apply(anything-internal ((((name . "menu-bar-open History") (candidates 
lambda nil (let ((all (anything-comp-read-get-candidates history nil nil nil))) 
(anything-fast-remove-dups (if (and default ...) (delq nil ...) all) :test 
(quote equal)))) (filtered-candidate-transformer lambda (candidates sources) 
(loop for i in candidates do (set-text-properties 0 (length i) nil i) collect 
i)) (persistent-action) (persistent-help . "DoNothing") (action . action-fn)) 
((name . "menu-bar-open") (candidates lambda nil (let ((cands 
(anything-comp-read-get-candidates collection test sort alistp))) (unless (or 
must-match (string= anything-pattern "")) (setq cands (append ... cands))) (if 
(and default (not ...)) (delq nil (cons default ...)) cands))) 
(filtered-candidate-transformer #[(candidates source) ".\305\211.\305.        
:\203/. @\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn) (volatile))) nil "Menu bar (up/down to 
change, PgUp to menu): " noresume nil "*ac-mode-menu-bar-open*" nil "" history))
  anything((((name . "menu-bar-open History") (candidates lambda nil (let ((all 
(anything-comp-read-get-candidates history nil nil nil))) 
(anything-fast-remove-dups (if (and default (not ...)) (delq nil (cons default 
...)) all) :test (quote equal)))) (filtered-candidate-transformer lambda 
(candidates sources) (loop for i in candidates do (set-text-properties 0 
(length i) nil i) collect i)) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn)) ((name . "menu-bar-open") (candidates lambda 
nil (let ((cands (anything-comp-read-get-candidates collection test sort 
alistp))) (unless (or must-match (string= anything-pattern "")) (setq cands 
(append (list anything-pattern) cands))) (if (and default (not (string= default 
""))) (delq nil (cons default (delete default cands))) cands))) 
(filtered-candidate-transformer #[(candidates source) ".\305\211.\305.   
:\203/. @\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn) (volatile))) nil "Menu bar (up/down to 
change, PgUp to menu): " noresume nil "*ac-mode-menu-bar-open*" nil "" history)
  apply(anything ((((name . "menu-bar-open History") (candidates lambda nil 
(let ((all (anything-comp-read-get-candidates history nil nil nil))) 
(anything-fast-remove-dups (if (and default ...) (delq nil ...) all) :test 
(quote equal)))) (filtered-candidate-transformer lambda (candidates sources) 
(loop for i in candidates do (set-text-properties 0 (length i) nil i) collect 
i)) (persistent-action) (persistent-help . "DoNothing") (action . action-fn)) 
((name . "menu-bar-open") (candidates lambda nil (let ((cands 
(anything-comp-read-get-candidates collection test sort alistp))) (unless (or 
must-match (string= anything-pattern "")) (setq cands (append ... cands))) (if 
(and default (not ...)) (delq nil (cons default ...)) cands))) 
(filtered-candidate-transformer #[(candidates source) ".\305\211.\305. 
:\203/. @\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn) (volatile))) nil "Menu bar (up/down to 
change, PgUp to menu): " noresume nil "*ac-mode-menu-bar-open*" nil "" history))
  #[nil "\301\302\303\304\"\"\207" [anything-argument-keys apply anything 
mapcar #[(key) "\302        \"\207" [plist key plist-get] 3]] 5]()
  anything-let-internal(nil #[nil "\301\302\303\304\"\"\207" 
[anything-argument-keys apply anything mapcar #[(key) "\302      \"\207" 
[plist key plist-get] 3]] 5])
  anything(:sources (((name . "menu-bar-open History") (candidates lambda nil 
(let ((all (anything-comp-read-get-candidates history nil nil nil))) 
(anything-fast-remove-dups (if (and default (not ...)) (delq nil (cons default 
...)) all) :test (quote equal)))) (filtered-candidate-transformer lambda 
(candidates sources) (loop for i in candidates do (set-text-properties 0 
(length i) nil i) collect i)) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn)) ((name . "menu-bar-open") (candidates lambda 
nil (let ((cands (anything-comp-read-get-candidates collection test sort 
alistp))) (unless (or must-match (string= anything-pattern "")) (setq cands 
(append (list anything-pattern) cands))) (if (and default (not (string= default 
""))) (delq nil (cons default (delete default cands))) cands))) 
(filtered-candidate-transformer #[(candidates source) ".\305\211.\305.  
:\203/. @\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . 
"DoNothing") (action . action-fn) (volatile))) :input nil :default "" 
:preselect nil :prompt "Menu bar (up/down to change, PgUp to menu): " :resume 
noresume :history history :buffer "*ac-mode-menu-bar-open*")
  anything-comp-read("Menu bar (up/down to change, PgUp to menu): " 
(("a==>Anything" Anything keymap "Anything" (All\ anything\ commands menu-item 
"All anything commands" anything-execute-anything-command) (Find\ any\ 
Files/Buffers menu-item "Find any Files/Buffers" anything-for-files) (Anything\ 
Everywhere menu-item "Anything Everywhere" ac-mode) (nil menu-item "----") 
(Files: menu-item "Files:" (keymap "Files:" (Find\ files menu-item "Find files" 
anything-find-files) (Recent\ Files menu-item "Recent Files" anything-recentf) 
(Locate menu-item "Locate" anything-locate) (Bookmarks menu-item "Bookmarks" 
anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" (keymap "Buffers:" 
(Find\ buffers menu-item "Find buffers" anything-buffers-list))) (Commands: 
menu-item "Commands:" (keymap "Commands:" (Emacs\ Commands menu-item "Emacs 
Commands" anything-M-x) (Externals\ Commands menu-item "Externals Commands" 
anything-c-run-external-command))) (Help: menu-item "Help:" (keymap "Help:" 
(Anything\ Apropos menu-item "Anything Apropos" anything-c-apropos))) (Info: 
menu-item "Info:" (keymap "Info:" (Info\ at\ point menu-item "Info at point" 
anything-info-at-point) (Emacs\ Manual\ index menu-item "Emacs Manual index" 
anything-info-emacs) (Gnus\ Manual\ index menu-item "Gnus Manual index" 
anything-info-gnus))) (Org: menu-item "Org:" (keymap "Org:" (Org\ keywords 
menu-item "Org keywords" anything-org-keywords) (Org\ headlines menu-item "Org 
headlines" anything-org-headlines))) (Tools: menu-item "Tools:" (keymap 
"Tools:" (Occur menu-item "Occur" anything-occur) (Grep menu-item "Grep" 
anything-do-grep) (Etags menu-item "Etags" anything-c-etags-select) (Lisp\ 
complete\ at\ point menu-item "Lisp complete at point" 
anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse Kill 
ring" anything-show-kill-ring) (Browse\ register menu-item "Browse register" 
anything-register) (Browse\ code menu-item "Browse code" anything-browse-code) 
(Mark\ Ring menu-item "Mark Ring" anything-all-mark-rings) (Regexp\ handler 
menu-item "Regexp handler" anything-regexp) (Colors\ &\ Faces menu-item "Colors 
& Faces" anything-colors) (Show\ xfonts menu-item "Show xfonts" 
anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Symbols" anything-ucs) 
(Imenu menu-item "Imenu" anything-imenu) (Google\ Suggest menu-item "Google 
Suggest" anything-google-suggest) (Eval\ expression menu-item "Eval expression" 
anything-eval-expression-with-eldoc) (Calcul\ expression menu-item "Calcul 
expression" anything-calcul-expression) (Man\ pages menu-item "Man pages" 
anything-man-woman) (Top\ externals\ process menu-item "Top externals process" 
anything-top) (Emacs\ internals\ process menu-item "Emacs internals process" 
anything-list-emacs-process))) (nil-11 menu-item "----") (Prefered\ Options 
menu-item "Prefered Options" anything-configuration)) ("f==>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 
revert-buffer-function revert-buffer-insert-file-contents-function (and 
buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime 
...))))) :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 (quote 
make-frame-command)) :help "Open a new frame") (make-frame-on-display menu-item 
"New Frame on Display..." make-frame-on-display :visible (fboundp (quote 
make-frame-on-display)) :help "Open a new frame on another display") 
(delete-this-frame menu-item "Delete Frame" delete-frame :visible (fboundp 
(quote 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") 
("e==>Edit" edit keymap (undo menu-item "Undo" undo :enable (and (not 
buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote 
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 (and 
(fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quote 
CLIPBOARD))) (if (featurep (quote 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 (quote 
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 (quote 
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") ("o==>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 (quote transient-mark-mode)) (default-value (quote 
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 (quote 
show-paren-mode)) (default-value (quote show-paren-mode)))) 
(highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This 
Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" (lambda nil 
(interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) 
(if truncate-lines (toggle-truncate-lines -1))) :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" 
(lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq 
word-wrap nil) (toggle-truncate-lines 1)) :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)" (lambda nil (interactive) (unless visual-line-mode 
(visual-line-mode 1)) (message "Visual-Line mode enabled")) :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")) (auto-fill-mode 
menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help 
"Automatically fill text while typing (Auto Fill mode)" :button (:toggle if 
(listp text-mode-hook) (member (quote turn-on-auto-fill) text-mode-hook) (eq 
(quote turn-on-auto-fill) text-mode-hook))) (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 (quote case-fold-search)) 
(default-value (quote case-fold-search)))) (cua-emulation-mode menu-item "Shift 
movement mark region (CUA)" cua-mode :visible (and (boundp (quote 
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 (quote 
cua-mode)) (default-value (quote cua-mode)))) (cua-mode menu-item "Use CUA Keys 
(Cut/Paste with C-x/C-c/C-v)" cua-mode :visible (or (not (boundp (quote 
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 (quote cua-mode)) 
(default-value (quote 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 (quote uniquify-buffer-name-style)) (default-value (quote 
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 (quote 
save-place)) (default-value (quote 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 
(quote blink-cursor-mode)) (default-value (quote 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 (quote debug-on-error)) (default-value 
(quote 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 (quote debug-on-quit)) (default-value (quote 
debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual 
Environment" (keymap "Mule (Multilingual Environment)" 
(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) (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 "Set Coding System" (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 ...) :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 ...) :enable 
(get-buffer-process ...) :help "How to en/decode I/O from/to subprocess 
connected to this buffer")) :enable (default-value (quote 
enable-multibyte-characters))) (view-hello-file menu-item "Show Multi-lingual 
Text" view-hello-file :enable (file-readable-p (expand-file-name "HELLO" 
data-directory)) :help "Display file which says HELLO in many languages") 
(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) (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 :help "Keyboard layout for a specific 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 of Mule Status" mule-diag :help "Display multilingual 
environment settings"))) (showhide-separator "--") (showhide menu-item 
"Show/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" 
toggle-tool-bar-mode-from-frame :help "Turn tool-bar on/off" :visible 
(display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter 
(menu-bar-frame-for-menubar) (quote tool-bar-lines)))) (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) 
(quote menu-bar-lines)))) (showhide-tooltip-mode menu-item "Tooltips" 
tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) 
(fboundp (quote 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 ... 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 ... ...)) (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 ... ...)) "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 ...)) (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 ...)) 
(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 ... ...)) 
(showhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ... 
... "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 (quote 
speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p 
(symbol-value ...)))) (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 
(quote display-time-mode)) (default-value (quote 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 (quote display-battery-mode)) (default-value (quote 
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 (quote 
size-indication-mode)) (default-value (quote 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 
(quote line-number-mode)) (default-value (quote 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 (quote column-number-mode)) (default-value (quote 
column-number-mode)))) "Show/Hide")) (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") ("b==>Buffers" buffer keymap "Select Buffer" 
[("anything-config.el    --  ...ything-config-qp/" (nil) lambda nil 
(interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything-config.el>)) ("anything.el    --  ...ything-config-qp/" (nil) lambda 
nil (interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything.el>)) ("*Completions*  *%" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Completions*>)) ("*scratch*    --  
...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *scratch*>)) ("*Org Agenda*  *%" (nil) 
lambda nil (interactive) (funcall menu-bar-select-buffer-function #<buffer *Org 
Agenda*>)) ("*Messages*  *" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Messages*>))] (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")) ("E==>ElScreen" elscreen 
keymap "Select Screen" (48 menu-item "0  *scratch*" elscreen-jump :keys "C-z 
0") (49 menu-item "1  *Org Agenda*" elscreen-jump :keys "C-z 1") (50 menu-item 
"2+ anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-item "3- 
anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-separator 
menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create 
:help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone 
Screen" elscreen-clone :help "Create a new screen with the window-configuration 
of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill :help 
"Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen 
and Buffers" elscreen-kill-screen-and-buffers :help "Kill current screen and 
buffers") (elscreen-kill-others menu-item "Kill Other Screens" 
elscreen-kill-others :help "Kill other screens") (elscreen-next menu-item "Next 
Screen" elscreen-next :help "Switch to the \"next\" screen in a cyclic order") 
(elscreen-previous menu-item "Previous Screen" elscreen-previous :help "Switch 
to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item 
"Toggle Screen" elscreen-toggle :help "Toggle to the screen selected 
previously") (elscreen-command-separator menu-item "--") 
(elscreen-toggle-display-screen-number menu-item "Display Screen Number" 
elscreen-toggle-display-screen-number :help "Display screen number on the mode 
line" :button (:toggle . elscreen-display-screen-number)) 
(elscreen-toggle-display-tab menu-item "Display Tab" 
elscreen-toggle-display-tab :help "Display tab on the top of screen" :button 
(:toggle . elscreen-display-tab))) ("t==>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) (DVC menu-item "DVC" (keymap "DVC" 
(Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item 
"---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" 
dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\ Missing 
menu-item "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) 
(View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log 
menu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 
menu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) 
(Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files 
menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log 
Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository 
menu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" 
cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" 
gnus :help "Read network news groups") (rmail menu-item (format "Read Mail 
(with %s)" (read-mail-item-name)) menu-bar-read-mail :visible (and 
read-mail-command (not (eq read-mail-command (quote ignore)))) :help "Read your 
mail and reply to it") (compose-mail menu-item (format "Send Mail (with %s)" 
(send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq 
mail-user-agent (quote ignore)))) :help "Send a mail message") 
(directory-search menu-item "Directory Search" eudc-tools-menu) (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") 
(land menu-item "Landmark" landmark :help "Watch a neural-network robot learn 
landmarks") (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") ("l==>Emacs-Lisp" emacs-lisp 
keymap (indent-line menu-item "Indent Line" lisp-indent-line) (indent-region 
menu-item "Indent Region" indent-region :help "Indent each nonblank line in the 
region" :enable mark-active) (comment-region menu-item "Comment Out Region" 
comment-region :help "Comment or uncomment each line in the region" :enable 
mark-active) (separator-format "--") (eval-sexp menu-item "Evaluate Last 
S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in 
minibuffer") (eval-region menu-item "Evaluate Region" eval-region :help 
"Execute the region as Lisp code" :enable mark-active) (eval-buffer menu-item 
"Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") 
(ielm menu-item "Interactive Expression Evaluation" ielm :help "Interactively 
evaluate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-item 
"Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file 
containing the current buffer") (emacs-byte-compile-and-load menu-item 
"Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-compile 
the current file (if it has changed), then load compiled code") (byte-recompile 
menu-item "Byte-recompile Directory..." byte-recompile-directory :help 
"Recompile every `.el' file in DIRECTORY that needs recompilation") (disas 
menu-item "Disassemble Byte Compiled Object..." disassemble :help "Print 
disassembled code for OBJECT in a buffer") (separator-byte "--") (edebug-defun 
menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the 
top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") 
(lint "Linting" keymap (lint-d menu-item "Lint Defun" elint-defun :help "Lint 
the function at point") (lint-b menu-item "Lint Buffer" elint-current-buffer 
:help "Lint the current buffer") (lint-f menu-item "Lint File..." elint-file 
:help "Lint a file") (lint-di menu-item "Lint Directory..." elint-directory 
:help "Lint a directory")) (profiling "Profiling" keymap (prof-func menu-item 
"Instrument Function..." elp-instrument-function :help "Instrument a function 
for profiling") (prof-pack menu-item "Instrument Package..." 
elp-instrument-package :help "Instrument for profiling all function that start 
with a prefix") (prof-res menu-item "Show Profiling Results" elp-results :help 
"Display current profiling results") (prof-resfunc menu-item "Reset Counters 
for Function..." elp-reset-function :help "Reset the profiling information for 
a function") (prof-resall menu-item "Reset Counters for All Functions" 
elp-reset-all :help "Reset the profiling information for all functions being 
profiled") (sep-rem "--") (prof-restfunc menu-item "Remove Instrumentation for 
Function..." elp-restore-function :help "Restore an instrumented function to 
its original definition") (prof-restall menu-item "Remove Instrumentation for 
All Functions" elp-restore-all :help "Restore the original definitions of all 
functions being profiled")) (tracing "Tracing" keymap (tr-f menu-item "Trace 
Function..." trace-function :help "Trace the function given as an argument") 
(tr-q menu-item "Trace Function Quietly..." trace-function-background :help 
"Trace the function with trace output going quietly to a buffer") (tr-sep "--") 
(tr-uf menu-item "Untrace Function..." untrace-function :help "Untrace 
function, and possibly activate all remaining advice") (tr-a menu-item "Untrace 
All" untrace-all :help "Untrace all currently traced functions")) (re-builder 
menu-item "Construct Regexp" re-builder :help "Construct a regexp 
interactively") (checkdoc menu-item "Check Documentation Strings" checkdoc 
:help "Check documentation strings for style requirements") (eldoc menu-item 
"Auto-Display Documentation Strings" eldoc-mode :button (:toggle 
bound-and-true-p eldoc-mode) :help "Display the documentation string for the 
item under cursor") "Emacs-Lisp") ("h==>Help" help-menu 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") (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-variable 
:help "Find variables 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) (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 (quote 
enable-multibyte-characters)) :help "Keyboard layout for specific input 
method") (describe-coding-system menu-item "Describe Coding System..." 
describe-coding-system :visible (default-value (quote 
enable-multibyte-characters))) (describe-coding-system-briefly menu-item 
"Describe Coding System (Briefly)" describe-current-coding-system-briefly 
:visible (default-value (quote enable-multibyte-characters))) (mule-diag 
menu-item "Show All of Mule Status" mule-diag :visible (default-value (quote 
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")) 
(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" menu-bar-help-extra-packages :help "Lisp 
packages distributed separately 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")) :test nil 
:fc-transformer #[(candidates source) ".\305\211.\305.    :\203/. 
@\211.:\203.\n@\202.\n.\306\307G\305$\210\fB.      A\211.\202      
.\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 
0] 6] :history history :must-match t :alistp nil :name "menu-bar-open" :buffer 
"*ac-mode-menu-bar-open*" :default "" :initial-input nil)
  anything-completing-read-default-1("Menu bar (up/down to change, PgUp to 
menu): " (("a==>Anything" Anything keymap "Anything" (All\ anything\ commands 
menu-item "All anything commands" anything-execute-anything-command) (Find\ 
any\ Files/Buffers menu-item "Find any Files/Buffers" anything-for-files) 
(Anything\ Everywhere menu-item "Anything Everywhere" ac-mode) (nil menu-item 
"----") (Files: menu-item "Files:" (keymap "Files:" (Find\ files menu-item 
"Find files" anything-find-files) (Recent\ Files menu-item "Recent Files" 
anything-recentf) (Locate menu-item "Locate" anything-locate) (Bookmarks 
menu-item "Bookmarks" anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" 
(keymap "Buffers:" (Find\ buffers menu-item "Find buffers" 
anything-buffers-list))) (Commands: menu-item "Commands:" (keymap "Commands:" 
(Emacs\ Commands menu-item "Emacs Commands" anything-M-x) (Externals\ Commands 
menu-item "Externals Commands" anything-c-run-external-command))) (Help: 
menu-item "Help:" (keymap "Help:" (Anything\ Apropos menu-item "Anything 
Apropos" anything-c-apropos))) (Info: menu-item "Info:" (keymap "Info:" (Info\ 
at\ point menu-item "Info at point" anything-info-at-point) (Emacs\ Manual\ 
index menu-item "Emacs Manual index" anything-info-emacs) (Gnus\ Manual\ index 
menu-item "Gnus Manual index" anything-info-gnus))) (Org: menu-item "Org:" 
(keymap "Org:" (Org\ keywords menu-item "Org keywords" anything-org-keywords) 
(Org\ headlines menu-item "Org headlines" anything-org-headlines))) (Tools: 
menu-item "Tools:" (keymap "Tools:" (Occur menu-item "Occur" anything-occur) 
(Grep menu-item "Grep" anything-do-grep) (Etags menu-item "Etags" 
anything-c-etags-select) (Lisp\ complete\ at\ point menu-item "Lisp complete at 
point" anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse 
Kill ring" anything-show-kill-ring) (Browse\ register menu-item "Browse 
register" anything-register) (Browse\ code menu-item "Browse code" 
anything-browse-code) (Mark\ Ring menu-item "Mark Ring" 
anything-all-mark-rings) (Regexp\ handler menu-item "Regexp handler" 
anything-regexp) (Colors\ &\ Faces menu-item "Colors & Faces" anything-colors) 
(Show\ xfonts menu-item "Show xfonts" anything-select-xfont) (Ucs\ Symbols 
menu-item "Ucs Symbols" anything-ucs) (Imenu menu-item "Imenu" anything-imenu) 
(Google\ Suggest menu-item "Google Suggest" anything-google-suggest) (Eval\ 
expression menu-item "Eval expression" anything-eval-expression-with-eldoc) 
(Calcul\ expression menu-item "Calcul expression" anything-calcul-expression) 
(Man\ pages menu-item "Man pages" anything-man-woman) (Top\ externals\ process 
menu-item "Top externals process" anything-top) (Emacs\ internals\ process 
menu-item "Emacs internals process" anything-list-emacs-process))) (nil-11 
menu-item "----") (Prefered\ Options menu-item "Prefered Options" 
anything-configuration)) ("f==>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 
revert-buffer-function revert-buffer-insert-file-contents-function (and 
buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime 
...))))) :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 (quote 
make-frame-command)) :help "Open a new frame") (make-frame-on-display menu-item 
"New Frame on Display..." make-frame-on-display :visible (fboundp (quote 
make-frame-on-display)) :help "Open a new frame on another display") 
(delete-this-frame menu-item "Delete Frame" delete-frame :visible (fboundp 
(quote 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") 
("e==>Edit" edit keymap (undo menu-item "Undo" undo :enable (and (not 
buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote 
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 (and 
(fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quote 
CLIPBOARD))) (if (featurep (quote 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 (quote 
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 (quote 
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") ("o==>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 (quote transient-mark-mode)) (default-value (quote 
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 (quote 
show-paren-mode)) (default-value (quote show-paren-mode)))) 
(highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This 
Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" (lambda nil 
(interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) 
(if truncate-lines (toggle-truncate-lines -1))) :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" 
(lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq 
word-wrap nil) (toggle-truncate-lines 1)) :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)" (lambda nil (interactive) (unless visual-line-mode 
(visual-line-mode 1)) (message "Visual-Line mode enabled")) :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")) (auto-fill-mode 
menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help 
"Automatically fill text while typing (Auto Fill mode)" :button (:toggle if 
(listp text-mode-hook) (member (quote turn-on-auto-fill) text-mode-hook) (eq 
(quote turn-on-auto-fill) text-mode-hook))) (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 (quote case-fold-search)) 
(default-value (quote case-fold-search)))) (cua-emulation-mode menu-item "Shift 
movement mark region (CUA)" cua-mode :visible (and (boundp (quote 
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 (quote 
cua-mode)) (default-value (quote cua-mode)))) (cua-mode menu-item "Use CUA Keys 
(Cut/Paste with C-x/C-c/C-v)" cua-mode :visible (or (not (boundp (quote 
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 (quote cua-mode)) 
(default-value (quote 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 (quote uniquify-buffer-name-style)) (default-value (quote 
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 (quote 
save-place)) (default-value (quote 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 
(quote blink-cursor-mode)) (default-value (quote 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 (quote debug-on-error)) (default-value 
(quote 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 (quote debug-on-quit)) (default-value (quote 
debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual 
Environment" (keymap "Mule (Multilingual Environment)" 
(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) (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 "Set Coding System" (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 ...) :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 ...) :enable 
(get-buffer-process ...) :help "How to en/decode I/O from/to subprocess 
connected to this buffer")) :enable (default-value (quote 
enable-multibyte-characters))) (view-hello-file menu-item "Show Multi-lingual 
Text" view-hello-file :enable (file-readable-p (expand-file-name "HELLO" 
data-directory)) :help "Display file which says HELLO in many languages") 
(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) (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 :help "Keyboard layout for a specific 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 of Mule Status" mule-diag :help "Display multilingual 
environment settings"))) (showhide-separator "--") (showhide menu-item 
"Show/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" 
toggle-tool-bar-mode-from-frame :help "Turn tool-bar on/off" :visible 
(display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter 
(menu-bar-frame-for-menubar) (quote tool-bar-lines)))) (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) 
(quote menu-bar-lines)))) (showhide-tooltip-mode menu-item "Tooltips" 
tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) 
(fboundp (quote 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 ... 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 ... ...)) (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 ... ...)) "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 ...)) (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 ...)) 
(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 ... ...)) 
(showhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ... 
... "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 (quote 
speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p 
(symbol-value ...)))) (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 
(quote display-time-mode)) (default-value (quote 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 (quote display-battery-mode)) (default-value (quote 
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 (quote 
size-indication-mode)) (default-value (quote 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 
(quote line-number-mode)) (default-value (quote 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 (quote column-number-mode)) (default-value (quote 
column-number-mode)))) "Show/Hide")) (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") ("b==>Buffers" buffer keymap "Select Buffer" 
[("anything-config.el    --  ...ything-config-qp/" (nil) lambda nil 
(interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything-config.el>)) ("anything.el    --  ...ything-config-qp/" (nil) lambda 
nil (interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything.el>)) ("*Completions*  *%" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Completions*>)) ("*scratch*    --  
...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *scratch*>)) ("*Org Agenda*  *%" (nil) 
lambda nil (interactive) (funcall menu-bar-select-buffer-function #<buffer *Org 
Agenda*>)) ("*Messages*  *" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Messages*>))] (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")) ("E==>ElScreen" elscreen 
keymap "Select Screen" (48 menu-item "0  *scratch*" elscreen-jump :keys "C-z 
0") (49 menu-item "1  *Org Agenda*" elscreen-jump :keys "C-z 1") (50 menu-item 
"2+ anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-item "3- 
anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-separator 
menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create 
:help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone 
Screen" elscreen-clone :help "Create a new screen with the window-configuration 
of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill :help 
"Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen 
and Buffers" elscreen-kill-screen-and-buffers :help "Kill current screen and 
buffers") (elscreen-kill-others menu-item "Kill Other Screens" 
elscreen-kill-others :help "Kill other screens") (elscreen-next menu-item "Next 
Screen" elscreen-next :help "Switch to the \"next\" screen in a cyclic order") 
(elscreen-previous menu-item "Previous Screen" elscreen-previous :help "Switch 
to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item 
"Toggle Screen" elscreen-toggle :help "Toggle to the screen selected 
previously") (elscreen-command-separator menu-item "--") 
(elscreen-toggle-display-screen-number menu-item "Display Screen Number" 
elscreen-toggle-display-screen-number :help "Display screen number on the mode 
line" :button (:toggle . elscreen-display-screen-number)) 
(elscreen-toggle-display-tab menu-item "Display Tab" 
elscreen-toggle-display-tab :help "Display tab on the top of screen" :button 
(:toggle . elscreen-display-tab))) ("t==>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) (DVC menu-item "DVC" (keymap "DVC" 
(Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item 
"---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" 
dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\ Missing 
menu-item "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) 
(View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log 
menu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 
menu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) 
(Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files 
menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log 
Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository 
menu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" 
cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" 
gnus :help "Read network news groups") (rmail menu-item (format "Read Mail 
(with %s)" (read-mail-item-name)) menu-bar-read-mail :visible (and 
read-mail-command (not (eq read-mail-command (quote ignore)))) :help "Read your 
mail and reply to it") (compose-mail menu-item (format "Send Mail (with %s)" 
(send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq 
mail-user-agent (quote ignore)))) :help "Send a mail message") 
(directory-search menu-item "Directory Search" eudc-tools-menu) (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") 
(land menu-item "Landmark" landmark :help "Watch a neural-network robot learn 
landmarks") (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") ("l==>Emacs-Lisp" emacs-lisp 
keymap (indent-line menu-item "Indent Line" lisp-indent-line) (indent-region 
menu-item "Indent Region" indent-region :help "Indent each nonblank line in the 
region" :enable mark-active) (comment-region menu-item "Comment Out Region" 
comment-region :help "Comment or uncomment each line in the region" :enable 
mark-active) (separator-format "--") (eval-sexp menu-item "Evaluate Last 
S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in 
minibuffer") (eval-region menu-item "Evaluate Region" eval-region :help 
"Execute the region as Lisp code" :enable mark-active) (eval-buffer menu-item 
"Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") 
(ielm menu-item "Interactive Expression Evaluation" ielm :help "Interactively 
evaluate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-item 
"Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file 
containing the current buffer") (emacs-byte-compile-and-load menu-item 
"Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-compile 
the current file (if it has changed), then load compiled code") (byte-recompile 
menu-item "Byte-recompile Directory..." byte-recompile-directory :help 
"Recompile every `.el' file in DIRECTORY that needs recompilation") (disas 
menu-item "Disassemble Byte Compiled Object..." disassemble :help "Print 
disassembled code for OBJECT in a buffer") (separator-byte "--") (edebug-defun 
menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the 
top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") 
(lint "Linting" keymap (lint-d menu-item "Lint Defun" elint-defun :help "Lint 
the function at point") (lint-b menu-item "Lint Buffer" elint-current-buffer 
:help "Lint the current buffer") (lint-f menu-item "Lint File..." elint-file 
:help "Lint a file") (lint-di menu-item "Lint Directory..." elint-directory 
:help "Lint a directory")) (profiling "Profiling" keymap (prof-func menu-item 
"Instrument Function..." elp-instrument-function :help "Instrument a function 
for profiling") (prof-pack menu-item "Instrument Package..." 
elp-instrument-package :help "Instrument for profiling all function that start 
with a prefix") (prof-res menu-item "Show Profiling Results" elp-results :help 
"Display current profiling results") (prof-resfunc menu-item "Reset Counters 
for Function..." elp-reset-function :help "Reset the profiling information for 
a function") (prof-resall menu-item "Reset Counters for All Functions" 
elp-reset-all :help "Reset the profiling information for all functions being 
profiled") (sep-rem "--") (prof-restfunc menu-item "Remove Instrumentation for 
Function..." elp-restore-function :help "Restore an instrumented function to 
its original definition") (prof-restall menu-item "Remove Instrumentation for 
All Functions" elp-restore-all :help "Restore the original definitions of all 
functions being profiled")) (tracing "Tracing" keymap (tr-f menu-item "Trace 
Function..." trace-function :help "Trace the function given as an argument") 
(tr-q menu-item "Trace Function Quietly..." trace-function-background :help 
"Trace the function with trace output going quietly to a buffer") (tr-sep "--") 
(tr-uf menu-item "Untrace Function..." untrace-function :help "Untrace 
function, and possibly activate all remaining advice") (tr-a menu-item "Untrace 
All" untrace-all :help "Untrace all currently traced functions")) (re-builder 
menu-item "Construct Regexp" re-builder :help "Construct a regexp 
interactively") (checkdoc menu-item "Check Documentation Strings" checkdoc 
:help "Check documentation strings for style requirements") (eldoc menu-item 
"Auto-Display Documentation Strings" eldoc-mode :button (:toggle 
bound-and-true-p eldoc-mode) :help "Display the documentation string for the 
item under cursor") "Emacs-Lisp") ("h==>Help" help-menu 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") (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-variable 
:help "Find variables 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) (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 (quote 
enable-multibyte-characters)) :help "Keyboard layout for specific input 
method") (describe-coding-system menu-item "Describe Coding System..." 
describe-coding-system :visible (default-value (quote 
enable-multibyte-characters))) (describe-coding-system-briefly menu-item 
"Describe Coding System (Briefly)" describe-current-coding-system-briefly 
:visible (default-value (quote enable-multibyte-characters))) (mule-diag 
menu-item "Show All of Mule Status" mule-diag :visible (default-value (quote 
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")) 
(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" menu-bar-help-extra-packages :help "Lisp 
packages distributed separately 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")) nil t nil (history 
. 18) nil nil "menu-bar-open" "*ac-mode-menu-bar-open*")
  byte-code(".\306     !.\307\310\n\". 
\f\236\211.\243\211.\205.\306.!..... .!.\".#.$\257.%\311.%\n
D\".&\312\211.'.(.\313=\203J.\314..\203a..\204a.\315\316\317\216\320\321!\210\322
       
!)\"\210.\323=\204v..;\203z.\324\325.\"\204z.\320\321!\210\326\216.\203\217.)\203\217.\327..&\"\202\325..\203\262..\314=\203\262..%>\330\331..#\240\210\327..%\"\202\325..\203\300.\327..%\"\202\325.\332....
 .!.\".#.$\n&\n.\207" [this-command current-command str-command buf-name 
anything-completing-read-handlers-alist entry symbol-name format "*ac-mode-%s*" 
append nil ido ido-completing-read throw 
--cl-block-anything-completing-read-default-- ((ac-mode 1)) ac-mode -1 
call-interactively completing-read string-match "^anything" ((byte-code 
"\302\303!\210.\302\207" [current-command this-command ac-mode 1] 2)) apply 
all-completions "" anything-completing-read-default-1 def-com str-defcom prompt 
collection predicate require-match initial-input hist def inherit-input-method 
def-args any-args anything-completion-mode-start-message 
anything-completion-mode-quit-message anything-completion-mode] 12)
  anything-completing-read-default("Menu bar (up/down to change, PgUp to menu): 
" (("a==>Anything" Anything keymap "Anything" (All\ anything\ commands 
menu-item "All anything commands" anything-execute-anything-command) (Find\ 
any\ Files/Buffers menu-item "Find any Files/Buffers" anything-for-files) 
(Anything\ Everywhere menu-item "Anything Everywhere" ac-mode) (nil menu-item 
"----") (Files: menu-item "Files:" (keymap "Files:" (Find\ files menu-item 
"Find files" anything-find-files) (Recent\ Files menu-item "Recent Files" 
anything-recentf) (Locate menu-item "Locate" anything-locate) (Bookmarks 
menu-item "Bookmarks" anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" 
(keymap "Buffers:" (Find\ buffers menu-item "Find buffers" 
anything-buffers-list))) (Commands: menu-item "Commands:" (keymap "Commands:" 
(Emacs\ Commands menu-item "Emacs Commands" anything-M-x) (Externals\ Commands 
menu-item "Externals Commands" anything-c-run-external-command))) (Help: 
menu-item "Help:" (keymap "Help:" (Anything\ Apropos menu-item "Anything 
Apropos" anything-c-apropos))) (Info: menu-item "Info:" (keymap "Info:" (Info\ 
at\ point menu-item "Info at point" anything-info-at-point) (Emacs\ Manual\ 
index menu-item "Emacs Manual index" anything-info-emacs) (Gnus\ Manual\ index 
menu-item "Gnus Manual index" anything-info-gnus))) (Org: menu-item "Org:" 
(keymap "Org:" (Org\ keywords menu-item "Org keywords" anything-org-keywords) 
(Org\ headlines menu-item "Org headlines" anything-org-headlines))) (Tools: 
menu-item "Tools:" (keymap "Tools:" (Occur menu-item "Occur" anything-occur) 
(Grep menu-item "Grep" anything-do-grep) (Etags menu-item "Etags" 
anything-c-etags-select) (Lisp\ complete\ at\ point menu-item "Lisp complete at 
point" anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse 
Kill ring" anything-show-kill-ring) (Browse\ register menu-item "Browse 
register" anything-register) (Browse\ code menu-item "Browse code" 
anything-browse-code) (Mark\ Ring menu-item "Mark Ring" 
anything-all-mark-rings) (Regexp\ handler menu-item "Regexp handler" 
anything-regexp) (Colors\ &\ Faces menu-item "Colors & Faces" anything-colors) 
(Show\ xfonts menu-item "Show xfonts" anything-select-xfont) (Ucs\ Symbols 
menu-item "Ucs Symbols" anything-ucs) (Imenu menu-item "Imenu" anything-imenu) 
(Google\ Suggest menu-item "Google Suggest" anything-google-suggest) (Eval\ 
expression menu-item "Eval expression" anything-eval-expression-with-eldoc) 
(Calcul\ expression menu-item "Calcul expression" anything-calcul-expression) 
(Man\ pages menu-item "Man pages" anything-man-woman) (Top\ externals\ process 
menu-item "Top externals process" anything-top) (Emacs\ internals\ process 
menu-item "Emacs internals process" anything-list-emacs-process))) (nil-11 
menu-item "----") (Prefered\ Options menu-item "Prefered Options" 
anything-configuration)) ("f==>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 
revert-buffer-function revert-buffer-insert-file-contents-function (and 
buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime 
...))))) :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 (quote 
make-frame-command)) :help "Open a new frame") (make-frame-on-display menu-item 
"New Frame on Display..." make-frame-on-display :visible (fboundp (quote 
make-frame-on-display)) :help "Open a new frame on another display") 
(delete-this-frame menu-item "Delete Frame" delete-frame :visible (fboundp 
(quote 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") 
("e==>Edit" edit keymap (undo menu-item "Undo" undo :enable (and (not 
buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote 
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 (and 
(fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quote 
CLIPBOARD))) (if (featurep (quote 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 (quote 
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 (quote 
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") ("o==>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 (quote transient-mark-mode)) (default-value (quote 
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 (quote 
show-paren-mode)) (default-value (quote show-paren-mode)))) 
(highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This 
Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" (lambda nil 
(interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) 
(if truncate-lines (toggle-truncate-lines -1))) :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" 
(lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq 
word-wrap nil) (toggle-truncate-lines 1)) :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)" (lambda nil (interactive) (unless visual-line-mode 
(visual-line-mode 1)) (message "Visual-Line mode enabled")) :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")) (auto-fill-mode 
menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help 
"Automatically fill text while typing (Auto Fill mode)" :button (:toggle if 
(listp text-mode-hook) (member (quote turn-on-auto-fill) text-mode-hook) (eq 
(quote turn-on-auto-fill) text-mode-hook))) (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 (quote case-fold-search)) 
(default-value (quote case-fold-search)))) (cua-emulation-mode menu-item "Shift 
movement mark region (CUA)" cua-mode :visible (and (boundp (quote 
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 (quote 
cua-mode)) (default-value (quote cua-mode)))) (cua-mode menu-item "Use CUA Keys 
(Cut/Paste with C-x/C-c/C-v)" cua-mode :visible (or (not (boundp (quote 
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 (quote cua-mode)) 
(default-value (quote 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 (quote uniquify-buffer-name-style)) (default-value (quote 
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 (quote 
save-place)) (default-value (quote 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 
(quote blink-cursor-mode)) (default-value (quote 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 (quote debug-on-error)) (default-value 
(quote 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 (quote debug-on-quit)) (default-value (quote 
debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual 
Environment" (keymap "Mule (Multilingual Environment)" 
(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) (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 "Set Coding System" (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 ...) :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 ...) :enable 
(get-buffer-process ...) :help "How to en/decode I/O from/to subprocess 
connected to this buffer")) :enable (default-value (quote 
enable-multibyte-characters))) (view-hello-file menu-item "Show Multi-lingual 
Text" view-hello-file :enable (file-readable-p (expand-file-name "HELLO" 
data-directory)) :help "Display file which says HELLO in many languages") 
(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) (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 :help "Keyboard layout for a specific 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 of Mule Status" mule-diag :help "Display multilingual 
environment settings"))) (showhide-separator "--") (showhide menu-item 
"Show/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" 
toggle-tool-bar-mode-from-frame :help "Turn tool-bar on/off" :visible 
(display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter 
(menu-bar-frame-for-menubar) (quote tool-bar-lines)))) (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) 
(quote menu-bar-lines)))) (showhide-tooltip-mode menu-item "Tooltips" 
tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) 
(fboundp (quote 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 ... 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 ... ...)) (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 ... ...)) "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 ...)) (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 ...)) 
(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 ... ...)) 
(showhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ... 
... "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 (quote 
speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p 
(symbol-value ...)))) (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 
(quote display-time-mode)) (default-value (quote 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 (quote display-battery-mode)) (default-value (quote 
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 (quote 
size-indication-mode)) (default-value (quote 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 
(quote line-number-mode)) (default-value (quote 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 (quote column-number-mode)) (default-value (quote 
column-number-mode)))) "Show/Hide")) (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") ("b==>Buffers" buffer keymap "Select Buffer" 
[("anything-config.el    --  ...ything-config-qp/" (nil) lambda nil 
(interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything-config.el>)) ("anything.el    --  ...ything-config-qp/" (nil) lambda 
nil (interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything.el>)) ("*Completions*  *%" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Completions*>)) ("*scratch*    --  
...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *scratch*>)) ("*Org Agenda*  *%" (nil) 
lambda nil (interactive) (funcall menu-bar-select-buffer-function #<buffer *Org 
Agenda*>)) ("*Messages*  *" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Messages*>))] (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")) ("E==>ElScreen" elscreen 
keymap "Select Screen" (48 menu-item "0  *scratch*" elscreen-jump :keys "C-z 
0") (49 menu-item "1  *Org Agenda*" elscreen-jump :keys "C-z 1") (50 menu-item 
"2+ anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-item "3- 
anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-separator 
menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create 
:help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone 
Screen" elscreen-clone :help "Create a new screen with the window-configuration 
of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill :help 
"Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen 
and Buffers" elscreen-kill-screen-and-buffers :help "Kill current screen and 
buffers") (elscreen-kill-others menu-item "Kill Other Screens" 
elscreen-kill-others :help "Kill other screens") (elscreen-next menu-item "Next 
Screen" elscreen-next :help "Switch to the \"next\" screen in a cyclic order") 
(elscreen-previous menu-item "Previous Screen" elscreen-previous :help "Switch 
to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item 
"Toggle Screen" elscreen-toggle :help "Toggle to the screen selected 
previously") (elscreen-command-separator menu-item "--") 
(elscreen-toggle-display-screen-number menu-item "Display Screen Number" 
elscreen-toggle-display-screen-number :help "Display screen number on the mode 
line" :button (:toggle . elscreen-display-screen-number)) 
(elscreen-toggle-display-tab menu-item "Display Tab" 
elscreen-toggle-display-tab :help "Display tab on the top of screen" :button 
(:toggle . elscreen-display-tab))) ("t==>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) (DVC menu-item "DVC" (keymap "DVC" 
(Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item 
"---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" 
dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\ Missing 
menu-item "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) 
(View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log 
menu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 
menu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) 
(Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files 
menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log 
Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository 
menu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" 
cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" 
gnus :help "Read network news groups") (rmail menu-item (format "Read Mail 
(with %s)" (read-mail-item-name)) menu-bar-read-mail :visible (and 
read-mail-command (not (eq read-mail-command (quote ignore)))) :help "Read your 
mail and reply to it") (compose-mail menu-item (format "Send Mail (with %s)" 
(send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq 
mail-user-agent (quote ignore)))) :help "Send a mail message") 
(directory-search menu-item "Directory Search" eudc-tools-menu) (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") 
(land menu-item "Landmark" landmark :help "Watch a neural-network robot learn 
landmarks") (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") ("l==>Emacs-Lisp" emacs-lisp 
keymap (indent-line menu-item "Indent Line" lisp-indent-line) (indent-region 
menu-item "Indent Region" indent-region :help "Indent each nonblank line in the 
region" :enable mark-active) (comment-region menu-item "Comment Out Region" 
comment-region :help "Comment or uncomment each line in the region" :enable 
mark-active) (separator-format "--") (eval-sexp menu-item "Evaluate Last 
S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in 
minibuffer") (eval-region menu-item "Evaluate Region" eval-region :help 
"Execute the region as Lisp code" :enable mark-active) (eval-buffer menu-item 
"Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") 
(ielm menu-item "Interactive Expression Evaluation" ielm :help "Interactively 
evaluate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-item 
"Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file 
containing the current buffer") (emacs-byte-compile-and-load menu-item 
"Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-compile 
the current file (if it has changed), then load compiled code") (byte-recompile 
menu-item "Byte-recompile Directory..." byte-recompile-directory :help 
"Recompile every `.el' file in DIRECTORY that needs recompilation") (disas 
menu-item "Disassemble Byte Compiled Object..." disassemble :help "Print 
disassembled code for OBJECT in a buffer") (separator-byte "--") (edebug-defun 
menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the 
top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") 
(lint "Linting" keymap (lint-d menu-item "Lint Defun" elint-defun :help "Lint 
the function at point") (lint-b menu-item "Lint Buffer" elint-current-buffer 
:help "Lint the current buffer") (lint-f menu-item "Lint File..." elint-file 
:help "Lint a file") (lint-di menu-item "Lint Directory..." elint-directory 
:help "Lint a directory")) (profiling "Profiling" keymap (prof-func menu-item 
"Instrument Function..." elp-instrument-function :help "Instrument a function 
for profiling") (prof-pack menu-item "Instrument Package..." 
elp-instrument-package :help "Instrument for profiling all function that start 
with a prefix") (prof-res menu-item "Show Profiling Results" elp-results :help 
"Display current profiling results") (prof-resfunc menu-item "Reset Counters 
for Function..." elp-reset-function :help "Reset the profiling information for 
a function") (prof-resall menu-item "Reset Counters for All Functions" 
elp-reset-all :help "Reset the profiling information for all functions being 
profiled") (sep-rem "--") (prof-restfunc menu-item "Remove Instrumentation for 
Function..." elp-restore-function :help "Restore an instrumented function to 
its original definition") (prof-restall menu-item "Remove Instrumentation for 
All Functions" elp-restore-all :help "Restore the original definitions of all 
functions being profiled")) (tracing "Tracing" keymap (tr-f menu-item "Trace 
Function..." trace-function :help "Trace the function given as an argument") 
(tr-q menu-item "Trace Function Quietly..." trace-function-background :help 
"Trace the function with trace output going quietly to a buffer") (tr-sep "--") 
(tr-uf menu-item "Untrace Function..." untrace-function :help "Untrace 
function, and possibly activate all remaining advice") (tr-a menu-item "Untrace 
All" untrace-all :help "Untrace all currently traced functions")) (re-builder 
menu-item "Construct Regexp" re-builder :help "Construct a regexp 
interactively") (checkdoc menu-item "Check Documentation Strings" checkdoc 
:help "Check documentation strings for style requirements") (eldoc menu-item 
"Auto-Display Documentation Strings" eldoc-mode :button (:toggle 
bound-and-true-p eldoc-mode) :help "Display the documentation string for the 
item under cursor") "Emacs-Lisp") ("h==>Help" help-menu 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") (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-variable 
:help "Find variables 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) (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 (quote 
enable-multibyte-characters)) :help "Keyboard layout for specific input 
method") (describe-coding-system menu-item "Describe Coding System..." 
describe-coding-system :visible (default-value (quote 
enable-multibyte-characters))) (describe-coding-system-briefly menu-item 
"Describe Coding System (Briefly)" describe-current-coding-system-briefly 
:visible (default-value (quote enable-multibyte-characters))) (mule-diag 
menu-item "Show All of Mule Status" mule-diag :visible (default-value (quote 
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")) 
(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" menu-bar-help-extra-packages :help "Lisp 
packages distributed separately 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")) nil t nil (history 
. 18) nil nil)
  completing-read("Menu bar (up/down to change, PgUp to menu): " 
(("a==>Anything" Anything keymap "Anything" (All\ anything\ commands menu-item 
"All anything commands" anything-execute-anything-command) (Find\ any\ 
Files/Buffers menu-item "Find any Files/Buffers" anything-for-files) (Anything\ 
Everywhere menu-item "Anything Everywhere" ac-mode) (nil menu-item "----") 
(Files: menu-item "Files:" (keymap "Files:" (Find\ files menu-item "Find files" 
anything-find-files) (Recent\ Files menu-item "Recent Files" anything-recentf) 
(Locate menu-item "Locate" anything-locate) (Bookmarks menu-item "Bookmarks" 
anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" (keymap "Buffers:" 
(Find\ buffers menu-item "Find buffers" anything-buffers-list))) (Commands: 
menu-item "Commands:" (keymap "Commands:" (Emacs\ Commands menu-item "Emacs 
Commands" anything-M-x) (Externals\ Commands menu-item "Externals Commands" 
anything-c-run-external-command))) (Help: menu-item "Help:" (keymap "Help:" 
(Anything\ Apropos menu-item "Anything Apropos" anything-c-apropos))) (Info: 
menu-item "Info:" (keymap "Info:" (Info\ at\ point menu-item "Info at point" 
anything-info-at-point) (Emacs\ Manual\ index menu-item "Emacs Manual index" 
anything-info-emacs) (Gnus\ Manual\ index menu-item "Gnus Manual index" 
anything-info-gnus))) (Org: menu-item "Org:" (keymap "Org:" (Org\ keywords 
menu-item "Org keywords" anything-org-keywords) (Org\ headlines menu-item "Org 
headlines" anything-org-headlines))) (Tools: menu-item "Tools:" (keymap 
"Tools:" (Occur menu-item "Occur" anything-occur) (Grep menu-item "Grep" 
anything-do-grep) (Etags menu-item "Etags" anything-c-etags-select) (Lisp\ 
complete\ at\ point menu-item "Lisp complete at point" 
anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse Kill 
ring" anything-show-kill-ring) (Browse\ register menu-item "Browse register" 
anything-register) (Browse\ code menu-item "Browse code" anything-browse-code) 
(Mark\ Ring menu-item "Mark Ring" anything-all-mark-rings) (Regexp\ handler 
menu-item "Regexp handler" anything-regexp) (Colors\ &\ Faces menu-item "Colors 
& Faces" anything-colors) (Show\ xfonts menu-item "Show xfonts" 
anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Symbols" anything-ucs) 
(Imenu menu-item "Imenu" anything-imenu) (Google\ Suggest menu-item "Google 
Suggest" anything-google-suggest) (Eval\ expression menu-item "Eval expression" 
anything-eval-expression-with-eldoc) (Calcul\ expression menu-item "Calcul 
expression" anything-calcul-expression) (Man\ pages menu-item "Man pages" 
anything-man-woman) (Top\ externals\ process menu-item "Top externals process" 
anything-top) (Emacs\ internals\ process menu-item "Emacs internals process" 
anything-list-emacs-process))) (nil-11 menu-item "----") (Prefered\ Options 
menu-item "Prefered Options" anything-configuration)) ("f==>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 
revert-buffer-function revert-buffer-insert-file-contents-function (and 
buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime 
...))))) :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 (quote 
make-frame-command)) :help "Open a new frame") (make-frame-on-display menu-item 
"New Frame on Display..." make-frame-on-display :visible (fboundp (quote 
make-frame-on-display)) :help "Open a new frame on another display") 
(delete-this-frame menu-item "Delete Frame" delete-frame :visible (fboundp 
(quote 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") 
("e==>Edit" edit keymap (undo menu-item "Undo" undo :enable (and (not 
buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command (quote 
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 (and 
(fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quote 
CLIPBOARD))) (if (featurep (quote 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 (quote 
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 (quote 
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") ("o==>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 (quote transient-mark-mode)) (default-value (quote 
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 (quote 
show-paren-mode)) (default-value (quote show-paren-mode)))) 
(highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This 
Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" (lambda nil 
(interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) 
(if truncate-lines (toggle-truncate-lines -1))) :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" 
(lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq 
word-wrap nil) (toggle-truncate-lines 1)) :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)" (lambda nil (interactive) (unless visual-line-mode 
(visual-line-mode 1)) (message "Visual-Line mode enabled")) :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")) (auto-fill-mode 
menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help 
"Automatically fill text while typing (Auto Fill mode)" :button (:toggle if 
(listp text-mode-hook) (member (quote turn-on-auto-fill) text-mode-hook) (eq 
(quote turn-on-auto-fill) text-mode-hook))) (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 (quote case-fold-search)) 
(default-value (quote case-fold-search)))) (cua-emulation-mode menu-item "Shift 
movement mark region (CUA)" cua-mode :visible (and (boundp (quote 
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 (quote 
cua-mode)) (default-value (quote cua-mode)))) (cua-mode menu-item "Use CUA Keys 
(Cut/Paste with C-x/C-c/C-v)" cua-mode :visible (or (not (boundp (quote 
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 (quote cua-mode)) 
(default-value (quote 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 (quote uniquify-buffer-name-style)) (default-value (quote 
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 (quote 
save-place)) (default-value (quote 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 
(quote blink-cursor-mode)) (default-value (quote 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 (quote debug-on-error)) (default-value 
(quote 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 (quote debug-on-quit)) (default-value (quote 
debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual 
Environment" (keymap "Mule (Multilingual Environment)" 
(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) (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 "Set Coding System" (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 ...) :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 ...) :enable 
(get-buffer-process ...) :help "How to en/decode I/O from/to subprocess 
connected to this buffer")) :enable (default-value (quote 
enable-multibyte-characters))) (view-hello-file menu-item "Show Multi-lingual 
Text" view-hello-file :enable (file-readable-p (expand-file-name "HELLO" 
data-directory)) :help "Display file which says HELLO in many languages") 
(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) (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 :help "Keyboard layout for a specific 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 of Mule Status" mule-diag :help "Display multilingual 
environment settings"))) (showhide-separator "--") (showhide menu-item 
"Show/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" 
toggle-tool-bar-mode-from-frame :help "Turn tool-bar on/off" :visible 
(display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter 
(menu-bar-frame-for-menubar) (quote tool-bar-lines)))) (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) 
(quote menu-bar-lines)))) (showhide-tooltip-mode menu-item "Tooltips" 
tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) 
(fboundp (quote 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 ... 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 ... ...)) (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 ... ...)) "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 ...)) (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 ...)) 
(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 ... ...)) 
(showhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ... 
... "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 (quote 
speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p 
(symbol-value ...)))) (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 
(quote display-time-mode)) (default-value (quote 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 (quote display-battery-mode)) (default-value (quote 
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 (quote 
size-indication-mode)) (default-value (quote 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 
(quote line-number-mode)) (default-value (quote 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 (quote column-number-mode)) (default-value (quote 
column-number-mode)))) "Show/Hide")) (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") ("b==>Buffers" buffer keymap "Select Buffer" 
[("anything-config.el    --  ...ything-config-qp/" (nil) lambda nil 
(interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything-config.el>)) ("anything.el    --  ...ything-config-qp/" (nil) lambda 
nil (interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything.el>)) ("*Completions*  *%" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Completions*>)) ("*scratch*    --  
...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *scratch*>)) ("*Org Agenda*  *%" (nil) 
lambda nil (interactive) (funcall menu-bar-select-buffer-function #<buffer *Org 
Agenda*>)) ("*Messages*  *" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Messages*>))] (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")) ("E==>ElScreen" elscreen 
keymap "Select Screen" (48 menu-item "0  *scratch*" elscreen-jump :keys "C-z 
0") (49 menu-item "1  *Org Agenda*" elscreen-jump :keys "C-z 1") (50 menu-item 
"2+ anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-item "3- 
anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-separator 
menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create 
:help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone 
Screen" elscreen-clone :help "Create a new screen with the window-configuration 
of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill :help 
"Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen 
and Buffers" elscreen-kill-screen-and-buffers :help "Kill current screen and 
buffers") (elscreen-kill-others menu-item "Kill Other Screens" 
elscreen-kill-others :help "Kill other screens") (elscreen-next menu-item "Next 
Screen" elscreen-next :help "Switch to the \"next\" screen in a cyclic order") 
(elscreen-previous menu-item "Previous Screen" elscreen-previous :help "Switch 
to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item 
"Toggle Screen" elscreen-toggle :help "Toggle to the screen selected 
previously") (elscreen-command-separator menu-item "--") 
(elscreen-toggle-display-screen-number menu-item "Display Screen Number" 
elscreen-toggle-display-screen-number :help "Display screen number on the mode 
line" :button (:toggle . elscreen-display-screen-number)) 
(elscreen-toggle-display-tab menu-item "Display Tab" 
elscreen-toggle-display-tab :help "Display tab on the top of screen" :button 
(:toggle . elscreen-display-tab))) ("t==>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) (DVC menu-item "DVC" (keymap "DVC" 
(Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item 
"---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" 
dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\ Missing 
menu-item "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) 
(View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log 
menu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 
menu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) 
(Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files 
menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log 
Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository 
menu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" 
cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" 
gnus :help "Read network news groups") (rmail menu-item (format "Read Mail 
(with %s)" (read-mail-item-name)) menu-bar-read-mail :visible (and 
read-mail-command (not (eq read-mail-command (quote ignore)))) :help "Read your 
mail and reply to it") (compose-mail menu-item (format "Send Mail (with %s)" 
(send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq 
mail-user-agent (quote ignore)))) :help "Send a mail message") 
(directory-search menu-item "Directory Search" eudc-tools-menu) (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") 
(land menu-item "Landmark" landmark :help "Watch a neural-network robot learn 
landmarks") (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") ("l==>Emacs-Lisp" emacs-lisp 
keymap (indent-line menu-item "Indent Line" lisp-indent-line) (indent-region 
menu-item "Indent Region" indent-region :help "Indent each nonblank line in the 
region" :enable mark-active) (comment-region menu-item "Comment Out Region" 
comment-region :help "Comment or uncomment each line in the region" :enable 
mark-active) (separator-format "--") (eval-sexp menu-item "Evaluate Last 
S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in 
minibuffer") (eval-region menu-item "Evaluate Region" eval-region :help 
"Execute the region as Lisp code" :enable mark-active) (eval-buffer menu-item 
"Evaluate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") 
(ielm menu-item "Interactive Expression Evaluation" ielm :help "Interactively 
evaluate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-item 
"Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the file 
containing the current buffer") (emacs-byte-compile-and-load menu-item 
"Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-compile 
the current file (if it has changed), then load compiled code") (byte-recompile 
menu-item "Byte-recompile Directory..." byte-recompile-directory :help 
"Recompile every `.el' file in DIRECTORY that needs recompilation") (disas 
menu-item "Disassemble Byte Compiled Object..." disassemble :help "Print 
disassembled code for OBJECT in a buffer") (separator-byte "--") (edebug-defun 
menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the 
top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") 
(lint "Linting" keymap (lint-d menu-item "Lint Defun" elint-defun :help "Lint 
the function at point") (lint-b menu-item "Lint Buffer" elint-current-buffer 
:help "Lint the current buffer") (lint-f menu-item "Lint File..." elint-file 
:help "Lint a file") (lint-di menu-item "Lint Directory..." elint-directory 
:help "Lint a directory")) (profiling "Profiling" keymap (prof-func menu-item 
"Instrument Function..." elp-instrument-function :help "Instrument a function 
for profiling") (prof-pack menu-item "Instrument Package..." 
elp-instrument-package :help "Instrument for profiling all function that start 
with a prefix") (prof-res menu-item "Show Profiling Results" elp-results :help 
"Display current profiling results") (prof-resfunc menu-item "Reset Counters 
for Function..." elp-reset-function :help "Reset the profiling information for 
a function") (prof-resall menu-item "Reset Counters for All Functions" 
elp-reset-all :help "Reset the profiling information for all functions being 
profiled") (sep-rem "--") (prof-restfunc menu-item "Remove Instrumentation for 
Function..." elp-restore-function :help "Restore an instrumented function to 
its original definition") (prof-restall menu-item "Remove Instrumentation for 
All Functions" elp-restore-all :help "Restore the original definitions of all 
functions being profiled")) (tracing "Tracing" keymap (tr-f menu-item "Trace 
Function..." trace-function :help "Trace the function given as an argument") 
(tr-q menu-item "Trace Function Quietly..." trace-function-background :help 
"Trace the function with trace output going quietly to a buffer") (tr-sep "--") 
(tr-uf menu-item "Untrace Function..." untrace-function :help "Untrace 
function, and possibly activate all remaining advice") (tr-a menu-item "Untrace 
All" untrace-all :help "Untrace all currently traced functions")) (re-builder 
menu-item "Construct Regexp" re-builder :help "Construct a regexp 
interactively") (checkdoc menu-item "Check Documentation Strings" checkdoc 
:help "Check documentation strings for style requirements") (eldoc menu-item 
"Auto-Display Documentation Strings" eldoc-mode :button (:toggle 
bound-and-true-p eldoc-mode) :help "Display the documentation string for the 
item under cursor") "Emacs-Lisp") ("h==>Help" help-menu 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") (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-variable 
:help "Find variables 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) (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 (quote 
enable-multibyte-characters)) :help "Keyboard layout for specific input 
method") (describe-coding-system menu-item "Describe Coding System..." 
describe-coding-system :visible (default-value (quote 
enable-multibyte-characters))) (describe-coding-system-briefly menu-item 
"Describe Coding System (Briefly)" describe-current-coding-system-briefly 
:visible (default-value (quote enable-multibyte-characters))) (mule-diag 
menu-item "Show All of Mule Status" mule-diag :visible (default-value (quote 
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")) 
(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" menu-bar-help-extra-packages :help "Lisp 
packages distributed separately 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")) nil t nil (history 
. 18))
  tmm-prompt((keymap (Anything menu-item "Anything" (keymap "Anything" (All\ 
anything\ commands menu-item "All anything commands" 
anything-execute-anything-command) (Find\ any\ Files/Buffers menu-item "Find 
any Files/Buffers" anything-for-files) (Anything\ Everywhere menu-item 
"Anything Everywhere" ac-mode) (nil menu-item "----") (Files: menu-item 
"Files:" (keymap "Files:" (Find\ files menu-item "Find files" 
anything-find-files) (Recent\ Files menu-item "Recent Files" anything-recentf) 
(Locate menu-item "Locate" anything-locate) (Bookmarks menu-item "Bookmarks" 
anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" (keymap "Buffers:" 
(Find\ buffers menu-item "Find buffers" anything-buffers-list))) (Commands: 
menu-item "Commands:" (keymap "Commands:" (Emacs\ Commands menu-item "Emacs 
Commands" anything-M-x) (Externals\ Commands menu-item "Externals Commands" 
anything-c-run-external-command))) (Help: menu-item "Help:" (keymap "Help:" 
(Anything\ Apropos menu-item "Anything Apropos" anything-c-apropos))) (Info: 
menu-item "Info:" (keymap "Info:" (Info\ at\ point menu-item "Info at point" 
anything-info-at-point) (Emacs\ Manual\ index menu-item "Emacs Manual index" 
anything-info-emacs) (Gnus\ Manual\ index menu-item "Gnus Manual index" 
anything-info-gnus))) (Org: menu-item "Org:" (keymap "Org:" (Org\ keywords 
menu-item "Org keywords" anything-org-keywords) (Org\ headlines menu-item "Org 
headlines" anything-org-headlines))) (Tools: menu-item "Tools:" (keymap 
"Tools:" (Occur menu-item "Occur" anything-occur) (Grep menu-item "Grep" 
anything-do-grep) (Etags menu-item "Etags" anything-c-etags-select) (Lisp\ 
complete\ at\ point menu-item "Lisp complete at point" 
anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse Kill 
ring" anything-show-kill-ring) (Browse\ register menu-item "Browse register" 
anything-register) (Browse\ code menu-item "Browse code" anything-browse-code) 
(Mark\ Ring menu-item "Mark Ring" anything-all-mark-rings) (Regexp\ handler 
menu-item "Regexp handler" anything-regexp) (Colors\ &\ Faces menu-item "Colors 
& Faces" anything-colors) (Show\ xfonts menu-item "Show xfonts" 
anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Symbols" anything-ucs) 
(Imenu menu-item "Imenu" anything-imenu) (Google\ Suggest menu-item "Google 
Suggest" anything-google-suggest) (Eval\ expression menu-item "Eval expression" 
anything-eval-expression-with-eldoc) (Calcul\ expression menu-item "Calcul 
expression" anything-calcul-expression) (Man\ pages menu-item "Man pages" 
anything-man-woman) (Top\ externals\ process menu-item "Top externals process" 
anything-top) (Emacs\ internals\ process menu-item "Emacs internals process" 
anything-list-emacs-process))) (nil-11 menu-item "----") (Prefered\ Options 
menu-item "Prefered Options" anything-configuration))) (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 
revert-buffer-function revert-buffer-insert-file-contents-function (and 
buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime 
...))))) :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 (quote 
make-frame-command)) :help "Open a new frame") (make-frame-on-display menu-item 
"New Frame on Display..." make-frame-on-display :visible (fboundp (quote 
make-frame-on-display)) :help "Open a new frame on another display") 
(delete-this-frame menu-item "Delete Frame" delete-frame :visible (fboundp 
(quote 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 (quote 
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 (and 
(fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quote 
CLIPBOARD))) (if (featurep (quote 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 ...) search-ring) (and (eq menu-bar-last-search-type 
...) 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 (quote 
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 (quote 
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 (quote transient-mark-mode)) (default-value (quote 
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 (quote 
show-paren-mode)) (default-value (quote show-paren-mode)))) 
(highlight-separator "--") (line-wrapping menu-item "Line Wrapping in This 
Buffer" (keymap (window-wrap menu-item "Wrap at Window Edge" (lambda nil 
(interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) 
(if truncate-lines (toggle-truncate-lines -1))) :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" 
(lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq 
word-wrap nil) (toggle-truncate-lines 1)) :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)" (lambda nil (interactive) (unless visual-line-mode 
(visual-line-mode 1)) (message "Visual-Line mode enabled")) :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")) (auto-fill-mode 
menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help 
"Automatically fill text while typing (Auto Fill mode)" :button (:toggle if 
(listp text-mode-hook) (member (quote turn-on-auto-fill) text-mode-hook) (eq 
(quote turn-on-auto-fill) text-mode-hook))) (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 (quote case-fold-search)) 
(default-value (quote case-fold-search)))) (cua-emulation-mode menu-item "Shift 
movement mark region (CUA)" cua-mode :visible (and (boundp (quote 
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 (quote 
cua-mode)) (default-value (quote cua-mode)))) (cua-mode menu-item "Use CUA Keys 
(Cut/Paste with C-x/C-c/C-v)" cua-mode :visible (or (not (boundp (quote 
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 (quote cua-mode)) 
(default-value (quote 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 (quote uniquify-buffer-name-style)) (default-value (quote 
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 (quote 
save-place)) (default-value (quote 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 
(quote blink-cursor-mode)) (default-value (quote 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 (quote debug-on-error)) (default-value 
(quote 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 (quote debug-on-quit)) (default-value (quote 
debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual 
Environment" (keymap "Mule (Multilingual Environment)" 
(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) (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 "Set Coding System" (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 ...) :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 ...) :enable 
(get-buffer-process ...) :help "How to en/decode I/O from/to subprocess 
connected to this buffer")) :enable (default-value (quote 
enable-multibyte-characters))) (view-hello-file menu-item "Show Multi-lingual 
Text" view-hello-file :enable (file-readable-p (expand-file-name "HELLO" 
data-directory)) :help "Display file which says HELLO in many languages") 
(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) (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 :help "Keyboard layout for a specific 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 of Mule Status" mule-diag :help "Display multilingual 
environment settings"))) (showhide-separator "--") (showhide menu-item 
"Show/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" 
toggle-tool-bar-mode-from-frame :help "Turn tool-bar on/off" :visible 
(display-graphic-p) :button (:toggle menu-bar-positive-p (frame-parameter 
(menu-bar-frame-for-menubar) (quote tool-bar-lines)))) (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) 
(quote menu-bar-lines)))) (showhide-tooltip-mode menu-item "Tooltips" 
tooltip-mode :help "Turn tooltips on/off" :visible (and (display-graphic-p) 
(fboundp (quote 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 ... 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 ... ...)) (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 ... ...)) "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 ...)) (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 ...)) 
(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 ... ...)) 
(showhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ... 
... "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 (quote 
speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p 
(symbol-value ...)))) (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 
(quote display-time-mode)) (default-value (quote 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 (quote display-battery-mode)) (default-value (quote 
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 (quote 
size-indication-mode)) (default-value (quote 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 
(quote line-number-mode)) (default-value (quote 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 (quote column-number-mode)) (default-value (quote 
column-number-mode)))) "Show/Hide")) (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 "Select Buffer" 
[("anything-config.el    --  ...ything-config-qp/" (nil) lambda nil 
(interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything-config.el>)) ("anything.el    --  ...ything-config-qp/" (nil) lambda 
nil (interactive) (funcall menu-bar-select-buffer-function #<buffer 
anything.el>)) ("*Completions*  *%" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Completions*>)) ("*scratch*    --  
...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *scratch*>)) ("*Org Agenda*  *%" (nil) 
lambda nil (interactive) (funcall menu-bar-select-buffer-function #<buffer *Org 
Agenda*>)) ("*Messages*  *" (nil) lambda nil (interactive) (funcall 
menu-bar-select-buffer-function #<buffer *Messages*>))] (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")) (elscreen "ElScreen" keymap 
"Select Screen" (48 menu-item "0  *scratch*" elscreen-jump :keys "C-z 0") (49 
menu-item "1  *Org Agenda*" elscreen-jump :keys "C-z 1") (50 menu-item "2+ 
anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-item "3- 
anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-separator 
menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create 
:help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone 
Screen" elscreen-clone :help "Create a new screen with the window-configuration 
of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill :help 
"Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen 
and Buffers" elscreen-kill-screen-and-buffers :help "Kill current screen and 
buffers") (elscreen-kill-others menu-item "Kill Other Screens" 
elscreen-kill-others :help "Kill other screens") (elscreen-next menu-item "Next 
Screen" elscreen-next :help "Switch to the \"next\" screen in a cyclic order") 
(elscreen-previous menu-item "Previous Screen" elscreen-previous :help "Switch 
to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item 
"Toggle Screen" elscreen-toggle :help "Toggle to the screen selected 
previously") (elscreen-command-separator menu-item "--") 
(elscreen-toggle-display-screen-number menu-item "Display Screen Number" 
elscreen-toggle-display-screen-number :help "Display screen number on the mode 
line" :button (:toggle . elscreen-display-screen-number)) 
(elscreen-toggle-display-tab menu-item "Display Tab" 
elscreen-toggle-display-tab :help "Display tab on the top of screen" :button 
(:toggle . elscreen-display-tab))) (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) (DVC menu-item "DVC" (keymap "DVC" 
(Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item 
"---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" 
dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\ Missing 
menu-item "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) 
(View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log 
menu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 
menu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) 
(Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files 
menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log 
Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository 
menu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" 
cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" 
gnus :help "Read network news groups") (rmail menu-item (format "Read Mail 
(with %s)" (read-mail-item-name)) menu-bar-read-mail :visible (and 
read-mail-command (not (eq read-mail-command (quote ignore)))) :help "Read your 
mail and reply to it") (compose-mail menu-item (format "Send Mail (with %s)" 
(send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq 
mail-user-agent (quote ignore)))) :help "Send a mail message") 
(directory-search menu-item "Directory Search" eudc-tools-menu) (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") 
(land menu-item "Landmark" landmark :help "Watch a neural-network robot learn 
landmarks") (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") (mouse-1 . tmm-menubar-mouse) 
(emacs-lisp "Emacs-Lisp" keymap (indent-line menu-item "Indent Line" 
lisp-indent-line) (indent-region menu-item "Indent Region" indent-region :help 
"Indent each nonblank line in the region" :enable mark-active) (comment-region 
menu-item "Comment Out Region" comment-region :help "Comment or uncomment each 
line in the region" :enable mark-active) (separator-format "--") (eval-sexp 
menu-item "Evaluate Last S-expression" eval-last-sexp :help "Evaluate sexp 
before point; print value in minibuffer") (eval-region menu-item "Evaluate 
Region" eval-region :help "Execute the region as Lisp code" :enable 
mark-active) (eval-buffer menu-item "Evaluate Buffer" eval-buffer :help 
"Execute the current buffer as Lisp code") (ielm menu-item "Interactive 
Expression Evaluation" ielm :help "Interactively evaluate Emacs Lisp 
expressions") (separator-eval "--") (byte-compile menu-item "Byte-compile This 
File" emacs-lisp-byte-compile :help "Byte compile the file containing the 
current buffer") (emacs-byte-compile-and-load menu-item "Byte-compile and Load" 
emacs-lisp-byte-compile-and-load :help "Byte-compile the current file (if it 
has changed), then load compiled code") (byte-recompile menu-item 
"Byte-recompile Directory..." byte-recompile-directory :help "Recompile every 
`.el' file in DIRECTORY that needs recompilation") (disas menu-item 
"Disassemble Byte Compiled Object..." disassemble :help "Print disassembled 
code for OBJECT in a buffer") (separator-byte "--") (edebug-defun menu-item 
"Instrument Function for Debugging" edebug-defun :help "Evaluate the top level 
form point is in, stepping through with Edebug" :keys "C-u C-M-x") (lint 
"Linting" keymap (lint-d menu-item "Lint Defun" elint-defun :help "Lint the 
function at point") (lint-b menu-item "Lint Buffer" elint-current-buffer :help 
"Lint the current buffer") (lint-f menu-item "Lint File..." elint-file :help 
"Lint a file") (lint-di menu-item "Lint Directory..." elint-directory :help 
"Lint a directory")) (profiling "Profiling" keymap (prof-func menu-item 
"Instrument Function..." elp-instrument-function :help "Instrument a function 
for profiling") (prof-pack menu-item "Instrument Package..." 
elp-instrument-package :help "Instrument for profiling all function that start 
with a prefix") (prof-res menu-item "Show Profiling Results" elp-results :help 
"Display current profiling results") (prof-resfunc menu-item "Reset Counters 
for Function..." elp-reset-function :help "Reset the profiling information for 
a function") (prof-resall menu-item "Reset Counters for All Functions" 
elp-reset-all :help "Reset the profiling information for all functions being 
profiled") (sep-rem "--") (prof-restfunc menu-item "Remove Instrumentation for 
Function..." elp-restore-function :help "Restore an instrumented function to 
its original definition") (prof-restall menu-item "Remove Instrumentation for 
All Functions" elp-restore-all :help "Restore the original definitions of all 
functions being profiled")) (tracing "Tracing" keymap (tr-f menu-item "Trace 
Function..." trace-function :help "Trace the function given as an argument") 
(tr-q menu-item "Trace Function Quietly..." trace-function-background :help 
"Trace the function with trace output going quietly to a buffer") (tr-sep "--") 
(tr-uf menu-item "Untrace Function..." untrace-function :help "Untrace 
function, and possibly activate all remaining advice") (tr-a menu-item "Untrace 
All" untrace-all :help "Untrace all currently traced functions")) (re-builder 
menu-item "Construct Regexp" re-builder :help "Construct a regexp 
interactively") (checkdoc menu-item "Check Documentation Strings" checkdoc 
:help "Check documentation strings for style requirements") (eldoc menu-item 
"Auto-Display Documentation Strings" eldoc-mode :button (:toggle 
bound-and-true-p eldoc-mode) :help "Display the documentation string for the 
item under cursor") "Emacs-Lisp") nil (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") (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-variable 
:help "Find variables 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) (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 (quote 
enable-multibyte-characters)) :help "Keyboard layout for specific input 
method") (describe-coding-system menu-item "Describe Coding System..." 
describe-coding-system :visible (default-value (quote 
enable-multibyte-characters))) (describe-coding-system-briefly menu-item 
"Describe Coding System (Briefly)" describe-current-coding-system-briefly 
:visible (default-value (quote enable-multibyte-characters))) (mule-diag 
menu-item "Show All of Mule Status" mule-diag :visible (default-value (quote 
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")) 
(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" menu-bar-help-extra-packages :help "Lisp 
packages distributed separately 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")) nil nil)
  tmm-menubar()
  x-menu-bar-open(nil)
  menu-bar-open()
  call-interactively(menu-bar-open nil nil)

-- 
  Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997