* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
@ 2011-11-15 10:41 Thierry Volpiatto
2011-11-15 20:27 ` Stefan Monnier
0 siblings, 1 reply; 9+ messages in thread
From: Thierry Volpiatto @ 2011-11-15 10:41 UTC (permalink / raw
To: 10053
Hi,
in `tmm-add-prompt' completions is set with
(mapcar 'car minibuffer-completion-table)
which is wrong IMHO and cause error like:
--8<---------------cut here---------------start------------->8---
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)
[...]
tmm-add-prompt()
read-string("Menu bar (up/down to change, PgUp to menu): " nil nil "")
--8<---------------cut here---------------end--------------->8---
When `minibuffer-completion-table' is set.
While it is nil, it works of course.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-15 10:41 bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt Thierry Volpiatto
@ 2011-11-15 20:27 ` Stefan Monnier
2011-11-15 21:37 ` Thierry Volpiatto
0 siblings, 1 reply; 9+ messages in thread
From: Stefan Monnier @ 2011-11-15 20:27 UTC (permalink / raw
To: Thierry Volpiatto; +Cc: 10053
> --8<---------------cut here---------------start------------->8---
> 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)
> [...]
> tmm-add-prompt()
> read-string("Menu bar (up/down to change, PgUp to menu): " nil nil "")
> --8<---------------cut here---------------end--------------->8---
> When `minibuffer-completion-table' is set.
> While it is nil, it works of course.
Normally, minibuffer-completion-table should be an association list
because it's set to tmm-km-list when tmm-prompt calls completing-read.
Do you have a recipe to reproduce the above backtrace?
Stefan
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-15 20:27 ` Stefan Monnier
@ 2011-11-15 21:37 ` Thierry Volpiatto
2011-11-16 2:26 ` Stefan Monnier
0 siblings, 1 reply; 9+ messages in thread
From: Thierry Volpiatto @ 2011-11-15 21:37 UTC (permalink / raw
To: Stefan Monnier; +Cc: 10053
Stefan Monnier <monnier@IRO.UMontreal.CA> writes:
>> --8<---------------cut here---------------start------------->8---
>> 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)
>> [...]
>
>
>> tmm-add-prompt()
>> read-string("Menu bar (up/down to change, PgUp to menu): " nil nil "")
>> --8<---------------cut here---------------end--------------->8---
>
>> When `minibuffer-completion-table' is set.
>> While it is nil, it works of course.
>
> Normally, minibuffer-completion-table should be an association list
> because it's set to tmm-km-list when tmm-prompt calls completing-read.
> Do you have a recipe to reproduce the above backtrace?
Unfortunately not yet. Right now it happen, but i don't know what have
set `minibuffer-completion-table', here his value:
--8<---------------cut here---------------start------------->8---
(closure
(t)
(&rest args)
(apply 'completion-table-with-predicate 'internal-complete-buffer
[...]
["*Messages*"]
3 "\n\n(fn NAME)"]
'nil args))
--8<---------------cut here---------------end--------------->8---
If i use in tmm-add-prompt:
(all-completions "" minibuffer-completion-table)
instead of
(mapcar 'car minibuffer-completion-table)
i have no error, and a completions buffer with a list of buffers.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-15 21:37 ` Thierry Volpiatto
@ 2011-11-16 2:26 ` Stefan Monnier
2011-11-16 8:27 ` Thierry Volpiatto
0 siblings, 1 reply; 9+ messages in thread
From: Stefan Monnier @ 2011-11-16 2:26 UTC (permalink / raw
To: Thierry Volpiatto; +Cc: 10053
> If i use in tmm-add-prompt:
> (all-completions "" minibuffer-completion-table)
> instead of
> (mapcar 'car minibuffer-completion-table)
> i have no error, and a completions buffer with a list of buffers.
But the error is that tmm-add-prompt should not be run in that case.
It should only be run when you use tmm-prompt or tmm-menubar.
I see a small error in tmm.el which could explain why tmm-add-prompt
lingers on minibuffer-setup-hook longer than desired. I've installed the
patch below, please see if it helps.
Stefan
=== modified file 'lisp/tmm.el'
--- lisp/tmm.el 2011-01-25 04:08:28 +0000
+++ lisp/tmm.el 2011-11-16 02:19:47 +0000
@@ -37,7 +37,6 @@
;;; The following will be localized, added only to pacify the compiler.
(defvar tmm-short-cuts)
(defvar tmm-old-mb-map nil)
-(defvar tmm-old-comp-map)
(defvar tmm-c-prompt nil)
(defvar tmm-km-list)
(defvar tmm-next-shortcut-digit)
@@ -158,7 +157,7 @@
(let ((gl-str "Menu bar") ;; The menu bar itself is not a menu keymap
; so it doesn't have a name.
tmm-km-list out history history-len tmm-table-undef tmm-c-prompt
- tmm-old-mb-map tmm-old-comp-map tmm-short-cuts
+ tmm-old-mb-map tmm-short-cuts
chosen-string choice
(not-menu (not (keymapp menu))))
(run-hooks 'activate-menubar-hook)
@@ -219,23 +218,16 @@
(setq history-len (length history))
(setq history (append history history history history))
(setq tmm-c-prompt (nth (- history-len 1 index-of-default) history))
- (add-hook 'minibuffer-setup-hook 'tmm-add-prompt)
- (if default-item
- (setq out (car (nth index-of-default tmm-km-list)))
- (save-excursion
- (unwind-protect
(setq out
+ (if default-item
+ (car (nth index-of-default tmm-km-list))
+ (minibuffer-with-setup-hook #'tmm-add-prompt
(completing-read
(concat gl-str
" (up/down to change, PgUp to menu): ")
tmm-km-list nil t nil
(cons 'history
- (- (* 2 history-len) index-of-default))))
- (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt)
- (if (get-buffer "*Completions*")
- (with-current-buffer "*Completions*"
- (use-local-map tmm-old-comp-map)
- (bury-buffer (current-buffer)))))))))
+ (- (* 2 history-len) index-of-default))))))))
(setq choice (cdr (assoc out tmm-km-list)))
(and (null choice)
(> (length out) (length tmm-c-prompt))
@@ -270,7 +262,7 @@
choice)))))
(defun tmm-add-shortcuts (list)
- "Adds shortcuts to cars of elements of the list.
+ "Add shortcuts to cars of elements of the list.
Takes a list of lists with a string as car, returns list with
shortcuts added to these cars.
Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
@@ -362,7 +354,6 @@
(set-buffer-modified-p nil)))
(defun tmm-add-prompt ()
- (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt)
(add-hook 'minibuffer-exit-hook 'tmm-delete-map nil t)
(unless tmm-c-prompt
(error "No active menu entries"))
@@ -387,9 +378,7 @@
(save-selected-window
(other-window 1) ; Electric-pop-up-window does
; not work in minibuffer
- (Electric-pop-up-window "*Completions*")
- (with-current-buffer "*Completions*"
- (setq tmm-old-comp-map (tmm-define-keys nil))))
+ (Electric-pop-up-window "*Completions*"))
(insert tmm-c-prompt))
(defun tmm-delete-map ()
@@ -424,16 +413,18 @@
(exit-minibuffer)))))
(defun tmm-goto-completions ()
+ "Jump to the completions buffer."
(interactive)
(let ((prompt-end (minibuffer-prompt-end)))
(setq tmm-c-prompt (buffer-substring prompt-end (point-max)))
+ ;; FIXME: Why?
(delete-region prompt-end (point-max)))
(switch-to-buffer-other-window "*Completions*")
(search-forward tmm-c-prompt)
(search-backward tmm-c-prompt))
(defun tmm-get-keymap (elt &optional in-x-menu)
- "Prepends (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'.
+ "Prepend (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'.
The values are deduced from the argument ELT, that should be an
element of keymap, an `x-popup-menu' argument, or an element of
`x-popup-menu' argument (when IN-X-MENU is not-nil).
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-16 2:26 ` Stefan Monnier
@ 2011-11-16 8:27 ` Thierry Volpiatto
2011-11-16 13:32 ` Stefan Monnier
0 siblings, 1 reply; 9+ messages in thread
From: Thierry Volpiatto @ 2011-11-16 8:27 UTC (permalink / raw
To: Stefan Monnier; +Cc: 10053
Stefan Monnier <monnier@iro.umontreal.ca> writes:
> But the error is that tmm-add-prompt should not be run in that case.
> It should only be run when you use tmm-prompt or tmm-menubar.
Yes, but when calling `menu-bar-open' with menu-bar-mode==nil, it calls
`x-menu-bar-open' which calls `tmm-menubar' right?
And in my case here `tmm-add-prompt' is called and error occur.
I think it would be safer to check if `minibuffer-completion-table' is a
table or a (a)list, and run the appropriate code to handle both cases.
Though `all-completions' can handle both cases here i think.
I still not understand the purpose of `tmm-add-prompt', what does it
want to complete here? A list of buffers? Why?
> I see a small error in tmm.el which could explain why tmm-add-prompt
> lingers on minibuffer-setup-hook longer than desired. I've installed the
> patch below, please see if it helps.
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---
`anything-completion-mode' is only using his own
`completing-read-function'.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-16 8:27 ` Thierry Volpiatto
@ 2011-11-16 13:32 ` Stefan Monnier
2011-11-16 16:36 ` Thierry Volpiatto
0 siblings, 1 reply; 9+ messages in thread
From: Stefan Monnier @ 2011-11-16 13:32 UTC (permalink / raw
To: Thierry Volpiatto; +Cc: 10053
> 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.
> 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.
Stefan
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-16 13:32 ` Stefan Monnier
@ 2011-11-16 16:36 ` Thierry Volpiatto
2011-11-16 18:50 ` Stefan Monnier
0 siblings, 1 reply; 9+ messages in thread
From: Thierry Volpiatto @ 2011-11-16 16:36 UTC (permalink / raw
To: Stefan Monnier; +Cc: 10053
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\v.\211\300\232?\207" ["anything.el"] 3 "\n\n(fn NAME)"]) (quote nil) args)))
tmm-add-prompt()
#[nil "\301\302\b\"\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\b\206 . .\x1a.\x1c.\310\311.\x1a\".\v\312\313!B.^[.\x1c\314.\v\315\313\306\"\210\316\216\317.\x1d.\x1e.\x1f#\210\320 !\210\321\322!\210\323\216\324. .\x1e.!.\x1d.\".#&.\210,\v?\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) "\b\211JB\207" [v] 2] default-value post-command-hook (t) set-default ((byte-code "\b.\306\211.^[ :\203\x1f. @\211.\211A.@\211.\nL\210 A\211.\202\a.+\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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\b\"\"\207" [anything-argument-keys apply anything mapcar #[(key) "\302\b \"\207" [plist key plist-get] 3]] 5]()
anything-let-internal(nil #[nil "\301\302\303\304\b\"\"\207" [anything-argument-keys apply anything mapcar #[(key) "\302\b \"\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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) "\b.\305\211.^[\305. :\203/. @\211.:\203.\0\n@\202.\0\n.\306\307\vG\305\v$\210\v\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("\b.\306 !.\307\310\n\". \f\236\211.\243\211.^[\205.\0\306.^[!.\x1c.\x1d.\x1e.\x1f. .!.\".#.$\257\b.%\311.%\n\vD\".&\312\211.'.(.^[\313=\203J.\314.^[.\203a.\x0e.\204a.\315\316\317\216\320\321!\210\322 !)\"\210.^[\323=\204v.\x0e.;\203z.\324\325.\x1c\"\204z.\320\321!\210\326\216.^[\203\217.\x0e)\203\217.\327.^[.&\"\202\325.\x0e.\203\262.\x0e.\314=\203\262.\x0e.\x0e%>\330\331.\x1e.\x1f#\240\210\327.^[.%\"\202\325.\x0e.\203\300.\327.^[.%\"\202\325.\332.\x1d.\x1e.\x1f. .!.\".#.$\n\v&\n.\v\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\b.\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
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-16 16:36 ` Thierry Volpiatto
@ 2011-11-16 18:50 ` Stefan Monnier
2011-11-16 21:05 ` Thierry Volpiatto
0 siblings, 1 reply; 9+ messages in thread
From: Stefan Monnier @ 2011-11-16 18:50 UTC (permalink / raw
To: Thierry Volpiatto; +Cc: 10053
> 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\v.\211\300\232?\207" ["anything.el"] 3 "\n\n(fn
> NAME)"]) (quote nil) args)))
> tmm-add-prompt()
> #[nil "\301\302\b\"\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 "")
[...]
> 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"
[...]
> 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\
I think the chunks of backtrace above show that the
anything-completing-read-default has a problem: it creates a minibuffer,
like the default completing-read code, but it fails to set
minibuffer-completion-table, which breaks callers such as tmm.
Stefan
^ permalink raw reply [flat|nested] 9+ messages in thread
* bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt
2011-11-16 18:50 ` Stefan Monnier
@ 2011-11-16 21:05 ` Thierry Volpiatto
0 siblings, 0 replies; 9+ messages in thread
From: Thierry Volpiatto @ 2011-11-16 21:05 UTC (permalink / raw
To: Stefan Monnier; +Cc: 10053
Stefan Monnier <monnier@IRO.UMontreal.CA> writes:
> I think the chunks of backtrace above show that the
> anything-completing-read-default has a problem: it creates a minibuffer,
> like the default completing-read code, but it fails to set
> minibuffer-completion-table, which breaks callers such as tmm.
Indeed, it was not binded in `anything-completing-read-default'.
It is now fixed.
Many thanks to show me that.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 9+ messages in thread
end of thread, other threads:[~2011-11-16 21:05 UTC | newest]
Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-11-15 10:41 bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt Thierry Volpiatto
2011-11-15 20:27 ` Stefan Monnier
2011-11-15 21:37 ` Thierry Volpiatto
2011-11-16 2:26 ` Stefan Monnier
2011-11-16 8:27 ` Thierry Volpiatto
2011-11-16 13:32 ` Stefan Monnier
2011-11-16 16:36 ` Thierry Volpiatto
2011-11-16 18:50 ` Stefan Monnier
2011-11-16 21:05 ` Thierry Volpiatto
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.