From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.bugs Subject: bug#10053: Wrong use of minibuffer-completion-table in tmm-add-prompt Date: Wed, 16 Nov 2011 17:36:51 +0100 Message-ID: <87wrb0dnx8.fsf@gmail.com> References: <8739dpzmz3.fsf@gmail.com> <87fwhp2hko.fsf@gmail.com> <87zkfwwjy2.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1321461557 18397 80.91.229.12 (16 Nov 2011 16:39:17 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 16 Nov 2011 16:39:17 +0000 (UTC) Cc: 10053@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Nov 16 17:39:06 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RQiVp-000085-KU for geb-bug-gnu-emacs@m.gmane.org; Wed, 16 Nov 2011 17:39:06 +0100 Original-Received: from localhost ([::1]:52657 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RQiVp-0003Ga-7I for geb-bug-gnu-emacs@m.gmane.org; Wed, 16 Nov 2011 11:39:01 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:45251) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RQiVT-0003GC-Du for bug-gnu-emacs@gnu.org; Wed, 16 Nov 2011 11:38:58 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RQiV7-00011o-A8 for bug-gnu-emacs@gnu.org; Wed, 16 Nov 2011 11:38:39 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:51754) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RQiV7-00011b-1G for bug-gnu-emacs@gnu.org; Wed, 16 Nov 2011 11:38:17 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RQiVq-0006bo-Cn for bug-gnu-emacs@gnu.org; Wed, 16 Nov 2011 11:39:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Thierry Volpiatto Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 16 Nov 2011 16:39:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10053 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 10053-submit@debbugs.gnu.org id=B10053.132146148925331 (code B ref 10053); Wed, 16 Nov 2011 16:39:02 +0000 Original-Received: (at 10053) by debbugs.gnu.org; 16 Nov 2011 16:38:09 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RQiUu-0006aR-94 for submit@debbugs.gnu.org; Wed, 16 Nov 2011 11:38:09 -0500 Original-Received: from mail-bw0-f44.google.com ([209.85.214.44]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RQiUk-0006Zl-N6 for 10053@debbugs.gnu.org; Wed, 16 Nov 2011 11:38:02 -0500 Original-Received: by bkbzv15 with SMTP id zv15so832262bkb.3 for <10053@debbugs.gnu.org>; Wed, 16 Nov 2011 08:37:03 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-type:content-transfer-encoding; bh=dkKyUvEVnvppzOX77ywu77+NXVMLCVxWZgUkp/ciLig=; b=JrLrv0yU4K6EjgNXKFGBgYmsQjbZ2lCN1vlJlroNxd8+56JPkyWQCFVCqfvTiZ+JZy hKJSw7839070O0GaSdbMyUQRr0vN3xbgGOpu8krf6h8tG1Lowdku8N0bPg63gx+/cPNb IenKq/El1KX4VpnZboFPrl7B1UHExVDJF+Y1A= Original-Received: by 10.205.120.2 with SMTP id fw2mr21274805bkc.10.1321461422879; Wed, 16 Nov 2011 08:37:02 -0800 (PST) Original-Received: from thierry-MM061 (56.78.88.79.rev.sfr.net. [79.88.78.56]) by mx.google.com with ESMTPS id g25sm21040115fae.16.2011.11.16.08.36.55 (version=TLSv1/SSLv3 cipher=OTHER); Wed, 16 Nov 2011 08:36:59 -0800 (PST) In-Reply-To: (Stefan Monnier's message of "Wed, 16 Nov 2011 08:32:54 -0500") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.91 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 16 Nov 2011 11:39:02 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:53988 Archived-At: Stefan Monnier 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=0B.\211\300\232?\207" ["anything.el"] 3 "\n\n(fn NAME)"]) (quote nil) = args))) tmm-add-prompt() #[nil "\301\302\"\210\303 \207" [setup-hook remove-hook minibuffer-setup= -hook tmm-add-prompt] 3]() read-string("Menu bar (up/down to change, PgUp to menu): " nil nil "") anything-read-pattern-maybe("Menu bar (up/down to change, PgUp to menu): = " nil nil noresume nil "") byte-code("\306\211\211\307\206 . .=1A.=1C.\310\311.=1A\".=0B\312\313!B.= =1B.=1C\314.=0B\315\313\306\"\210\316\216\317.=1D.=1E.=1F#\210\320 !\210\32= 1\322!\210\323\216\324. .=1E.!.=1D.\".#&.\210,=0B?\205T.\325.$!\321\326\327= \330\331\"P!\210-\207" [any-buffer anything-buffer case-fold-search anythin= g-quit anything-in-persistent-action anything-source-name nil t mapcar #[(v= ) "\211JB\207" [v] 2] default-value post-command-hook (t) set-default ((by= te-code ".\306\211.=1B :\203=1F. @\211.\211A.@\211.\nL\210 A\211.\202=07.+= \f@.\307\305\fA\"\210\310\311!\207" [--orig-vars --cl-var-- value var --pos= t-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-exec= ute-selection-action-1 "[End session] " make-string 41 45 anything-restored= -variables --post-command-hook-pair --orig-vars any-resume any-input any-so= urces any-prompt any-preselect any-keymap any-default any-history] 7) anything-internal((((name . "menu-bar-open History") (candidates lambda n= il (let ((all (anything-comp-read-get-candidates history nil nil nil))) (an= ything-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 (le= ngth i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothin= g") (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=3D anything-pattern "")) (setq cands (ap= pend (list anything-pattern) cands))) (if (and default (not (string=3D defa= ult ""))) (delq nil (cons default (delete default cands))) cands))) (filter= ed-candidate-transformer #[(candidates source) ".\305\211.=1B\305. :\203/.= @\211.:\203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\210=0B\fB. A\211.\202 .\= f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-propertie= s 0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . "DoN= othing") (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 l= ambda nil (let ((all (anything-comp-read-get-candidates history nil nil nil= ))) (anything-fast-remove-dups (if (and default ...) (delq nil ...) all) :t= est (quote equal)))) (filtered-candidate-transformer lambda (candidates sou= rces) (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 (o= r must-match (string=3D anything-pattern "")) (setq cands (append ... cands= ))) (if (and default (not ...)) (delq nil (cons default ...)) cands))) (fil= tered-candidate-transformer #[(candidates source) ".\305\211.=1B\305. :\20= 3/. @\211.:\203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\210=0B\fB. A\211.\202= .\f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-proper= ties 0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . "= DoNothing") (action . action-fn) (volatile))) nil "Menu bar (up/down to cha= nge, 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-fa= st-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) al= l) :test (quote equal)))) (filtered-candidate-transformer lambda (candidate= s sources) (loop for i in candidates do (set-text-properties 0 (length i) n= il i) collect i)) (persistent-action) (persistent-help . "DoNothing") (acti= on . action-fn)) ((name . "menu-bar-open") (candidates lambda nil (let ((ca= nds (anything-comp-read-get-candidates collection test sort alistp))) (unle= ss (or must-match (string=3D anything-pattern "")) (setq cands (append (lis= t anything-pattern) cands))) (if (and default (not (string=3D default "")))= (delq nil (cons default (delete default cands))) cands))) (filtered-candid= ate-transformer #[(candidates source) ".\305\211.=1B\305. :\203/. @\211.:\= 203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\210=0B\fB. A\211.\202 .\f\237,\20= 7" [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))) (anyt= hing-fast-remove-dups (if (and default ...) (delq nil ...) all) :test (quot= e equal)))) (filtered-candidate-transformer lambda (candidates sources) (lo= op 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-ma= tch (string=3D anything-pattern "")) (setq cands (append ... cands))) (if (= and default (not ...)) (delq nil (cons default ...)) cands))) (filtered-can= didate-transformer #[(candidates source) ".\305\211.=1B\305. :\203/. @\211= .:\203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\210=0B\fB. A\211.\202 .\f\237,= \207" [candidates --cl-var-- i cand --cl-var-- nil set-text-properties 0] 6= ]) (requires-pattern . 0) (persistent-action) (persistent-help . "DoNothing= ") (action . action-fn) (volatile))) nil "Menu bar (up/down to change, PgUp= to menu): " noresume nil "*ac-mode-menu-bar-open*" nil "" history)) #[nil "\301\302\303\304\"\"\207" [anything-argument-keys apply anything = mapcar #[(key) "\302 \"\207" [plist key plist-get] 3]] 5]() anything-let-internal(nil #[nil "\301\302\303\304\"\"\207" [anything-arg= ument-keys apply anything mapcar #[(key) "\302 \"\207" [plist key plist-ge= t] 3]] 5]) anything(:sources (((name . "menu-bar-open History") (candidates lambda n= il (let ((all (anything-comp-read-get-candidates history nil nil nil))) (an= ything-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 (le= ngth i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothin= g") (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=3D anything-pattern "")) (setq cands (ap= pend (list anything-pattern) cands))) (if (and default (not (string=3D defa= ult ""))) (delq nil (cons default (delete default cands))) cands))) (filter= ed-candidate-transformer #[(candidates source) ".\305\211.=1B\305. :\203/.= @\211.:\203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\210=0B\fB. A\211.\202 .\= f\237,\207" [candidates --cl-var-- i cand --cl-var-- nil set-text-propertie= s 0] 6]) (requires-pattern . 0) (persistent-action) (persistent-help . "DoN= othing") (action . action-fn) (volatile))) :input nil :default "" :preselec= t nil :prompt "Menu bar (up/down to change, PgUp to menu): " :resume noresu= me :history history :buffer "*ac-mode-menu-bar-open*") anything-comp-read("Menu bar (up/down to change, PgUp to menu): " (("a=3D= =3D>Anything" Anything keymap "Anything" (All\ anything\ commands menu-item= "All anything commands" anything-execute-anything-command) (Find\ any\ Fil= es/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" anythin= g-recentf) (Locate menu-item "Locate" anything-locate) (Bookmarks menu-item= "Bookmarks" anything-c-pp-bookmarks))) (Buffers: menu-item "Buffers:" (key= map "Buffers:" (Find\ buffers menu-item "Find buffers" anything-buffers-lis= t))) (Commands: menu-item "Commands:" (keymap "Commands:" (Emacs\ Commands = menu-item "Emacs Commands" anything-M-x) (Externals\ Commands menu-item "Ex= ternals 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 men= u-item "Info at point" anything-info-at-point) (Emacs\ Manual\ index menu-i= tem "Emacs Manual index" anything-info-emacs) (Gnus\ Manual\ index menu-ite= m "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) (G= rep 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 K= ill ring" anything-show-kill-ring) (Browse\ register menu-item "Browse regi= ster" anything-register) (Browse\ code menu-item "Browse code" anything-bro= wse-code) (Mark\ Ring menu-item "Mark Ring" anything-all-mark-rings) (Regex= p\ handler menu-item "Regexp handler" anything-regexp) (Colors\ &\ Faces me= nu-item "Colors & Faces" anything-colors) (Show\ xfonts menu-item "Show xfo= nts" anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Symbols" anything-= ucs) (Imenu menu-item "Imenu" anything-imenu) (Google\ Suggest menu-item "G= oogle Suggest" anything-google-suggest) (Eval\ expression menu-item "Eval e= xpression" anything-eval-expression-with-eldoc) (Calcul\ expression menu-it= em "Calcul expression" anything-calcul-expression) (Man\ pages menu-item "M= an pages" anything-man-woman) (Top\ externals\ process menu-item "Top exter= nals process" anything-top) (Emacs\ internals\ process menu-item "Emacs int= ernals process" anything-list-emacs-process))) (nil-11 menu-item "----") (P= refered\ Options menu-item "Prefered Options" anything-configuration)) ("f= =3D=3D>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-exi= sting :enable (menu-bar-non-minibuffer-window-p) :help "Read an existing fi= le into an Emacs buffer") (dired menu-item "Open Directory..." dired :enabl= e (menu-bar-non-minibuffer-window-p) :help "Read a directory, to operate on= its files") (insert-file menu-item "Insert File..." insert-file :enable (m= enu-bar-non-minibuffer-window-p) :help "Insert another file into current bu= ffer") (kill-buffer menu-item "Close" kill-this-buffer :enable (kill-this-b= uffer-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 curre= nt buffer to its file") (write-file menu-item "Save As..." write-file :enab= le (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-w= indow-p)) :help "Write current buffer to another file") (revert-buffer menu= -item "Revert Buffer" revert-buffer :enable (or revert-buffer-function reve= rt-buffer-insert-file-contents-function (and buffer-file-number (or (buffer= -modified-p) (not (verify-visited-file-modtime ...))))) :help "Re-read curr= ent buffer from its file") (recover-session menu-item "Recover Crashed Sess= ion" recover-session :enable (and auto-save-list-file-prefix (file-director= y-p (file-name-directory auto-save-list-file-prefix)) (directory-files (fil= e-name-directory auto-save-list-file-prefix) nil (concat "\\`" (regexp-quot= e (file-name-nondirectory auto-save-list-file-prefix))) t)) :help "Recover = edits from a crashed session") (separator-print "--") (print-buffer menu-it= em "Print Buffer" print-buffer :enable (menu-bar-menu-frame-live-and-visibl= e-p) :help "Print current buffer with page headings") (print-region menu-it= em "Print Region" print-region :enable mark-active :help "Print region betw= een mark and current position") (ps-print-buffer-faces menu-item "Postscrip= t Print Buffer" ps-print-buffer-with-faces :enable (menu-bar-menu-frame-liv= e-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 PostSc= ript printer") (ps-print-buffer menu-item "Postscript Print Buffer (B+W)" p= s-print-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pret= ty-print current buffer in black and white to PostScript printer") (ps-prin= t-region menu-item "Postscript Print Region (B+W)" ps-print-region :enable = mark-active :help "Pretty-print marked region in black and white to PostScr= ipt printer") (separator-window "--") (new-window-below menu-item "New Wind= ow Below" split-window-below :enable (and (menu-bar-menu-frame-live-and-vis= ible-p) (menu-bar-non-minibuffer-window-p)) :help "Make new window below se= lected one") (new-window-on-right menu-item "New Window on Right" split-win= dow-right :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-n= on-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") (s= eparator-frame "--") (make-frame menu-item "New Frame" make-frame-command := visible (fboundp (quote make-frame-command)) :help "Open a new frame") (mak= e-frame-on-display menu-item "New Frame on Display..." make-frame-on-displa= y :visible (fboundp (quote make-frame-on-display)) :help "Open a new frame = on another display") (delete-this-frame menu-item "Delete Frame" delete-fra= me :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, t= hen exit") "File") ("e=3D=3D>Edit" edit keymap (undo menu-item "Undo" undo = :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq l= ast-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 be= tween mark and current position") (copy menu-item "Copy" kill-ring-save :en= able mark-active :help "Copy text in region between mark and current positi= on" :keys "\\[kill-ring-save]") (paste menu-item "Paste" yank :enable (and = (or (and (fboundp (quote x-selection-exists-p)) (x-selection-exists-p (quot= e CLIPBOARD))) (if (featurep (quote ns)) (cdr yank-menu) kill-ring)) (not b= uffer-read-only)) :help "Paste (yank) text most recently cut/copied") (past= e-from-menu menu-item "Paste from Kill Menu" yank-menu :enable (and (cdr ya= nk-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-act= ive (not buffer-read-only)) :help "Delete the text in region between mark a= nd 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 m= enu-item "Regexp Forward..." nonincremental-re-search-forward :help "Search= forward for a regular expression") (re-search-backward menu-item "Regexp B= ackwards..." nonincremental-re-search-backward :help "Search backwards for = a regular expression") (separator-repeat-search "--") (repeat-search-fwd me= nu-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-searc= h-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 tagge= d files") (tags-continue menu-item "Continue Tags Search" tags-loop-continu= e :help "Continue last tags search operation") (separator-tag-isearch "--")= (i-search menu-item "Incremental Search" (keymap (isearch-forward menu-ite= m "Forward String..." isearch-forward :help "Search forward for a string as= you type it") (isearch-backward menu-item "Backward String..." isearch-bac= kward :help "Search backwards for a string as you type it") (isearch-forwar= d-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 backw= ards for a regular expression as you type it") "Incremental Search")) "Sear= ch")) (replace menu-item "Replace" (keymap (query-replace menu-item "Replac= e String..." query-replace :enable (not buffer-read-only) :help "Replace st= ring 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 occurrenc= e") (separator-replace-tags "--") (tags-repl menu-item "Replace in Tagged F= iles..." tags-query-replace :help "Interactively replace a regexp in all ta= gged files") (tags-repl-continue menu-item "Continue Replace" tags-loop-con= tinue :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 funct= ion or variable") (find-tag-otherw menu-item "Find Tag in Other Window..." = find-tag-other-window :help "Find function/variable definition in another w= indow") (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-oth= erw menu-item "Next Tag in Other Window" menu-bar-next-tag-other-window :en= able (and (boundp (quote tags-location-ring)) (not (ring-empty-p tags-locat= ion-ring))) :help "Find next function/variable matching last tag name in an= other 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 me= nu-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 m= enu-item "Text Properties" facemenu-menu) "Edit") ("o=3D=3D>Options" option= s keymap (transient-mark-mode menu-item "Highlight Active Region" transient= -mark-mode :enable (not cua-mode) :help "Make text in active region stand o= ut in color (Transient Mark mode)" :button (:toggle and (default-boundp (qu= ote transient-mark-mode)) (default-value (quote transient-mark-mode)))) (hi= ghlight-paren-mode menu-item "Highlight Matching Parentheses" show-paren-mo= de :help "Highlight matching/mismatched parentheses at cursor (Show Paren m= ode)" :button (:toggle and (default-boundp (quote show-paren-mode)) (defaul= t-value (quote show-paren-mode)))) (highlight-separator "--") (line-wrappin= g 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-lin= es -1))) :help "Wrap long lines at window edge" :button (:radio and (null t= runcate-lines) (not (truncated-partial-width-window-p)) (not word-wrap)) :v= isible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-par= tial-width-window-p))) (truncate menu-item "Truncate Long Lines" (lambda ni= l (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)) :visi= ble (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partia= l-width-window-p))) (word-wrap menu-item "Word Wrap (Visual Line mode)" (la= mbda nil (interactive) (unless visual-line-mode (visual-line-mode 1)) (mess= age "Visual-Line mode enabled")) :help "Wrap long lines at word boundaries"= :button (:radio and (null truncate-lines) (not (truncated-partial-width-wi= ndow-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-visible-p)) "Lin= e 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-au= to-fill) text-mode-hook) (eq (quote turn-on-auto-fill) text-mode-hook))) (c= ase-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-key= s)) :help "Use shifted movement keys to set and extend the region" :button = (:toggle and (default-boundp (quote cua-mode)) (default-value (quote cua-mo= de)))) (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 (:t= oggle 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 (quo= te uniquify-buffer-name-style)) (default-value (quote uniquify-buffer-name-= style)))) (save-place menu-item "Save Place in Files between Sessions" togg= le-save-place-globally :help "Visit files of previous session when restarti= ng Emacs" :button (:toggle and (default-boundp (quote save-place)) (default= -value (quote save-place)))) (cursor-separator "--") (blink-cursor-mode men= u-item "Blink Cursor" blink-cursor-mode :help "Whether the cursor blinks (B= link 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-erro= r :help "Enter Lisp debugger when an error is signaled" :button (:toggle an= d (default-boundp (quote debug-on-error)) (default-value (quote debug-on-er= ror)))) (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 an= d (default-boundp (quote debug-on-quit)) (default-value (quote debug-on-qui= t)))) (mule-separator "--") (mule menu-item "Multilingual Environment" (key= map "Mule (Multilingual Environment)" (set-language-environment menu-item "= Set Language Environment" (keymap (Default menu-item "Default" setup-specif= ied-language-environment) "Set Language Environment" (Chinese "Chinese" . s= etup-chinese-environment-map) (Cyrillic "Cyrillic" . setup-cyrillic-environ= ment-map) (Indian "Indian" . setup-indian-environment-map) (Sinhala "Sinhal= a" . setup-specified-language-environment) (English "English" . setup-speci= fied-language-environment) (ASCII "ASCII" . setup-specified-language-enviro= nment) (Ethiopic "Ethiopic" . setup-specified-language-environment) (Europe= an "European" . setup-european-environment-map) (Turkish "Turkish" . setup-= specified-language-environment) (Greek "Greek" . setup-specified-language-e= nvironment) (Hebrew "Hebrew" . setup-specified-language-environment) (Windo= ws-1255 "Windows-1255" . setup-specified-language-environment) (Japanese "J= apanese" . setup-specified-language-environment) (Korean "Korean" . setup-s= pecified-language-environment) (Lao "Lao" . setup-specified-language-enviro= nment) (TaiViet "TaiViet" . setup-specified-language-environment) (Thai "Th= ai" . setup-specified-language-environment) (Tibetan "Tibetan" . setup-spec= ified-language-environment) (Vietnamese "Vietnamese" . setup-specified-lang= uage-environment) (IPA "IPA" . setup-specified-language-environment) (Arabi= c "Arabic" . setup-specified-language-environment) (UTF-8 "UTF-8" . setup-s= pecified-language-environment) (Khmer "Khmer" . setup-specified-language-en= vironment) (Burmese "Burmese" . setup-specified-language-environment) (Cham= "Cham" . setup-specified-language-environment))) (separator-mule "--") (to= ggle-input-method menu-item "Toggle Input Method" toggle-input-method) (set= -input-method menu-item "Select Input Method..." set-input-method) (separat= or-input-method "--") (set-various-coding-system menu-item "Set Coding Syst= ems" (keymap "Set Coding System" (universal-coding-system-argument menu-ite= m "For Next Command" universal-coding-system-argument :help "Coding system = to be used by next command") (separator-1 "--") (set-buffer-file-coding-sys= tem menu-item "For Saving This Buffer" set-buffer-file-coding-system :help = "How to encode this buffer when saved") (revert-buffer-with-coding-system m= enu-item "For Reverting This File Now" revert-buffer-with-coding-system :en= able 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-sy= stem menu-item "For Terminal" set-terminal-coding-system :enable (null ...)= :help "How to encode terminal output") (separator-3 "--") (set-selection-c= oding-system menu-item "For X Selections/Clipboard" set-selection-coding-sy= stem :visible (display-selections-p) :help "How to en/decode data to/from s= election/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-proce= ss-coding-system :visible (fboundp ...) :enable (get-buffer-process ...) :h= elp "How to en/decode I/O from/to subprocess connected to this buffer")) :e= nable (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 say= s HELLO in many languages") (separator-coding-system "--") (describe-langua= ge-environment menu-item "Describe Language Environment" (keymap (Default m= enu-item "Default" describe-specified-language-support) "Describe Language = Environment" (Chinese "Chinese" . describe-chinese-environment-map) (Cyrill= ic "Cyrillic" . describe-cyrillic-environment-map) (Indian "Indian" . descr= ibe-indian-environment-map) (Sinhala "Sinhala" . describe-specified-languag= e-support) (English "English" . describe-specified-language-support) (ASCII= "ASCII" . describe-specified-language-support) (Ethiopic "Ethiopic" . desc= ribe-specified-language-support) (European "European" . describe-european-e= nvironment-map) (Turkish "Turkish" . describe-specified-language-support) (= Greek "Greek" . describe-specified-language-support) (Hebrew "Hebrew" . des= cribe-specified-language-support) (Windows-1255 "Windows-1255" . describe-s= pecified-language-support) (Japanese "Japanese" . describe-specified-langua= ge-support) (Korean "Korean" . describe-specified-language-support) (Lao "L= ao" . describe-specified-language-support) (TaiViet "TaiViet" . describe-sp= ecified-language-support) (Thai "Thai" . describe-specified-language-suppor= t) (Tibetan "Tibetan" . describe-specified-language-support) (Vietnamese "V= ietnamese" . describe-specified-language-support) (IPA "IPA" . describe-spe= cified-language-support) (Arabic "Arabic" . describe-specified-language-sup= port) (UTF-8 "UTF-8" . describe-specified-language-support) (Khmer "Khmer" = . describe-specified-language-support) (Burmese "Burmese" . describe-specif= ied-language-support)) :help "Show multilingual settings for a specific lan= guage") (describe-input-method menu-item "Describe Input Method..." describ= e-input-method :help "Keyboard layout for a specific input method") (descri= be-coding-system menu-item "Describe Coding System..." describe-coding-syst= em) (list-character-sets menu-item "List Character Sets" list-character-set= s :help "Show table of available character sets") (mule-diag menu-item "Sho= w All of Mule Status" mule-diag :help "Display multilingual environment set= tings"))) (showhide-separator "--") (showhide menu-item "Show/Hide" (keymap= (showhide-tool-bar menu-item "Tool-bar" toggle-tool-bar-mode-from-frame :h= elp "Turn tool-bar on/off" :visible (display-graphic-p) :button (:toggle me= nu-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-fro= m-frame :help "Turn menu-bar on/off" :button (:toggle menu-bar-positive-p (= frame-parameter (menu-bar-frame-for-menubar) (quote menu-bar-lines)))) (sho= whide-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Turn tooltips o= n/off" :visible (and (display-graphic-p) (fboundp (quote x-show-tip))) :but= ton (: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 s= ide" :visible (display-graphic-p) :button (:radio eq ... ...)) (right menu-= item "On the Right" menu-bar-right-scroll-bar :help "Scroll-bar on the righ= t side" :visible (display-graphic-p) :button (:radio eq ... ...)) "Scroll-b= ar") :visible (display-graphic-p)) (showhide-fringe menu-item "Fringe" (key= map (none menu-item "None" menu-bar-showhide-fringe-menu-customize-disable = :help "Turn off fringe" :visible (display-graphic-p) :button (:radio eq fri= nge-mode 0)) (left menu-item "On the Left" menu-bar-showhide-fringe-menu-cu= stomize-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 ri= ght side" :visible (display-graphic-p) :button (:radio equal fringe-mode ..= .)) (default menu-item "Default" menu-bar-showhide-fringe-menu-customize-re= set :help "Default width fringe on both left and right side" :visible (disp= lay-graphic-p) :button (:radio eq fringe-mode nil)) (customize menu-item "C= ustomize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed cu= stomization of fringe" :visible (display-graphic-p)) (indicate-empty-lines = menu-item "Empty Line Indicators" toggle-indicate-empty-lines :help "Indica= te 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)) (show= hide-speedbar menu-item "Speedbar" speedbar-frame-mode :help "Display a Spe= edbar 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 a= nd Mail" display-time-mode :help "Display time, system load averages and ma= il 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 stat= us information in mode line" :button (:toggle and (default-boundp (quote di= splay-battery-mode)) (default-value (quote display-battery-mode)))) (lineco= lumn-separator "--") (size-indication-mode menu-item "Size Indication" size= -indication-mode :help "Show the size of the buffer in the mode line" :butt= on (:toggle and (default-boundp (quote size-indication-mode)) (default-valu= e (quote size-indication-mode)))) (line-number-mode menu-item "Line Numbers= " line-number-mode :help "Show the current line number in the mode line" :b= utton (: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 Optio= ns" menu-bar-options-save :help "Save options set from the menu above") (pa= ckage menu-item "Manage Emacs Packages" package-list-packages :help "Instal= l 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 "To= p-level Customization Group" customize :help "The master group called `Emac= s'") (customize-browse menu-item "Browse Customization Groups" customize-br= owse :help "Browse all customization groups") (separator-3 "--") (customize= -saved menu-item "Saved Options" customize-saved :help "Customize previousl= y saved options") (customize-changed-options menu-item "New Options..." cus= tomize-changed-options :help "Options added or changed in recent Emacs vers= ions") (separator-2 "--") (customize-option menu-item "Specific Option..." = customize-option :help "Customize value of specific option") (customize-fac= e menu-item "Specific Face..." customize-face :help "Customize attributes o= f specific face") (customize-group menu-item "Specific Group..." customize-= group :help "Customize settings of specific group") (separator-1 "--") (cus= tomize-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-fa= ces menu-item "Faces Matching..." customize-apropos-faces :help "Browse fac= es matching a regexp or word list") "Customize")) "Options") ("b=3D=3D>Buff= ers" buffer keymap "Select Buffer" [("anything-config.el -- ...ything-c= onfig-qp/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-f= unction #)) ("anything.el -- ...ything-confi= g-qp/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-funct= ion #)) ("*Completions* *%" (nil) lambda nil (interact= ive) (funcall menu-bar-select-buffer-function #)) ("*= scratch* -- ...thierry/.emacs.d/" (nil) lambda nil (interactive) (funca= ll menu-bar-select-buffer-function #)) ("*Org Agenda* *%= " (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-function #= )) ("*Messages* *" (nil) lambda nil (interactive) (fu= ncall menu-bar-select-buffer-function #))] (command-sepa= rator "--") (next-buffer menu-item "Next Buffer" next-buffer :help "Switch = to the \"next\" buffer in a cyclic order") (previous-buffer menu-item "Prev= ious Buffer" previous-buffer :help "Switch to the \"previous\" buffer in a = cyclic order") (select-named-buffer menu-item "Select Named Buffer..." swit= ch-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-buffe= rs :help "Pop up a window listing all Emacs buffers")) ("E=3D=3D>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 men= u-item "3- anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-comma= nd-separator menu-item "--") (elscreen-create menu-item "Create Screen" els= creen-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 Sc= reen" elscreen-kill :help "Kill current screen") (elscreen-kill-screen-and-= buffers menu-item "Kill Screen and Buffers" elscreen-kill-screen-and-buffer= s :help "Kill current screen and buffers") (elscreen-kill-others menu-item = "Kill Other Screens" elscreen-kill-others :help "Kill other screens") (elsc= reen-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 or= der") (elscreen-toggle menu-item "Toggle Screen" elscreen-toggle :help "Tog= gle to the screen selected previously") (elscreen-command-separator menu-it= em "--") (elscreen-toggle-display-screen-number menu-item "Display Screen N= umber" elscreen-toggle-display-screen-number :help "Display screen number o= n the mode line" :button (:toggle . elscreen-display-screen-number)) (elscr= een-toggle-display-tab menu-item "Display Tab" elscreen-toggle-display-tab = :help "Display tab on the top of screen" :button (:toggle . elscreen-displa= y-tab))) ("t=3D=3D>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 compil= ation errors") (shell menu-item "Shell Command..." shell-command :help "Inv= oke a shell command and catch its output") (shell-on-region menu-item "Shel= l 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 "Pro= ject support (EDE)" global-ede-mode :help "Toggle the Emacs Development Env= ironment (Global EDE mode)" :button (:toggle bound-and-true-p global-ede-mo= de)) (semantic menu-item "Source Code Parsers (Semantic)" semantic-mode :he= lp "Toggle automatic parsing in source code buffers (Semantic mode)" :butto= n (:toggle bound-and-true-p semantic-mode)) (separator-prog "--") (spell me= nu-item "Spell Checking" ispell-menu-map) (separator-spell "--") (compare m= enu-item "Compare (Ediff)" menu-bar-ediff-menu) (ediff-merge menu-item "Mer= ge" menu-bar-ediff-merge-menu) (epatch menu-item "Apply Patch" menu-bar-epa= tch-menu) (separator-compare "--") (vc menu-item "Version Control" vc-menu-= map :filter vc-menu-map-filter) (DVC menu-item "DVC" (keymap "DVC" (Show\ B= ookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil menu-item "---") (n= il-2 menu-item "Tree Commands:") (View\ Diff menu-item "View Diff" dvc-diff= ) (View\ Status menu-item "View Status" dvc-status) (View\ Missing menu-ite= m "View Missing" dvc-missing) (View\ Log menu-item "View Log" dvc-log) (Vie= w\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log m= enu-item "Edit Commit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 me= nu-item "File Commands:") (Add\ Files menu-item "Add Files" dvc-add-files) = (Revert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files me= nu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Lo= g Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repositor= y 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 Ma= il (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 (e= q 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 ca= lendar") (calc menu-item "Programmable Calculator" calc :help "Invoke the E= macs built-in full scientific calculator") (simple-calculator menu-item "Si= mple Calculator" calculator :help "Invoke the Emacs built-in quick calculat= or") (separator-encryption-decryption "--") (encryption-decryption menu-ite= m "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 "V= erify File..." epa-verify-file :help "Verify digital signature of a file") = (sign-file menu-item "Sign File..." epa-sign-file :help "Create digital sig= nature of a file") (separator-file "--") (decrypt-region menu-item "Decrypt= Region" epa-decrypt-region :help "Decrypt the current region") (encrypt-re= gion menu-item "Encrypt Region" epa-encrypt-region :help "Encrypt the curre= nt region") (verify-region menu-item "Verify Region" epa-verify-region :hel= p "Verify digital signature of the current region") (sign-region menu-item = "Sign Region" epa-sign-region :help "Create digital signature of the curren= t region") (separator-keys "--") (list-keys menu-item "List Keys" epa-list-= keys :help "Browse your public keyring") (import-keys menu-item "Import Key= s from File..." epa-import-keys :help "Import public keys from a file") (im= port-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") (inser= t-keys menu-item "Insert Keys" epa-insert-keys :help "Insert public keys af= ter the current point") "Encryption/Decryption")) (separator-games "--") (g= ames 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") (so= litaire menu-item "Solitaire" solitaire :help "Get rid of all the stones") = (tetris menu-item "Tetris" tetris :help "Falling blocks game") (zone menu-i= tem "Zone Out" zone :help "Play tricks with Emacs display when Emacs is idl= e") "Games")) "Tools") ("l=3D=3D>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" :ena= ble mark-active) (comment-region menu-item "Comment Out Region" comment-reg= ion :help "Comment or uncomment each line in the region" :enable mark-activ= e) (separator-format "--") (eval-sexp menu-item "Evaluate Last S-expression= " eval-last-sexp :help "Evaluate sexp before point; print value in minibuff= er") (eval-region menu-item "Evaluate Region" eval-region :help "Execute th= e region as Lisp code" :enable mark-active) (eval-buffer menu-item "Evaluat= e Buffer" eval-buffer :help "Execute the current buffer as Lisp code") (iel= m menu-item "Interactive Expression Evaluation" ielm :help "Interactively e= valuate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-i= tem "Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile th= e file containing the current buffer") (emacs-byte-compile-and-load menu-it= em "Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-com= pile 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 "Pr= int disassembled code for OBJECT in a buffer") (separator-byte "--") (edebu= g-defun menu-item "Instrument Function for Debugging" edebug-defun :help "E= valuate 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-d= efun :help "Lint the function at point") (lint-b menu-item "Lint Buffer" el= int-current-buffer :help "Lint the current buffer") (lint-f menu-item "Lint= File..." elint-file :help "Lint a file") (lint-di menu-item "Lint Director= y..." elint-directory :help "Lint a directory")) (profiling "Profiling" key= map (prof-func menu-item "Instrument Function..." elp-instrument-function := help "Instrument a function for profiling") (prof-pack menu-item "Instrumen= t Package..." elp-instrument-package :help "Instrument for profiling all fu= nction that start with a prefix") (prof-res menu-item "Show Profiling Resul= ts" elp-results :help "Display current profiling results") (prof-resfunc me= nu-item "Reset Counters for Function..." elp-reset-function :help "Reset th= e profiling information for a function") (prof-resall menu-item "Reset Coun= ters for All Functions" elp-reset-all :help "Reset the profiling informatio= n for all functions being profiled") (sep-rem "--") (prof-restfunc menu-ite= m "Remove Instrumentation for Function..." elp-restore-function :help "Rest= ore an instrumented function to its original definition") (prof-restall men= u-item "Remove Instrumentation for All Functions" elp-restore-all :help "Re= store 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 Q= uietly..." trace-function-background :help "Trace the function with trace o= utput going quietly to a buffer") (tr-sep "--") (tr-uf menu-item "Untrace F= unction..." untrace-function :help "Untrace function, and possibly activate= all remaining advice") (tr-a menu-item "Untrace All" untrace-all :help "Un= trace all currently traced functions")) (re-builder menu-item "Construct Re= gexp" re-builder :help "Construct a regexp interactively") (checkdoc menu-i= tem "Check Documentation Strings" checkdoc :help "Check documentation strin= gs for style requirements") (eldoc menu-item "Auto-Display Documentation St= rings" eldoc-mode :button (:toggle bound-and-true-p eldoc-mode) :help "Disp= lay the documentation string for the item under cursor") "Emacs-Lisp") ("h= =3D=3D>Help" help-menu keymap (emacs-tutorial menu-item "Emacs Tutorial" he= lp-with-tutorial :help "Learn how to use Emacs") (emacs-tutorial-language-s= pecific menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-= spec-language :help "Learn how to use Emacs (choose a language)") (emacs-fa= q menu-item "Emacs FAQ" view-emacs-FAQ :help "Frequently asked (and answere= d) questions about Emacs") (emacs-news menu-item "Emacs News" view-emacs-ne= ws :help "New features of this version") (emacs-known-problems menu-item "E= macs Known Problems" view-emacs-problems :help "Read about known problems w= ith Emacs") (send-emacs-bug-report menu-item "Send Bug Report..." report-em= acs-bug :help "Send e-mail to Emacs maintainers") (emacs-psychotherapist me= nu-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-glo= ssary :help "Display the Glossary section of the Emacs manual") (lookup-sub= ject-in-emacs-manual menu-item "Look Up Subject in User Manual..." emacs-in= dex-search :help "Find description of a subject in Emacs User manual") (loo= kup-subject-in-elisp-manual menu-item "Look Up Subject in ELisp Manual..." = elisp-index-search :help "Find description of a subject in Emacs Lisp manua= l") (lookup-key-in-manual menu-item "Look Up Key in User Manual..." Info-go= to-emacs-key-command-node :help "Display manual section that describes a ke= y") (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 me= nu-item "Find Options by Value..." apropos-value :help "Find variables whos= e values match a regexp") (find-any-object-by-name menu-item "Find Any Obje= ct by Name..." apropos :help "Find symbols of any kind whose names match a = regexp") (search-documentation-strings menu-item "Search Documentation Stri= ngs..." apropos-documentation :help "Find functions and variables whose doc= strings match a regexp") "Search Documentation")) (describe menu-item "Des= cribe" (keymap (describe-mode menu-item "Describe Buffer Modes" describe-mo= de :help "Describe this buffer's major and minor mode") (describe-key-1 men= u-item "Describe Key or Mouse Operation..." describe-key :help "Display doc= umentation of command bound to a key, a click, or a menu-item") (describe-f= unction menu-item "Describe Function..." describe-function :help "Display d= ocumentation of function/command") (describe-variable menu-item "Describe V= ariable..." describe-variable :help "Display documentation of variable/opti= on") (describe-face menu-item "Describe Face..." describe-face :help "Displ= ay the properties of a face") (describe-package menu-item "Describe Package= ..." describe-package :help "Display documentation of a Lisp package") (des= cribe-current-display-table menu-item "Describe Display Table" describe-cur= rent-display-table :help "Describe the current display table") (list-keybin= dings menu-item "List Key Bindings" describe-bindings :help "Display all cu= rrent key bindings (keyboard shortcuts)") (separator-desc-mule "--") (descr= ibe-language-environment menu-item "Describe Language Environment" (keymap = (Default menu-item "Default" describe-specified-language-support) "Describe= Language Environment" (Chinese "Chinese" . describe-chinese-environment-ma= p) (Cyrillic "Cyrillic" . describe-cyrillic-environment-map) (Indian "India= n" . describe-indian-environment-map) (Sinhala "Sinhala" . describe-specifi= ed-language-support) (English "English" . describe-specified-language-suppo= rt) (ASCII "ASCII" . describe-specified-language-support) (Ethiopic "Ethiop= ic" . describe-specified-language-support) (European "European" . describe-= european-environment-map) (Turkish "Turkish" . describe-specified-language-= support) (Greek "Greek" . describe-specified-language-support) (Hebrew "Heb= rew" . describe-specified-language-support) (Windows-1255 "Windows-1255" . = describe-specified-language-support) (Japanese "Japanese" . describe-specif= ied-language-support) (Korean "Korean" . describe-specified-language-suppor= t) (Lao "Lao" . describe-specified-language-support) (TaiViet "TaiViet" . d= escribe-specified-language-support) (Thai "Thai" . describe-specified-langu= age-support) (Tibetan "Tibetan" . describe-specified-language-support) (Vie= tnamese "Vietnamese" . describe-specified-language-support) (IPA "IPA" . de= scribe-specified-language-support) (Arabic "Arabic" . describe-specified-la= nguage-support) (UTF-8 "UTF-8" . describe-specified-language-support) (Khme= r "Khmer" . describe-specified-language-support) (Burmese "Burmese" . descr= ibe-specified-language-support))) (describe-input-method menu-item "Describ= e Input Method..." describe-input-method :visible (default-value (quote ena= ble-multibyte-characters)) :help "Keyboard layout for specific input method= ") (describe-coding-system menu-item "Describe Coding System..." describe-c= oding-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 ena= ble-multibyte-characters))) (mule-diag menu-item "Show All of Mule Status" = mule-diag :visible (default-value (quote enable-multibyte-characters)) :hel= p "Display multilingual environment settings") "Describe")) (emacs-manual m= enu-item "Read the Emacs Manual" info-emacs-manual :help "Full documentatio= n 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-refere= nce 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-su= bject-in-all-manuals menu-item "Lookup Subject in all Manuals..." info-apro= pos :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-it= em "Read Man Page..." manual-entry :help "Man-page docs for external comman= ds and libraries") "More Manuals")) (find-emacs-packages menu-item "Search = Built-in Packages" finder-by-keyword :help "Find built-in packages and feat= ures by keyword") (external-packages menu-item "Finding Extra Packages" men= u-bar-help-extra-packages :help "Lisp packages distributed separately for u= se in Emacs") (sep2 "--") (getting-new-versions menu-item "Getting New Vers= ions" describe-distribution :help "How to get the latest version of Emacs")= (describe-copying menu-item "Copying Conditions" describe-copying :help "S= how the Emacs license (GPL)") (describe-no-warranty menu-item "(Non)Warrant= y" describe-no-warranty :help "Explain that Emacs has NO WARRANTY") (sep4 "= --") (about-emacs menu-item "About Emacs" about-emacs :help "Display versio= n number, copyright info, and basic help") (about-gnu-project menu-item "Ab= out GNU" describe-gnu-project :help "About the GNU System, GNU Project, and= GNU/Linux") "Help")) :test nil :fc-transformer #[(candidates source) ".\3= 05\211.=1B\305. :\203/. @\211.:\203.=00\n@\202.=00\n.\306\307=0BG\305=0B$\2= 10=0B\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=3D=3D>Anything" Anything keymap "Anything" (All\ anything\ co= mmands 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 "Recen= t Files" anything-recentf) (Locate menu-item "Locate" anything-locate) (Boo= kmarks menu-item "Bookmarks" anything-c-pp-bookmarks))) (Buffers: menu-item= "Buffers:" (keymap "Buffers:" (Find\ buffers menu-item "Find buffers" anyt= hing-buffers-list))) (Commands: menu-item "Commands:" (keymap "Commands:" (= Emacs\ Commands menu-item "Emacs Commands" anything-M-x) (Externals\ Comman= ds menu-item "Externals Commands" anything-c-run-external-command))) (Help:= menu-item "Help:" (keymap "Help:" (Anything\ Apropos menu-item "Anything A= propos" anything-c-apropos))) (Info: menu-item "Info:" (keymap "Info:" (Inf= o\ at\ point menu-item "Info at point" anything-info-at-point) (Emacs\ Manu= al\ 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" an= ything-occur) (Grep menu-item "Grep" anything-do-grep) (Etags menu-item "Et= ags" anything-c-etags-select) (Lisp\ complete\ at\ point menu-item "Lisp co= mplete at point" anything-lisp-completion-at-point) (Browse\ Kill\ ring men= u-item "Browse Kill ring" anything-show-kill-ring) (Browse\ register menu-i= tem "Browse register" anything-register) (Browse\ code menu-item "Browse co= de" anything-browse-code) (Mark\ Ring menu-item "Mark Ring" anything-all-ma= rk-rings) (Regexp\ handler menu-item "Regexp handler" anything-regexp) (Col= ors\ &\ Faces menu-item "Colors & Faces" anything-colors) (Show\ xfonts men= u-item "Show xfonts" anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Sy= mbols" anything-ucs) (Imenu menu-item "Imenu" anything-imenu) (Google\ Sugg= est menu-item "Google Suggest" anything-google-suggest) (Eval\ expression m= enu-item "Eval expression" anything-eval-expression-with-eldoc) (Calcul\ ex= pression menu-item "Calcul expression" anything-calcul-expression) (Man\ pa= ges 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-conf= iguration)) ("f=3D=3D>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..." men= u-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 :enab= le (kill-this-buffer-enabled-p) :help "Discard (kill) current buffer") (sep= arator-save "--") (save-buffer menu-item "Save" save-buffer :enable (and (b= uffer-modified-p) (buffer-file-name) (menu-bar-non-minibuffer-window-p)) :h= elp "Save current buffer to its file") (write-file menu-item "Save As..." w= rite-file :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-n= on-minibuffer-window-p)) :help "Write current buffer to another file") (rev= ert-buffer menu-item "Revert Buffer" revert-buffer :enable (or revert-buffe= r-function revert-buffer-insert-file-contents-function (and buffer-file-num= ber (or (buffer-modified-p) (not (verify-visited-file-modtime ...))))) :hel= p "Re-read current buffer from its file") (recover-session menu-item "Recov= er Crashed Session" recover-session :enable (and auto-save-list-file-prefix= (file-directory-p (file-name-directory auto-save-list-file-prefix)) (direc= tory-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 "Pr= int 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 PostS= cript printer") (ps-print-region-faces menu-item "Postscript Print Region" = ps-print-region-with-faces :enable mark-active :help "Pretty-print marked r= egion 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 pri= nter") (ps-print-region menu-item "Postscript Print Region (B+W)" ps-print-= region :enable mark-active :help "Pretty-print marked region in black and w= hite to PostScript printer") (separator-window "--") (new-window-below menu= -item "New Window Below" split-window-below :enable (and (menu-bar-menu-fra= me-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 R= ight" 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-wi= ndows :enable (not (one-window-p t nil)) :help "Make selected window fill w= hole frame") (separator-frame "--") (make-frame menu-item "New Frame" make-= frame-command :visible (fboundp (quote make-frame-command)) :help "Open a n= ew frame") (make-frame-on-display menu-item "New Frame on Display..." make-= frame-on-display :visible (fboundp (quote make-frame-on-display)) :help "Op= en a new frame on another display") (delete-this-frame menu-item "Delete Fr= ame" delete-frame :visible (fboundp (quote delete-frame)) :enable (delete-f= rame-enabled-p) :help "Delete currently selected frame") (separator-exit "-= -") (exit-emacs menu-item "Quit" save-buffers-kill-terminal :help "Save uns= aved buffers, then exit") "File") ("e=3D=3D>Edit" edit keymap (undo menu-it= em "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-l= ist)) (if (eq last-command (quote undo)) (listp pending-undo-list) (consp b= uffer-undo-list))) :help "Undo last operation") (cut menu-item "Cut" kill-r= egion :enable (and mark-active (not buffer-read-only)) :help "Cut (kill) te= xt in region between mark and current position") (copy menu-item "Copy" kil= l-ring-save :enable mark-active :help "Copy text in region between mark and= current position" :keys "\\[kill-ring-save]") (paste menu-item "Paste" yan= k :enable (and (or (and (fboundp (quote x-selection-exists-p)) (x-selection= -exists-p (quote CLIPBOARD))) (if (featurep (quote ns)) (cdr yank-menu) kil= l-ring)) (not buffer-read-only)) :help "Paste (yank) text most recently cut= /copied") (paste-from-menu menu-item "Paste from Kill Menu" yank-menu :enab= le (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 :enabl= e (and mark-active (not buffer-read-only)) :help "Delete the text in region= between mark and current position") (mark-whole-buffer menu-item "Select A= ll" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/cop= y") (separator-search "--") (search menu-item "Search" (keymap (search-forw= ard menu-item "String Forward..." nonincremental-search-forward :help "Sear= ch forward for a string") (search-backward menu-item "String Backwards..." = nonincremental-search-backward :help "Search backwards for a string") (re-s= earch-forward menu-item "Regexp Forward..." nonincremental-re-search-forwar= d :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 "--") (repea= t-search-fwd menu-item "Repeat Forward" nonincremental-repeat-search-forwar= d :enable (or (and (eq menu-bar-last-search-type ...) search-ring) (and (eq= menu-bar-last-search-type ...) regexp-search-ring)) :help "Repeat last sea= rch forward") (repeat-search-back menu-item "Repeat Backwards" nonincrement= al-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-s= rch menu-item "Search Tagged Files..." tags-search :help "Search for a rege= xp in all tagged files") (tags-continue menu-item "Continue Tags Search" ta= gs-loop-continue :help "Continue last tags search operation") (separator-ta= g-isearch "--") (i-search menu-item "Incremental Search" (keymap (isearch-f= orward 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-regex= p :help "Search forward for a regular expression as you type it") (isearch-= backward-regexp menu-item "Backward Regexp..." isearch-backward-regexp :hel= p "Search backwards for a regular expression as you type it") "Incremental = Search")) "Search")) (replace menu-item "Replace" (keymap (query-replace me= nu-item "Replace String..." query-replace :enable (not buffer-read-only) :h= elp "Replace string interactively, ask about each occurrence") (query-repla= ce-regexp menu-item "Replace Regexp..." query-replace-regexp :enable (not b= uffer-read-only) :help "Replace regular expression interactively, ask about= each occurrence") (separator-replace-tags "--") (tags-repl menu-item "Repl= ace in Tagged Files..." tags-query-replace :help "Interactively replace a r= egexp 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..." go= to-line :help "Read a line number and go to that line") (go-to-pos menu-ite= m "Goto Buffer Position..." goto-char :help "Read a number N and go to buff= er 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) (separ= ator-tags "--") (find-tag menu-item "Find Tag..." find-tag :help "Find defi= nition of function or variable") (find-tag-otherw menu-item "Find Tag in Ot= her Window..." find-tag-other-window :help "Find function/variable definiti= on in another window") (next-tag menu-item "Find Next Tag" menu-bar-next-ta= g :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-o= ther-window :enable (and (boundp (quote tags-location-ring)) (not (ring-emp= ty-p tags-location-ring))) :help "Find next function/variable matching last= tag name in another window") (apropos-tags menu-item "Tags Apropos..." tag= s-apropos :help "Find function/variables whose names match regexp") (separa= tor-tag-file "--") (set-tags-name menu-item "Set Tags File Name..." visit-t= ags-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 buf= fer-read-only)) :help "Fill text in region to fit between left and right ma= rgin") (props menu-item "Text Properties" facemenu-menu) "Edit") ("o=3D=3D>= Options" options keymap (transient-mark-mode menu-item "Highlight Active Re= gion" transient-mark-mode :enable (not cua-mode) :help "Make text in active= region stand out in color (Transient Mark mode)" :button (:toggle and (def= ault-boundp (quote transient-mark-mode)) (default-value (quote transient-ma= rk-mode)))) (highlight-paren-mode menu-item "Highlight Matching Parentheses= " show-paren-mode :help "Highlight matching/mismatched parentheses at curso= r (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-w= rap menu-item "Wrap at Window Edge" (lambda nil (interactive) (if visual-li= ne-mode (visual-line-mode 0)) (setq word-wrap nil) (if truncate-lines (togg= le-truncate-lines -1))) :help "Wrap long lines at window edge" :button (:ra= dio 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 Li= nes" (lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (= setq word-wrap nil) (toggle-truncate-lines 1)) :help "Truncate long lines a= t window edge" :button (:radio or truncate-lines (truncated-partial-width-w= indow-p)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (t= runcated-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 w= ord boundaries" :button (:radio and (null truncate-lines) (not (truncated-p= artial-width-window-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-v= isible-p)) "Line Wrapping")) (auto-fill-mode menu-item "Auto Fill in Text M= odes" menu-bar-text-mode-auto-fill :help "Automatically fill text while typ= ing (Auto Fill mode)" :button (:toggle if (listp text-mode-hook) (member (q= uote 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-ca= se-fold-search :help "Ignore letter-case in search commands" :button (:togg= le 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 r= egion" :button (:toggle and (default-boundp (quote cua-mode)) (default-valu= e (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/pas= te" :button (:toggle and (default-boundp (quote cua-mode)) (default-value (= quote cua-mode)))) (edit-options-separator "--") (uniquify menu-item "Use D= irectory Names in Buffer Names" toggle-uniquify-buffer-names :help "Uniquif= y buffer names by adding parent directory names" :button (:toggle and (defa= ult-boundp (quote uniquify-buffer-name-style)) (default-value (quote uniqui= fy-buffer-name-style)))) (save-place menu-item "Save Place in Files between= Sessions" toggle-save-place-globally :help "Visit files of previous sessio= n when restarting Emacs" :button (:toggle and (default-boundp (quote save-p= lace)) (default-value (quote save-place)))) (cursor-separator "--") (blink-= cursor-mode menu-item "Blink Cursor" blink-cursor-mode :help "Whether the c= ursor blinks (Blink Cursor mode)" :button (:toggle and (default-boundp (quo= te blink-cursor-mode)) (default-value (quote blink-cursor-mode)))) (debugge= r-separator "--") (debug-on-error menu-item "Enter Debugger on Error" toggl= e-debug-on-error :help "Enter Lisp debugger when an error is signaled" :but= ton (:toggle and (default-boundp (quote debug-on-error)) (default-value (qu= ote 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" :but= ton (:toggle and (default-boundp (quote debug-on-quit)) (default-value (quo= te debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual En= vironment" (keymap "Mule (Multilingual Environment)" (set-language-environm= ent menu-item "Set Language Environment" (keymap (Default menu-item "Defaul= t" setup-specified-language-environment) "Set Language Environment" (Chines= e "Chinese" . setup-chinese-environment-map) (Cyrillic "Cyrillic" . setup-c= yrillic-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-envir= onment) (European "European" . setup-european-environment-map) (Turkish "Tu= rkish" . setup-specified-language-environment) (Greek "Greek" . setup-speci= fied-language-environment) (Hebrew "Hebrew" . setup-specified-language-envi= ronment) (Windows-1255 "Windows-1255" . setup-specified-language-environmen= t) (Japanese "Japanese" . setup-specified-language-environment) (Korean "Ko= rean" . setup-specified-language-environment) (Lao "Lao" . setup-specified-= language-environment) (TaiViet "TaiViet" . setup-specified-language-environ= ment) (Thai "Thai" . setup-specified-language-environment) (Tibetan "Tibeta= n" . setup-specified-language-environment) (Vietnamese "Vietnamese" . setup= -specified-language-environment) (IPA "IPA" . setup-specified-language-envi= ronment) (Arabic "Arabic" . setup-specified-language-environment) (UTF-8 "U= TF-8" . setup-specified-language-environment) (Khmer "Khmer" . setup-specif= ied-language-environment) (Burmese "Burmese" . setup-specified-language-env= ironment) (Cham "Cham" . setup-specified-language-environment))) (separator= -mule "--") (toggle-input-method menu-item "Toggle Input Method" toggle-inp= ut-method) (set-input-method menu-item "Select Input Method..." set-input-m= ethod) (separator-input-method "--") (set-various-coding-system menu-item "= Set Coding Systems" (keymap "Set Coding System" (universal-coding-system-ar= gument 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-codin= g-system :help "How to encode this buffer when saved") (revert-buffer-with-= coding-system menu-item "For Reverting This File Now" revert-buffer-with-co= ding-system :enable buffer-file-name :help "Revisit this file immediately u= sing specified coding system") (set-file-name-coding-system menu-item "For = File Name" set-file-name-coding-system :help "How to decode/encode file nam= es") (separator-2 "--") (set-keyboard-coding-system menu-item "For Keyboard= " set-keyboard-coding-system :help "How to decode keyboard input") (set-ter= minal-coding-system menu-item "For Terminal" set-terminal-coding-system :en= able (null ...) :help "How to encode terminal output") (separator-3 "--") (= set-selection-coding-system menu-item "For X Selections/Clipboard" set-sele= ction-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 (disp= lay-selections-p) :help "How to en/decode next selection/clipboard operatio= n") (set-buffer-process-coding-system menu-item "For I/O with Subprocess" s= et-buffer-process-coding-system :visible (fboundp ...) :enable (get-buffer-= process ...) :help "How to en/decode I/O from/to subprocess connected to th= is 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" (ke= ymap (Default menu-item "Default" describe-specified-language-support) "Des= cribe Language Environment" (Chinese "Chinese" . describe-chinese-environme= nt-map) (Cyrillic "Cyrillic" . describe-cyrillic-environment-map) (Indian "= Indian" . describe-indian-environment-map) (Sinhala "Sinhala" . describe-sp= ecified-language-support) (English "English" . describe-specified-language-= support) (ASCII "ASCII" . describe-specified-language-support) (Ethiopic "E= thiopic" . describe-specified-language-support) (European "European" . desc= ribe-european-environment-map) (Turkish "Turkish" . describe-specified-lang= uage-support) (Greek "Greek" . describe-specified-language-support) (Hebrew= "Hebrew" . describe-specified-language-support) (Windows-1255 "Windows-125= 5" . describe-specified-language-support) (Japanese "Japanese" . describe-s= pecified-language-support) (Korean "Korean" . describe-specified-language-s= upport) (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-specifi= ed-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 Met= hod..." describe-input-method :help "Keyboard layout for a specific input m= ethod") (describe-coding-system menu-item "Describe Coding System..." descr= ibe-coding-system) (list-character-sets menu-item "List Character Sets" lis= t-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 "Sho= w/Hide" (keymap (showhide-tool-bar menu-item "Tool-bar" toggle-tool-bar-mod= e-from-frame :help "Turn tool-bar on/off" :visible (display-graphic-p) :but= ton (:toggle menu-bar-positive-p (frame-parameter (menu-bar-frame-for-menub= ar) (quote tool-bar-lines)))) (menu-bar-mode menu-item "Menu-bar" toggle-me= nu-bar-mode-from-frame :help "Turn menu-bar on/off" :button (:toggle menu-b= ar-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-s= how-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 ... ni= l)) (left menu-item "On the Left" menu-bar-left-scroll-bar :help "Scroll-ba= r 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-ite= m "Fringe" (keymap (none menu-item "None" menu-bar-showhide-fringe-menu-cus= tomize-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-me= nu-customize-reset :help "Default width fringe on both left and right side"= :visible (display-graphic-p) :button (:radio eq fringe-mode nil)) (customi= ze menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize :he= lp "Detailed customization of fringe" :visible (display-graphic-p)) (indica= te-empty-lines menu-item "Empty Line Indicators" toggle-indicate-empty-line= s :help "Indicate trailing empty lines in fringe, globally" :button (:toggl= e and ... ...)) (showhide-fringe-ind menu-item "Buffer Boundaries" (keymap = ... ... ... ... ... ... "Buffer boundaries") :visible (display-graphic-p) := help "Indicate buffer boundaries in fringe") "Fringe") :visible (display-gr= aphic-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-ite= m "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)))) (sh= owhide-battery menu-item "Battery Status" display-battery-mode :help "Displ= ay battery status information in mode line" :button (:toggle and (default-b= oundp (quote display-battery-mode)) (default-value (quote display-battery-m= ode)))) (linecolumn-separator "--") (size-indication-mode menu-item "Size I= ndication" size-indication-mode :help "Show the size of the buffer in the m= ode line" :button (:toggle and (default-boundp (quote size-indication-mode)= ) (default-value (quote size-indication-mode)))) (line-number-mode menu-ite= m "Line Numbers" line-number-mode :help "Show the current line number in th= e 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-m= ode)) (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-i= tem "Save Options" menu-bar-options-save :help "Save options set from the m= enu above") (package menu-item "Manage Emacs Packages" package-list-package= s :help "Install or uninstall additional Emacs packages") (customize menu-i= tem "Customize Emacs" (keymap (customize-themes menu-item "Custom Themes" c= ustomize-themes :help "Choose a pre-defined customization theme") (customiz= e menu-item "Top-level Customization Group" customize :help "The master gro= up called `Emacs'") (customize-browse menu-item "Browse Customization Group= s" customize-browse :help "Browse all customization groups") (separator-3 "= --") (customize-saved menu-item "Saved Options" customize-saved :help "Cust= omize previously saved options") (customize-changed-options menu-item "New = Options..." customize-changed-options :help "Options added or changed in re= cent Emacs versions") (separator-2 "--") (customize-option menu-item "Speci= fic Option..." customize-option :help "Customize value of specific option")= (customize-face menu-item "Specific Face..." customize-face :help "Customi= ze attributes of specific face") (customize-group menu-item "Specific Group= ..." customize-group :help "Customize settings of specific group") (separat= or-1 "--") (customize-apropos menu-item "All Settings Matching..." customiz= e-apropos :help "Browse customizable settings matching a regexp or word lis= t") (customize-apropos-options menu-item "Options Matching..." customize-ap= ropos-options :help "Browse options matching a regexp or word list") (custo= mize-apropos-faces menu-item "Faces Matching..." customize-apropos-faces :h= elp "Browse faces matching a regexp or word list") "Customize")) "Options")= ("b=3D=3D>Buffers" buffer keymap "Select Buffer" [("anything-config.el = -- ...ything-config-qp/" (nil) lambda nil (interactive) (funcall menu-bar-= select-buffer-function #)) ("anything.el -- = ...ything-config-qp/" (nil) lambda nil (interactive) (funcall menu-bar-sele= ct-buffer-function #)) ("*Completions* *%" (nil) lambd= a nil (interactive) (funcall menu-bar-select-buffer-function #)) ("*scratch* -- ...thierry/.emacs.d/" (nil) lambda nil (inte= ractive) (funcall menu-bar-select-buffer-function #)) ("*= Org Agenda* *%" (nil) lambda nil (interactive) (funcall menu-bar-select-bu= ffer-function #)) ("*Messages* *" (nil) lambda nil (i= nteractive) (funcall menu-bar-select-buffer-function #))= ] (command-separator "--") (next-buffer menu-item "Next Buffer" next-buffer= :help "Switch to the \"next\" buffer in a cyclic order") (previous-buffer = menu-item "Previous Buffer" previous-buffer :help "Switch to the \"previous= \" buffer in a cyclic order") (select-named-buffer menu-item "Select Named = Buffer..." switch-to-buffer :help "Prompt for a buffer name, and select tha= t buffer in the current window") (list-all-buffers menu-item "List All Buff= ers" list-buffers :help "Pop up a window listing all Emacs buffers")) ("E= =3D=3D>ElScreen" elscreen keymap "Select Screen" (48 menu-item "0 *scratch= *" elscreen-jump :keys "C-z 0") (49 menu-item "1 *Org Agenda*" elscreen-ju= mp :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 "C= reate Screen" elscreen-create :help "Create a new screen and switch to it")= (elscreen-clone menu-item "Clone Screen" elscreen-clone :help "Create a ne= w screen with the window-configuration of current screen") (elscreen-kill m= enu-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 othe= r screens") (elscreen-next menu-item "Next Screen" elscreen-next :help "Swi= tch to the \"next\" screen in a cyclic order") (elscreen-previous menu-item= "Previous Screen" elscreen-previous :help "Switch to the \"previous\" scre= en 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 "Displa= y screen number on the mode line" :button (:toggle . elscreen-display-scree= n-number)) (elscreen-toggle-display-tab menu-item "Display Tab" elscreen-to= ggle-display-tab :help "Display tab on the top of screen" :button (:toggle = . elscreen-display-tab))) ("t=3D=3D>Tools" tools keymap (grep menu-item "Se= arch 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-c= ommand :help "Invoke a shell command and catch its output") (shell-on-regio= n menu-item "Shell Command on Region..." shell-command-on-region :enable ma= rk-active :help "Pass marked region to a shell command") (gdb menu-item "De= bugger (GDB)..." gdb :help "Debug a program from within Emacs with GDB") (e= de menu-item "Project support (EDE)" global-ede-mode :help "Toggle the Emac= s Development Environment (Global EDE mode)" :button (:toggle bound-and-tru= e-p global-ede-mode)) (semantic menu-item "Source Code Parsers (Semantic)" = semantic-mode :help "Toggle automatic parsing in source code buffers (Seman= tic mode)" :button (:toggle bound-and-true-p semantic-mode)) (separator-pro= g "--") (spell menu-item "Spell Checking" ispell-menu-map) (separator-spell= "--") (compare menu-item "Compare (Ediff)" menu-bar-ediff-menu) (ediff-mer= ge menu-item "Merge" menu-bar-ediff-merge-menu) (epatch menu-item "Apply Pa= tch" menu-bar-epatch-menu) (separator-compare "--") (vc menu-item "Version = Control" vc-menu-map :filter vc-menu-map-filter) (DVC menu-item "DVC" (keym= ap "DVC" (Show\ Bookmarks menu-item "Show Bookmarks" dvc-bookmarks) (nil me= nu-item "---") (nil-2 menu-item "Tree Commands:") (View\ Diff menu-item "Vi= ew Diff" dvc-diff) (View\ Status menu-item "View Status" dvc-status) (View\= Missing menu-item "View Missing" dvc-missing) (View\ Log menu-item "View L= og" dvc-log) (View\ ChangeLog menu-item "View ChangeLog" dvc-changelog) (Ed= it\ 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 "---") (Init= ialize\ repository menu-item "Initialize repository" dvc-init))) (pcl-cvs m= enu-item "PCL-CVS" cvs-global-menu) (separator-vc "--") (gnus menu-item "Re= ad 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 :v= isible (and read-mail-command (not (eq read-mail-command (quote ignore)))) = :help "Read your mail and reply to it") (compose-mail menu-item (format "Se= nd Mail (with %s)" (send-mail-item-name)) compose-mail :visible (and mail-u= ser-agent (not (eq mail-user-agent (quote ignore)))) :help "Send a mail mes= sage") (directory-search menu-item "Directory Search" eudc-tools-menu) (sep= arator-net "--") (calendar menu-item "Calendar" calendar :help "Invoke the = Emacs built-in calendar") (calc menu-item "Programmable Calculator" calc :h= elp "Invoke the Emacs built-in full scientific calculator") (simple-calcula= tor menu-item "Simple Calculator" calculator :help "Invoke the Emacs built-= in quick calculator") (separator-encryption-decryption "--") (encryption-de= cryption menu-item "Encryption/Decryption" (keymap (decrypt-file menu-item = "Decrypt File..." epa-decrypt-file :help "Decrypt a file") (encrypt-file me= nu-item "Encrypt File..." epa-encrypt-file :help "Encrypt a file") (verify-= file menu-item "Verify File..." epa-verify-file :help "Verify digital signa= ture of a file") (sign-file menu-item "Sign File..." epa-sign-file :help "C= reate digital signature of a file") (separator-file "--") (decrypt-region m= enu-item "Decrypt Region" epa-decrypt-region :help "Decrypt the current reg= ion") (encrypt-region menu-item "Encrypt Region" epa-encrypt-region :help "= Encrypt the current region") (verify-region menu-item "Verify Region" epa-v= erify-region :help "Verify digital signature of the current region") (sign-= region menu-item "Sign Region" epa-sign-region :help "Create digital signat= ure of the current region") (separator-keys "--") (list-keys menu-item "Lis= t 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-i= mport-keys-region :help "Import public keys from the current region") (expo= rt-keys menu-item "Export Keys" epa-export-keys :help "Export public keys t= o a file") (insert-keys menu-item "Insert Keys" epa-insert-keys :help "Inse= rt public keys after the current point") "Encryption/Decryption")) (separat= or-games "--") (games menu-item "Games" (keymap (5x5 menu-item "5x5" 5x5 :h= elp "Fill in all the squares on a 5x5 board") (adventure menu-item "Adventu= re" 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 m= ultiplication") (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 ga= me") (zone menu-item "Zone Out" zone :help "Play tricks with Emacs display = when Emacs is idle") "Games")) "Tools") ("l=3D=3D>Emacs-Lisp" emacs-lisp ke= ymap (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 Re= gion" 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 m= enu-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 "--") (by= te-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-loa= d :help "Byte-compile the current file (if it has changed), then load compi= led code") (byte-recompile menu-item "Byte-recompile Directory..." byte-rec= ompile-directory :help "Recompile every `.el' file in DIRECTORY that needs = recompilation") (disas menu-item "Disassemble Byte Compiled Object..." disa= ssemble :help "Print disassembled code for OBJECT in a buffer") (separator-= byte "--") (edebug-defun menu-item "Instrument Function for Debugging" edeb= ug-defun :help "Evaluate the top level form point is in, stepping through w= ith Edebug" :keys "C-u C-M-x") (lint "Linting" keymap (lint-d menu-item "Li= nt 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-it= em "Lint Directory..." elint-directory :help "Lint a directory")) (profilin= g "Profiling" keymap (prof-func menu-item "Instrument Function..." elp-inst= rument-function :help "Instrument a function for profiling") (prof-pack men= u-item "Instrument Package..." elp-instrument-package :help "Instrument for= profiling all function that start with a prefix") (prof-res menu-item "Sho= w Profiling Results" elp-results :help "Display current profiling results")= (prof-resfunc menu-item "Reset Counters for Function..." elp-reset-functio= n :help "Reset the profiling information for a function") (prof-resall menu= -item "Reset Counters for All Functions" elp-reset-all :help "Reset the pro= filing information for all functions being profiled") (sep-rem "--") (prof-= restfunc menu-item "Remove Instrumentation for Function..." elp-restore-fun= ction :help "Restore an instrumented function to its original definition") = (prof-restall menu-item "Remove Instrumentation for All Functions" elp-rest= ore-all :help "Restore the original definitions of all functions being prof= iled")) (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 func= tion with trace output going quietly to a buffer") (tr-sep "--") (tr-uf men= u-item "Untrace Function..." untrace-function :help "Untrace function, and = possibly activate all remaining advice") (tr-a menu-item "Untrace All" untr= ace-all :help "Untrace all currently traced functions")) (re-builder menu-i= tem "Construct Regexp" re-builder :help "Construct a regexp interactively")= (checkdoc menu-item "Check Documentation Strings" checkdoc :help "Check do= cumentation 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=3D=3D>Help" help-menu keymap (emacs-tutorial menu-item "Em= acs Tutorial" help-with-tutorial :help "Learn how to use Emacs") (emacs-tut= orial-language-specific menu-item "Emacs Tutorial (choose language)..." hel= p-with-tutorial-spec-language :help "Learn how to use Emacs (choose a langu= age)") (emacs-faq menu-item "Emacs FAQ" view-emacs-FAQ :help "Frequently as= ked (and answered) questions about Emacs") (emacs-news menu-item "Emacs New= s" view-emacs-news :help "New features of this version") (emacs-known-probl= ems menu-item "Emacs Known Problems" view-emacs-problems :help "Read about = known problems with Emacs") (send-emacs-bug-report menu-item "Send Bug Repo= rt..." report-emacs-bug :help "Send e-mail to Emacs maintainers") (emacs-ps= ychotherapist menu-item "Emacs Psychotherapist" doctor :help "Our doctor wi= ll help you feel better") (sep1 "--") (search-documentation menu-item "Sear= ch Documentation" (keymap (emacs-terminology menu-item "Emacs Terminology" = search-emacs-glossary :help "Display the Glossary section of the Emacs manu= al") (lookup-subject-in-emacs-manual menu-item "Look Up Subject in User Man= ual..." emacs-index-search :help "Find description of a subject in Emacs Us= er manual") (lookup-subject-in-elisp-manual menu-item "Look Up Subject in E= Lisp 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 Ma= nual..." Info-goto-emacs-key-command-node :help "Display manual section tha= t 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 "F= ind Commands by Name..." apropos-command :help "Find commands whose names m= atch a regexp") (find-options-by-name menu-item "Find Options by Name..." a= propos-variable :help "Find variables whose names match a regexp") (find-op= tion-by-value menu-item "Find Options by Value..." apropos-value :help "Fin= d variables whose values match a regexp") (find-any-object-by-name menu-ite= m "Find Any Object by Name..." apropos :help "Find symbols of any kind whos= e names match a regexp") (search-documentation-strings menu-item "Search Do= cumentation Strings..." apropos-documentation :help "Find functions and var= iables whose doc strings match a regexp") "Search Documentation")) (describ= e menu-item "Describe" (keymap (describe-mode menu-item "Describe Buffer Mo= des" describe-mode :help "Describe this buffer's major and minor mode") (de= scribe-key-1 menu-item "Describe Key or Mouse Operation..." describe-key :h= elp "Display documentation of command bound to a key, a click, or a menu-it= em") (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-f= ace :help "Display the properties of a face") (describe-package menu-item "= Describe Package..." describe-package :help "Display documentation of a Lis= p package") (describe-current-display-table menu-item "Describe Display Tab= le" describe-current-display-table :help "Describe the current display tabl= e") (list-keybindings menu-item "List Key Bindings" describe-bindings :help= "Display all current key bindings (keyboard shortcuts)") (separator-desc-m= ule "--") (describe-language-environment menu-item "Describe Language Envir= onment" (keymap (Default menu-item "Default" describe-specified-language-su= pport) "Describe Language Environment" (Chinese "Chinese" . describe-chines= e-environment-map) (Cyrillic "Cyrillic" . describe-cyrillic-environment-map= ) (Indian "Indian" . describe-indian-environment-map) (Sinhala "Sinhala" . = describe-specified-language-support) (English "English" . describe-specifie= d-language-support) (ASCII "ASCII" . describe-specified-language-support) (= Ethiopic "Ethiopic" . describe-specified-language-support) (European "Europ= ean" . describe-european-environment-map) (Turkish "Turkish" . describe-spe= cified-language-support) (Greek "Greek" . describe-specified-language-suppo= rt) (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) (TaiVi= et "TaiViet" . describe-specified-language-support) (Thai "Thai" . describe= -specified-language-support) (Tibetan "Tibetan" . describe-specified-langua= ge-support) (Vietnamese "Vietnamese" . describe-specified-language-support)= (IPA "IPA" . describe-specified-language-support) (Arabic "Arabic" . descr= ibe-specified-language-support) (UTF-8 "UTF-8" . describe-specified-languag= e-support) (Khmer "Khmer" . describe-specified-language-support) (Burmese "= Burmese" . describe-specified-language-support))) (describe-input-method me= nu-item "Describe Input Method..." describe-input-method :visible (default-= value (quote enable-multibyte-characters)) :help "Keyboard layout for speci= fic input method") (describe-coding-system menu-item "Describe Coding Syste= m..." describe-coding-system :visible (default-value (quote enable-multibyt= e-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-c= haracters)) :help "Display multilingual environment settings") "Describe"))= (emacs-manual menu-item "Read the Emacs Manual" info-emacs-manual :help "F= ull 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") (e= macs-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 manu= als") (lookup-subject-in-all-manuals menu-item "Lookup Subject in all Manua= ls..." info-apropos :help "Find description of a subject in all installed m= anuals") (order-emacs-manuals menu-item "Ordering Manuals" view-order-manua= ls :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 me= nu-item "Search Built-in Packages" finder-by-keyword :help "Find built-in p= ackages and features by keyword") (external-packages menu-item "Finding Ext= ra 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 ve= rsion of Emacs") (describe-copying menu-item "Copying Conditions" describe-= copying :help "Show the Emacs license (GPL)") (describe-no-warranty menu-it= em "(Non)Warranty" describe-no-warranty :help "Explain that Emacs has NO WA= RRANTY") (sep4 "--") (about-emacs menu-item "About Emacs" about-emacs :help= "Display version number, copyright info, and basic help") (about-gnu-proje= ct 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 "men= u-bar-open" "*ac-mode-menu-bar-open*") byte-code(".\306 !.\307\310\n\". \f\236\211.\243\211.=1B\205.=00\306.=1B= !.=1C.=1D.=1E.=1F. .!.\".#.$\257.%\311.%\n=0BD\".&\312\211.'.(.=1B\313=3D\= 203J.\314.=1B.\203a.=0E.\204a.\315\316\317\216\320\321!\210\322 !)\"\210.= =1B\323=3D\204v.=0E.;\203z.\324\325.=1C\"\204z.\320\321!\210\326\216.=1B\20= 3\217.=0E)\203\217.\327.=1B.&\"\202\325.=0E.\203\262.=0E.\314=3D\203\262.= =0E.=0E%>\330\331.=1E.=1F#\240\210\327.=1B.%\"\202\325.=0E.\203\300.\327.= =1B.%\"\202\325.\332.=1D.=1E.=1F. .!.\".#.$\n=0B&\n.=0B\207" [this-command = current-command str-command buf-name anything-completing-read-handlers-alis= t entry symbol-name format "*ac-mode-%s*" append nil ido ido-completing-rea= d throw --cl-block-anything-completing-read-default-- ((ac-mode 1)) ac-mode= -1 call-interactively completing-read string-match "^anything" ((byte-code= "\302\303!\210.\302\207" [current-command this-command ac-mode 1] 2)) app= ly all-completions "" anything-completing-read-default-1 def-com str-defcom= prompt collection predicate require-match initial-input hist def inherit-i= nput-method def-args any-args anything-completion-mode-start-message anythi= ng-completion-mode-quit-message anything-completion-mode] 12) anything-completing-read-default("Menu bar (up/down to change, PgUp to me= nu): " (("a=3D=3D>Anything" Anything keymap "Anything" (All\ anything\ comm= ands menu-item "All anything commands" anything-execute-anything-command) (= Find\ any\ Files/Buffers menu-item "Find any Files/Buffers" anything-for-fi= les) (Anything\ Everywhere menu-item "Anything Everywhere" ac-mode) (nil me= nu-item "----") (Files: menu-item "Files:" (keymap "Files:" (Find\ files me= nu-item "Find files" anything-find-files) (Recent\ Files menu-item "Recent = Files" anything-recentf) (Locate menu-item "Locate" anything-locate) (Bookm= arks menu-item "Bookmarks" anything-c-pp-bookmarks))) (Buffers: menu-item "= Buffers:" (keymap "Buffers:" (Find\ buffers menu-item "Find buffers" anythi= ng-buffers-list))) (Commands: menu-item "Commands:" (keymap "Commands:" (Em= acs\ Commands menu-item "Emacs Commands" anything-M-x) (Externals\ Commands= menu-item "Externals Commands" anything-c-run-external-command))) (Help: m= enu-item "Help:" (keymap "Help:" (Anything\ Apropos menu-item "Anything Apr= opos" 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-k= eywords) (Org\ headlines menu-item "Org headlines" anything-org-headlines))= ) (Tools: menu-item "Tools:" (keymap "Tools:" (Occur menu-item "Occur" anyt= hing-occur) (Grep menu-item "Grep" anything-do-grep) (Etags menu-item "Etag= s" anything-c-etags-select) (Lisp\ complete\ at\ point menu-item "Lisp comp= lete at point" anything-lisp-completion-at-point) (Browse\ Kill\ ring menu-= item "Browse Kill ring" anything-show-kill-ring) (Browse\ register menu-ite= m "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) (Color= s\ &\ Faces menu-item "Colors & Faces" anything-colors) (Show\ xfonts menu-= item "Show xfonts" anything-select-xfont) (Ucs\ Symbols menu-item "Ucs Symb= ols" anything-ucs) (Imenu menu-item "Imenu" anything-imenu) (Google\ Sugges= t menu-item "Google Suggest" anything-google-suggest) (Eval\ expression men= u-item "Eval expression" anything-eval-expression-with-eldoc) (Calcul\ expr= ession menu-item "Calcul expression" anything-calcul-expression) (Man\ page= s menu-item "Man pages" anything-man-woman) (Top\ externals\ process menu-i= tem "Top externals process" anything-top) (Emacs\ internals\ process menu-i= tem "Emacs internals process" anything-list-emacs-process))) (nil-11 menu-i= tem "----") (Prefered\ Options menu-item "Prefered Options" anything-config= uration)) ("f=3D=3D>File" file keymap (new-file menu-item "Visit New File..= ." find-file :enable (menu-bar-non-minibuffer-window-p) :help "Specify a ne= w 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 a= n 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-fi= le :enable (menu-bar-non-minibuffer-window-p) :help "Insert another file in= to current buffer") (kill-buffer menu-item "Close" kill-this-buffer :enable= (kill-this-buffer-enabled-p) :help "Discard (kill) current buffer") (separ= ator-save "--") (save-buffer menu-item "Save" save-buffer :enable (and (buf= fer-modified-p) (buffer-file-name) (menu-bar-non-minibuffer-window-p)) :hel= p "Save current buffer to its file") (write-file menu-item "Save As..." wri= te-file :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non= -minibuffer-window-p)) :help "Write current buffer to another file") (rever= t-buffer menu-item "Revert Buffer" revert-buffer :enable (or revert-buffer-= function revert-buffer-insert-file-contents-function (and buffer-file-numbe= r (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)) (directo= ry-files (file-name-directory auto-save-list-file-prefix) nil (concat "\\`"= (regexp-quote (file-name-nondirectory auto-save-list-file-prefix))) t)) :h= elp "Recover edits from a crashed session") (separator-print "--") (print-b= uffer menu-item "Print Buffer" print-buffer :enable (menu-bar-menu-frame-li= ve-and-visible-p) :help "Print current buffer with page headings") (print-r= egion menu-item "Print Region" print-region :enable mark-active :help "Prin= t region between mark and current position") (ps-print-buffer-faces menu-it= em "Postscript Print Buffer" ps-print-buffer-with-faces :enable (menu-bar-m= enu-frame-live-and-visible-p) :help "Pretty-print current buffer to PostScr= ipt printer") (ps-print-region-faces menu-item "Postscript Print Region" ps= -print-region-with-faces :enable mark-active :help "Pretty-print marked reg= ion to PostScript printer") (ps-print-buffer menu-item "Postscript Print Bu= ffer (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 print= er") (ps-print-region menu-item "Postscript Print Region (B+W)" ps-print-re= gion :enable mark-active :help "Pretty-print marked region in black and whi= te to PostScript printer") (separator-window "--") (new-window-below menu-i= tem "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 wi= ndow below selected one") (new-window-on-right menu-item "New Window on Rig= ht" 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 se= lected one") (one-window menu-item "Remove Other Windows" delete-other-wind= ows :enable (not (one-window-p t nil)) :help "Make selected window fill who= le frame") (separator-frame "--") (make-frame menu-item "New Frame" make-fr= ame-command :visible (fboundp (quote make-frame-command)) :help "Open a new= frame") (make-frame-on-display menu-item "New Frame on Display..." make-fr= ame-on-display :visible (fboundp (quote make-frame-on-display)) :help "Open= a new frame on another display") (delete-this-frame menu-item "Delete Fram= e" delete-frame :visible (fboundp (quote delete-frame)) :enable (delete-fra= me-enabled-p) :help "Delete currently selected frame") (separator-exit "--"= ) (exit-emacs menu-item "Quit" save-buffers-kill-terminal :help "Save unsav= ed buffers, then exit") "File") ("e=3D=3D>Edit" edit keymap (undo menu-item= "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-lis= t)) (if (eq last-command (quote undo)) (listp pending-undo-list) (consp buf= fer-undo-list))) :help "Undo last operation") (cut menu-item "Cut" kill-reg= ion :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 c= urrent position" :keys "\\[kill-ring-save]") (paste menu-item "Paste" yank = :enable (and (or (and (fboundp (quote x-selection-exists-p)) (x-selection-e= xists-p (quote CLIPBOARD))) (if (featurep (quote ns)) (cdr yank-menu) kill-= ring)) (not buffer-read-only)) :help "Paste (yank) text most recently cut/c= opied") (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 t= he 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 b= etween 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-forwar= d menu-item "String Forward..." nonincremental-search-forward :help "Search= forward for a string") (search-backward menu-item "String Backwards..." no= nincremental-search-backward :help "Search backwards for a string") (re-sea= rch-forward menu-item "Regexp Forward..." nonincremental-re-search-forward = :help "Search forward for a regular expression") (re-search-backward menu-i= tem "Regexp Backwards..." nonincremental-re-search-backward :help "Search b= ackwards 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 m= enu-bar-last-search-type ...) regexp-search-ring)) :help "Repeat last searc= h 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-src= h 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-for= ward menu-item "Forward String..." isearch-forward :help "Search forward fo= r a string as you type it") (isearch-backward menu-item "Backward String...= " isearch-backward :help "Search backwards for a string as you type it") (i= search-forward-regexp menu-item "Forward Regexp..." isearch-forward-regexp = :help "Search forward for a regular expression as you type it") (isearch-ba= ckward-regexp menu-item "Backward Regexp..." isearch-backward-regexp :help = "Search backwards for a regular expression as you type it") "Incremental Se= arch")) "Search")) (replace menu-item "Replace" (keymap (query-replace menu= -item "Replace String..." query-replace :enable (not buffer-read-only) :hel= p "Replace string interactively, ask about each occurrence") (query-replace= -regexp menu-item "Replace Regexp..." query-replace-regexp :enable (not buf= fer-read-only) :help "Replace regular expression interactively, ask about e= ach occurrence") (separator-replace-tags "--") (tags-repl menu-item "Replac= e in Tagged Files..." tags-query-replace :help "Interactively replace a reg= exp 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) (separat= or-tags "--") (find-tag menu-item "Find Tag..." find-tag :help "Find defini= tion of function or variable") (find-tag-otherw menu-item "Find Tag in Othe= r 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-lo= cation-ring))) :help "Find next function/variable matching last tag name") = (next-tag-otherw menu-item "Next Tag in Other Window" menu-bar-next-tag-oth= er-window :enable (and (boundp (quote tags-location-ring)) (not (ring-empty= -p tags-location-ring))) :help "Find next function/variable matching last t= ag name in another window") (apropos-tags menu-item "Tags Apropos..." tags-= apropos :help "Find function/variables whose names match regexp") (separato= r-tag-file "--") (set-tags-name menu-item "Set Tags File Name..." visit-tag= s-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 buffe= r-read-only)) :help "Fill text in region to fit between left and right marg= in") (props menu-item "Text Properties" facemenu-menu) "Edit") ("o=3D=3D>Op= tions" options keymap (transient-mark-mode menu-item "Highlight Active Regi= on" transient-mark-mode :enable (not cua-mode) :help "Make text in active r= egion stand out in color (Transient Mark mode)" :button (:toggle and (defau= lt-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-m= ode)) (default-value (quote show-paren-mode)))) (highlight-separator "--") = (line-wrapping menu-item "Line Wrapping in This Buffer" (keymap (window-wra= p 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 (:radi= o and (null truncate-lines) (not (truncated-partial-width-window-p)) (not w= ord-wrap)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (= truncated-partial-width-window-p))) (truncate menu-item "Truncate Long Line= s" (lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (se= tq word-wrap nil) (toggle-truncate-lines 1)) :help "Truncate long lines at = window edge" :button (:radio or truncate-lines (truncated-partial-width-win= dow-p)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (tru= ncated-partial-width-window-p))) (word-wrap menu-item "Word Wrap (Visual Li= ne mode)" (lambda nil (interactive) (unless visual-line-mode (visual-line-m= ode 1)) (message "Visual-Line mode enabled")) :help "Wrap long lines at wor= d boundaries" :button (:radio and (null truncate-lines) (not (truncated-par= tial-width-window-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-vis= ible-p)) "Line Wrapping")) (auto-fill-mode menu-item "Auto Fill in Text Mod= es" menu-bar-text-mode-auto-fill :help "Automatically fill text while typin= g (Auto Fill mode)" :button (:toggle if (listp text-mode-hook) (member (quo= te turn-on-auto-fill) text-mode-hook) (eq (quote turn-on-auto-fill) text-mo= de-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-f= old-search)))) (cua-emulation-mode menu-item "Shift movement mark region (C= UA)" cua-mode :visible (and (boundp (quote cua-enable-cua-keys)) (not cua-e= nable-cua-keys)) :help "Use shifted movement keys to set and extend the reg= ion" :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))) c= ua-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 (qu= ote cua-mode)))) (edit-options-separator "--") (uniquify menu-item "Use Dir= ectory Names in Buffer Names" toggle-uniquify-buffer-names :help "Uniquify = buffer names by adding parent directory names" :button (:toggle and (defaul= t-boundp (quote uniquify-buffer-name-style)) (default-value (quote uniquify= -buffer-name-style)))) (save-place menu-item "Save Place in Files between S= essions" toggle-save-place-globally :help "Visit files of previous session = when restarting Emacs" :button (:toggle and (default-boundp (quote save-pla= ce)) (default-value (quote save-place)))) (cursor-separator "--") (blink-cu= rsor-mode menu-item "Blink Cursor" blink-cursor-mode :help "Whether the cur= sor 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" :butto= n (:toggle and (default-boundp (quote debug-on-error)) (default-value (quot= e 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" :butto= n (:toggle and (default-boundp (quote debug-on-quit)) (default-value (quote= debug-on-quit)))) (mule-separator "--") (mule menu-item "Multilingual Envi= ronment" (keymap "Mule (Multilingual Environment)" (set-language-environmen= t 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-cyr= illic-environment-map) (Indian "Indian" . setup-indian-environment-map) (Si= nhala "Sinhala" . setup-specified-language-environment) (English "English" = . setup-specified-language-environment) (ASCII "ASCII" . setup-specified-la= nguage-environment) (Ethiopic "Ethiopic" . setup-specified-language-environ= ment) (European "European" . setup-european-environment-map) (Turkish "Turk= ish" . setup-specified-language-environment) (Greek "Greek" . setup-specifi= ed-language-environment) (Hebrew "Hebrew" . setup-specified-language-enviro= nment) (Windows-1255 "Windows-1255" . setup-specified-language-environment)= (Japanese "Japanese" . setup-specified-language-environment) (Korean "Kore= an" . setup-specified-language-environment) (Lao "Lao" . setup-specified-la= nguage-environment) (TaiViet "TaiViet" . setup-specified-language-environme= nt) (Thai "Thai" . setup-specified-language-environment) (Tibetan "Tibetan"= . setup-specified-language-environment) (Vietnamese "Vietnamese" . setup-s= pecified-language-environment) (IPA "IPA" . setup-specified-language-enviro= nment) (Arabic "Arabic" . setup-specified-language-environment) (UTF-8 "UTF= -8" . setup-specified-language-environment) (Khmer "Khmer" . setup-specifie= d-language-environment) (Burmese "Burmese" . setup-specified-language-envir= onment) (Cham "Cham" . setup-specified-language-environment))) (separator-m= ule "--") (toggle-input-method menu-item "Toggle Input Method" toggle-input= -method) (set-input-method menu-item "Select Input Method..." set-input-met= hod) (separator-input-method "--") (set-various-coding-system menu-item "Se= t Coding Systems" (keymap "Set Coding System" (universal-coding-system-argu= ment menu-item "For Next Command" universal-coding-system-argument :help "C= oding system to be used by next command") (separator-1 "--") (set-buffer-fi= le-coding-system menu-item "For Saving This Buffer" set-buffer-file-coding-= system :help "How to encode this buffer when saved") (revert-buffer-with-co= ding-system menu-item "For Reverting This File Now" revert-buffer-with-codi= ng-system :enable buffer-file-name :help "Revisit this file immediately usi= ng specified coding system") (set-file-name-coding-system menu-item "For Fi= le 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-termi= nal-coding-system menu-item "For Terminal" set-terminal-coding-system :enab= le (null ...) :help "How to encode terminal output") (separator-3 "--") (se= t-selection-coding-system menu-item "For X Selections/Clipboard" set-select= ion-coding-system :visible (display-selections-p) :help "How to en/decode d= ata to/from selection/clipboard") (set-next-selection-coding-system menu-it= em "For Next X Selection" set-next-selection-coding-system :visible (displa= y-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-pr= ocess ...) :help "How to en/decode I/O from/to subprocess connected to this= buffer")) :enable (default-value (quote enable-multibyte-characters))) (vi= ew-hello-file menu-item "Show Multi-lingual Text" view-hello-file :enable (= file-readable-p (expand-file-name "HELLO" data-directory)) :help "Display f= ile which says HELLO in many languages") (separator-coding-system "--") (de= scribe-language-environment menu-item "Describe Language Environment" (keym= ap (Default menu-item "Default" describe-specified-language-support) "Descr= ibe Language Environment" (Chinese "Chinese" . describe-chinese-environment= -map) (Cyrillic "Cyrillic" . describe-cyrillic-environment-map) (Indian "In= dian" . describe-indian-environment-map) (Sinhala "Sinhala" . describe-spec= ified-language-support) (English "English" . describe-specified-language-su= pport) (ASCII "ASCII" . describe-specified-language-support) (Ethiopic "Eth= iopic" . describe-specified-language-support) (European "European" . descri= be-european-environment-map) (Turkish "Turkish" . describe-specified-langua= ge-support) (Greek "Greek" . describe-specified-language-support) (Hebrew "= Hebrew" . describe-specified-language-support) (Windows-1255 "Windows-1255"= . describe-specified-language-support) (Japanese "Japanese" . describe-spe= cified-language-support) (Korean "Korean" . describe-specified-language-sup= port) (Lao "Lao" . describe-specified-language-support) (TaiViet "TaiViet" = . describe-specified-language-support) (Thai "Thai" . describe-specified-la= nguage-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) (K= hmer "Khmer" . describe-specified-language-support) (Burmese "Burmese" . de= scribe-specified-language-support)) :help "Show multilingual settings for a= specific language") (describe-input-method menu-item "Describe Input Metho= d..." describe-input-method :help "Keyboard layout for a specific input met= hod") (describe-coding-system menu-item "Describe Coding System..." describ= e-coding-system) (list-character-sets menu-item "List Character Sets" list-= character-sets :help "Show table of available character sets") (mule-diag m= enu-item "Show All of Mule Status" mule-diag :help "Display multilingual en= vironment 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) :butto= n (: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-l= ines)))) (showhide-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Tu= rn tooltips on/off" :visible (and (display-graphic-p) (fboundp (quote x-sho= w-tip))) :button (:toggle . tooltip-mode)) (showhide-scroll-bar menu-item "= Scroll-bar" (keymap (none menu-item "None" menu-bar-no-scroll-bar :help "Tu= rn 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-ba= r 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-custo= mize-disable :help "Turn off fringe" :visible (display-graphic-p) :button (= :radio eq fringe-mode 0)) (left menu-item "On the Left" menu-bar-showhide-f= ringe-menu-customize-left :help "Fringe only on the left side" :visible (di= splay-graphic-p) :button (:radio equal fringe-mode ...)) (right menu-item "= On the Right" menu-bar-showhide-fringe-menu-customize-right :help "Fringe o= nly on the right side" :visible (display-graphic-p) :button (:radio equal f= ringe-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) :he= lp "Indicate buffer boundaries in fringe") "Fringe") :visible (display-grap= hic-p)) (showhide-speedbar menu-item "Speedbar" speedbar-frame-mode :help "= Display a Speedbar quick-navigation frame" :button (:toggle and (boundp (qu= ote speedbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p (sy= mbol-value ...)))) (datetime-separator "--") (showhide-date-time menu-item = "Time, Load and Mail" display-time-mode :help "Display time, system load av= erages and mail status in mode line" :button (:toggle and (default-boundp (= quote display-time-mode)) (default-value (quote display-time-mode)))) (show= hide-battery menu-item "Battery Status" display-battery-mode :help "Display= battery status information in mode line" :button (:toggle and (default-bou= ndp (quote display-battery-mode)) (default-value (quote display-battery-mod= e)))) (linecolumn-separator "--") (size-indication-mode menu-item "Size Ind= ication" size-indication-mode :help "Show the size of the buffer in the mod= e 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 "Co= lumn Numbers" column-number-mode :help "Show the current column number in t= he mode line" :button (:toggle and (default-boundp (quote column-number-mod= e)) (default-value (quote column-number-mode)))) "Show/Hide")) (menu-set-fo= nt menu-item "Set Default Font..." menu-set-font :visible (display-multi-fo= nt-p) :help "Select a default font") (custom-separator "--") (save menu-ite= m "Save Options" menu-bar-options-save :help "Save options set from the men= u above") (package menu-item "Manage Emacs Packages" package-list-packages = :help "Install or uninstall additional Emacs packages") (customize menu-ite= m "Customize Emacs" (keymap (customize-themes menu-item "Custom Themes" cus= tomize-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 "Custom= ize previously saved options") (customize-changed-options menu-item "New Op= tions..." customize-changed-options :help "Options added or changed in rece= nt Emacs versions") (separator-2 "--") (customize-option menu-item "Specifi= c 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-apro= pos-options :help "Browse options matching a regexp or word list") (customi= ze-apropos-faces menu-item "Faces Matching..." customize-apropos-faces :hel= p "Browse faces matching a regexp or word list") "Customize")) "Options") (= "b=3D=3D>Buffers" buffer keymap "Select Buffer" [("anything-config.el --= ...ything-config-qp/" (nil) lambda nil (interactive) (funcall menu-bar-se= lect-buffer-function #)) ("anything.el -- ..= .ything-config-qp/" (nil) lambda nil (interactive) (funcall menu-bar-select= -buffer-function #)) ("*Completions* *%" (nil) lambda = nil (interactive) (funcall menu-bar-select-buffer-function #)) ("*scratch* -- ...thierry/.emacs.d/" (nil) lambda nil (intera= ctive) (funcall menu-bar-select-buffer-function #)) ("*Or= g Agenda* *%" (nil) lambda nil (interactive) (funcall menu-bar-select-buff= er-function #)) ("*Messages* *" (nil) lambda nil (int= eractive) (funcall menu-bar-select-buffer-function #))] = (command-separator "--") (next-buffer menu-item "Next Buffer" next-buffer := help "Switch to the \"next\" buffer in a cyclic order") (previous-buffer me= nu-item "Previous Buffer" previous-buffer :help "Switch to the \"previous\"= buffer in a cyclic order") (select-named-buffer menu-item "Select Named Bu= ffer..." switch-to-buffer :help "Prompt for a buffer name, and select that = buffer in the current window") (list-all-buffers menu-item "List All Buffer= s" list-buffers :help "Pop up a window listing all Emacs buffers")) ("E=3D= =3D>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 "Crea= te Screen" elscreen-create :help "Create a new screen and switch to it") (e= lscreen-clone menu-item "Clone Screen" elscreen-clone :help "Create a new s= creen with the window-configuration of current screen") (elscreen-kill menu= -item "Kill Screen" elscreen-kill :help "Kill current screen") (elscreen-ki= ll-screen-and-buffers menu-item "Kill Screen and Buffers" elscreen-kill-scr= een-and-buffers :help "Kill current screen and buffers") (elscreen-kill-oth= ers menu-item "Kill Other Screens" elscreen-kill-others :help "Kill other s= creens") (elscreen-next menu-item "Next Screen" elscreen-next :help "Switch= to the \"next\" screen in a cyclic order") (elscreen-previous menu-item "P= revious Screen" elscreen-previous :help "Switch to the \"previous\" screen = in a cyclic order") (elscreen-toggle menu-item "Toggle Screen" elscreen-tog= gle :help "Toggle to the screen selected previously") (elscreen-command-sep= arator menu-item "--") (elscreen-toggle-display-screen-number menu-item "Di= splay Screen Number" elscreen-toggle-display-screen-number :help "Display s= creen number on the mode line" :button (:toggle . elscreen-display-screen-n= umber)) (elscreen-toggle-display-tab menu-item "Display Tab" elscreen-toggl= e-display-tab :help "Display tab on the top of screen" :button (:toggle . e= lscreen-display-tab))) ("t=3D=3D>Tools" tools keymap (grep menu-item "Searc= h Files (Grep)..." grep :help "Search files for strings or regexps (with Gr= ep)") (compile menu-item "Compile..." compile :help "Invoke compiler or Mak= e, view compilation errors") (shell menu-item "Shell Command..." shell-comm= and :help "Invoke a shell command and catch its output") (shell-on-region m= enu-item "Shell Command on Region..." shell-command-on-region :enable mark-= active :help "Pass marked region to a shell command") (gdb menu-item "Debug= ger (GDB)..." gdb :help "Debug a program from within Emacs with GDB") (ede = menu-item "Project support (EDE)" global-ede-mode :help "Toggle the Emacs D= evelopment Environment (Global EDE mode)" :button (:toggle bound-and-true-p= global-ede-mode)) (semantic menu-item "Source Code Parsers (Semantic)" sem= antic-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 Con= trol" 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\ Mi= ssing 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" d= vc-add-files) (Revert\ Files menu-item "Revert Files" dvc-revert-files) (Re= move\ Files menu-item "Remove Files" dvc-remove-files) (Add\ Log\ Entry men= u-item "Add Log Entry" dvc-add-log-entry) (nil-15 menu-item "---") (Initial= ize\ 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 (f= ormat "Read Mail (with %s)" (read-mail-item-name)) menu-bar-read-mail :visi= ble (and read-mail-command (not (eq read-mail-command (quote ignore)))) :he= lp "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 messag= e") (directory-search menu-item "Directory Search" eudc-tools-menu) (separa= tor-net "--") (calendar menu-item "Calendar" calendar :help "Invoke the Ema= cs 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-decry= ption menu-item "Encryption/Decryption" (keymap (decrypt-file menu-item "De= crypt File..." epa-decrypt-file :help "Decrypt a file") (encrypt-file menu-= item "Encrypt File..." epa-encrypt-file :help "Encrypt a file") (verify-fil= e menu-item "Verify File..." epa-verify-file :help "Verify digital signatur= e of a file") (sign-file menu-item "Sign File..." epa-sign-file :help "Crea= te 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 "Enc= rypt the current region") (verify-region menu-item "Verify Region" epa-veri= fy-region :help "Verify digital signature of the current region") (sign-reg= ion menu-item "Sign Region" epa-sign-region :help "Create digital signature= of the current region") (separator-keys "--") (list-keys menu-item "List K= eys" epa-list-keys :help "Browse your public keyring") (import-keys menu-it= em "Import Keys from File..." epa-import-keys :help "Import public keys fro= m a file") (import-keys-region menu-item "Import Keys from Region" epa-impo= rt-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-it= em "Blackbox" blackbox :help "Find balls in a black box by shooting rays") = (bubbles menu-item "Bubbles" bubbles :help "Remove all bubbles using the fe= west moves") (gomoku menu-item "Gomoku" gomoku :help "Mark 5 contiguous squ= ares (like tic-tac-toe)") (hanoi menu-item "Towers of Hanoi" hanoi :help "W= atch Towers-of-Hanoi puzzle solved by Emacs") (land menu-item "Landmark" la= ndmark :help "Watch a neural-network robot learn landmarks") (life menu-ite= m "Life" life :help "Watch how John Conway's cellular automaton evolves") (= mult menu-item "Multiplication Puzzle" mpuz :help "Exercise brain with mult= iplication") (pong menu-item "Pong" pong :help "Bounce the ball to your opp= onent") (snake menu-item "Snake" snake :help "Move snake around avoiding co= llisions") (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 whe= n Emacs is idle") "Games")) "Tools") ("l=3D=3D>Emacs-Lisp" emacs-lisp keyma= p (indent-line menu-item "Indent Line" lisp-indent-line) (indent-region men= u-item "Indent Region" indent-region :help "Indent each nonblank line in th= e region" :enable mark-active) (comment-region menu-item "Comment Out Regio= n" comment-region :help "Comment or uncomment each line in the region" :ena= ble mark-active) (separator-format "--") (eval-sexp menu-item "Evaluate Las= t S-expression" eval-last-sexp :help "Evaluate sexp before point; print val= ue in minibuffer") (eval-region menu-item "Evaluate Region" eval-region :he= lp "Execute the region as Lisp code" :enable mark-active) (eval-buffer menu= -item "Evaluate Buffer" eval-buffer :help "Execute the current buffer as Li= sp code") (ielm menu-item "Interactive Expression Evaluation" ielm :help "I= nteractively evaluate Emacs Lisp expressions") (separator-eval "--") (byte-= compile menu-item "Byte-compile This File" emacs-lisp-byte-compile :help "B= yte compile the file containing the current buffer") (emacs-byte-compile-an= d-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-recomp= ile-directory :help "Recompile every `.el' file in DIRECTORY that needs rec= ompilation") (disas menu-item "Disassemble Byte Compiled Object..." disasse= mble :help "Print disassembled code for OBJECT in a buffer") (separator-byt= e "--") (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 "L= int Buffer" elint-current-buffer :help "Lint the current buffer") (lint-f m= enu-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-instrum= ent-function :help "Instrument a function for profiling") (prof-pack menu-i= tem "Instrument Package..." elp-instrument-package :help "Instrument for pr= ofiling all function that start with a prefix") (prof-res menu-item "Show P= rofiling Results" elp-results :help "Display current profiling results") (p= rof-resfunc menu-item "Reset Counters for Function..." elp-reset-function := help "Reset the profiling information for a function") (prof-resall menu-it= em "Reset Counters for All Functions" elp-reset-all :help "Reset the profil= ing information for all functions being profiled") (sep-rem "--") (prof-res= tfunc menu-item "Remove Instrumentation for Function..." elp-restore-functi= on :help "Restore an instrumented function to its original definition") (pr= of-restall menu-item "Remove Instrumentation for All Functions" elp-restore= -all :help "Restore the original definitions of all functions being profile= d")) (tracing "Tracing" keymap (tr-f menu-item "Trace Function..." trace-fu= nction :help "Trace the function given as an argument") (tr-q menu-item "Tr= ace Function Quietly..." trace-function-background :help "Trace the functio= n with trace output going quietly to a buffer") (tr-sep "--") (tr-uf menu-i= tem "Untrace Function..." untrace-function :help "Untrace function, and pos= sibly 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") (c= heckdoc menu-item "Check Documentation Strings" checkdoc :help "Check docum= entation strings for style requirements") (eldoc menu-item "Auto-Display Do= cumentation Strings" eldoc-mode :button (:toggle bound-and-true-p eldoc-mod= e) :help "Display the documentation string for the item under cursor") "Ema= cs-Lisp") ("h=3D=3D>Help" help-menu keymap (emacs-tutorial menu-item "Emacs= Tutorial" help-with-tutorial :help "Learn how to use Emacs") (emacs-tutori= al-language-specific menu-item "Emacs Tutorial (choose language)..." help-w= ith-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 kno= wn problems with Emacs") (send-emacs-bug-report menu-item "Send Bug Report.= .." report-emacs-bug :help "Send e-mail to Emacs maintainers") (emacs-psych= otherapist 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" sea= rch-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 ELis= p Manual..." elisp-index-search :help "Find description of a subject in Ema= cs Lisp manual") (lookup-key-in-manual menu-item "Look Up Key in User Manua= l..." Info-goto-emacs-key-command-node :help "Display manual section that d= escribes a key") (lookup-command-in-manual menu-item "Look Up Command in Us= er Manual..." Info-goto-emacs-command-node :help "Display manual section th= at describes a command") (sep1 "--") (find-commands-by-name menu-item "Find= Commands by Name..." apropos-command :help "Find commands whose names matc= h a regexp") (find-options-by-name menu-item "Find Options by Name..." apro= pos-variable :help "Find variables whose names match a regexp") (find-optio= n-by-value menu-item "Find Options by Value..." apropos-value :help "Find v= ariables 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 n= ames match a regexp") (search-documentation-strings menu-item "Search Docum= entation Strings..." apropos-documentation :help "Find functions and variab= les whose doc strings match a regexp") "Search Documentation")) (describe m= enu-item "Describe" (keymap (describe-mode menu-item "Describe Buffer Modes= " describe-mode :help "Describe this buffer's major and minor mode") (descr= ibe-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 :he= lp "Display documentation of function/command") (describe-variable menu-ite= m "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 "Des= cribe Package..." describe-package :help "Display documentation of a Lisp p= ackage") (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 "D= isplay all current key bindings (keyboard shortcuts)") (separator-desc-mule= "--") (describe-language-environment menu-item "Describe Language Environm= ent" (keymap (Default menu-item "Default" describe-specified-language-suppo= rt) "Describe Language Environment" (Chinese "Chinese" . describe-chinese-e= nvironment-map) (Cyrillic "Cyrillic" . describe-cyrillic-environment-map) (= Indian "Indian" . describe-indian-environment-map) (Sinhala "Sinhala" . des= cribe-specified-language-support) (English "English" . describe-specified-l= anguage-support) (ASCII "ASCII" . describe-specified-language-support) (Eth= iopic "Ethiopic" . describe-specified-language-support) (European "European= " . describe-european-environment-map) (Turkish "Turkish" . describe-specif= ied-language-support) (Greek "Greek" . describe-specified-language-support)= (Hebrew "Hebrew" . describe-specified-language-support) (Windows-1255 "Win= dows-1255" . describe-specified-language-support) (Japanese "Japanese" . de= scribe-specified-language-support) (Korean "Korean" . describe-specified-la= nguage-support) (Lao "Lao" . describe-specified-language-support) (TaiViet = "TaiViet" . describe-specified-language-support) (Thai "Thai" . describe-sp= ecified-language-support) (Tibetan "Tibetan" . describe-specified-language-= support) (Vietnamese "Vietnamese" . describe-specified-language-support) (I= PA "IPA" . describe-specified-language-support) (Arabic "Arabic" . describe= -specified-language-support) (UTF-8 "UTF-8" . describe-specified-language-s= upport) (Khmer "Khmer" . describe-specified-language-support) (Burmese "Bur= mese" . describe-specified-language-support))) (describe-input-method menu-= item "Describe Input Method..." describe-input-method :visible (default-val= ue (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-c= haracters))) (describe-coding-system-briefly menu-item "Describe Coding Sys= tem (Briefly)" describe-current-coding-system-briefly :visible (default-val= ue (quote enable-multibyte-characters))) (mule-diag menu-item "Show All of = Mule Status" mule-diag :visible (default-value (quote enable-multibyte-char= acters)) :help "Display multilingual environment settings") "Describe")) (e= macs-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-re= ad-lispintro :help "Read the Introduction to Emacs Lisp Programming") (emac= s-lisp-reference menu-item "Emacs Lisp Reference" menu-bar-read-lispref :he= lp "Read the Emacs Lisp Reference manual") (other-manuals menu-item "All Ot= her 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 manu= als") (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 ex= ternal commands and libraries") "More Manuals")) (find-emacs-packages menu-= item "Search Built-in Packages" finder-by-keyword :help "Find built-in pack= ages and features by keyword") (external-packages menu-item "Finding Extra = Packages" menu-bar-help-extra-packages :help "Lisp packages distributed sep= arately for use in Emacs") (sep2 "--") (getting-new-versions menu-item "Get= ting New Versions" describe-distribution :help "How to get the latest versi= on of Emacs") (describe-copying menu-item "Copying Conditions" describe-cop= ying :help "Show the Emacs license (GPL)") (describe-no-warranty menu-item = "(Non)Warranty" describe-no-warranty :help "Explain that Emacs has NO WARRA= NTY") (sep4 "--") (about-emacs menu-item "About Emacs" about-emacs :help "D= isplay 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=3D=3D= >Anything" Anything keymap "Anything" (All\ anything\ commands menu-item "A= ll anything commands" anything-execute-anything-command) (Find\ any\ Files/= Buffers menu-item "Find any Files/Buffers" anything-for-files) (Anything\ E= verywhere menu-item "Anything Everywhere" ac-mode) (nil menu-item "----") (= Files: menu-item "Files:" (keymap "Files:" (Find\ files menu-item "Find fil= es" anything-find-files) (Recent\ Files menu-item "Recent Files" anything-r= ecentf) (Locate menu-item "Locate" anything-locate) (Bookmarks menu-item "B= ookmarks" 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 men= u-item "Emacs Commands" anything-M-x) (Externals\ Commands menu-item "Exter= nals 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-i= tem "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 "Or= g:" (Org\ keywords menu-item "Org keywords" anything-org-keywords) (Org\ he= adlines menu-item "Org headlines" anything-org-headlines))) (Tools: menu-it= em "Tools:" (keymap "Tools:" (Occur menu-item "Occur" anything-occur) (Grep= menu-item "Grep" anything-do-grep) (Etags menu-item "Etags" anything-c-eta= gs-select) (Lisp\ complete\ at\ point menu-item "Lisp complete at point" an= ything-lisp-completion-at-point) (Browse\ Kill\ ring menu-item "Browse Kill= ring" anything-show-kill-ring) (Browse\ register menu-item "Browse registe= r" 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 "Goog= le Suggest" anything-google-suggest) (Eval\ expression menu-item "Eval expr= ession" 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 external= s process" anything-top) (Emacs\ internals\ process menu-item "Emacs intern= als process" anything-list-emacs-process))) (nil-11 menu-item "----") (Pref= ered\ Options menu-item "Prefered Options" anything-configuration)) ("f=3D= =3D>File" file keymap (new-file menu-item "Visit New File..." find-file :en= able (menu-bar-non-minibuffer-window-p) :help "Specify a new file's name, t= o edit the file") (open-file menu-item "Open File..." menu-find-file-existi= ng :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 it= s files") (insert-file menu-item "Insert File..." insert-file :enable (menu= -bar-non-minibuffer-window-p) :help "Insert another file into current buffe= r") (kill-buffer menu-item "Close" kill-this-buffer :enable (kill-this-buff= er-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-wind= ow-p)) :help "Write current buffer to another file") (revert-buffer menu-it= em "Revert Buffer" revert-buffer :enable (or revert-buffer-function revert-= buffer-insert-file-contents-function (and buffer-file-number (or (buffer-mo= dified-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-n= ame-directory auto-save-list-file-prefix) nil (concat "\\`" (regexp-quote (= file-name-nondirectory auto-save-list-file-prefix))) t)) :help "Recover edi= ts 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 P= rint Buffer" ps-print-buffer-with-faces :enable (menu-bar-menu-frame-live-a= nd-visible-p) :help "Pretty-print current buffer to PostScript printer") (p= s-print-region-faces menu-item "Postscript Print Region" ps-print-region-wi= th-faces :enable mark-active :help "Pretty-print marked region to PostScrip= t printer") (ps-print-buffer menu-item "Postscript Print Buffer (B+W)" ps-p= rint-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pretty-= print current buffer in black and white to PostScript printer") (ps-print-r= egion menu-item "Postscript Print Region (B+W)" ps-print-region :enable mar= k-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-visibl= e-p) (menu-bar-non-minibuffer-window-p)) :help "Make new window below selec= ted 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") (on= e-window menu-item "Remove Other Windows" delete-other-windows :enable (not= (one-window-p t nil)) :help "Make selected window fill whole frame") (sepa= rator-frame "--") (make-frame menu-item "New Frame" make-frame-command :vis= ible (fboundp (quote make-frame-command)) :help "Open a new frame") (make-f= rame-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) :h= elp "Delete currently selected frame") (separator-exit "--") (exit-emacs me= nu-item "Quit" save-buffers-kill-terminal :help "Save unsaved buffers, then= exit") "File") ("e=3D=3D>Edit" edit keymap (undo menu-item "Undo" undo :en= able (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 betwe= en mark and current position") (copy menu-item "Copy" kill-ring-save :enabl= e 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 C= LIPBOARD))) (if (featurep (quote ns)) (cdr yank-menu) kill-ring)) (not buff= er-read-only)) :help "Paste (yank) text most recently cut/copied") (paste-f= rom-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-buf= fer :help "Mark the whole buffer for a subsequent cut/copy") (separator-sea= rch "--") (search menu-item "Search" (keymap (search-forward menu-item "Str= ing Forward..." nonincremental-search-forward :help "Search forward for a s= tring") (search-backward menu-item "String Backwards..." nonincremental-sea= rch-backward :help "Search backwards for a string") (re-search-forward menu= -item "Regexp Forward..." nonincremental-re-search-forward :help "Search fo= rward for a regular expression") (re-search-backward menu-item "Regexp Back= wards..." nonincremental-re-search-backward :help "Search backwards for a r= egular 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-sea= rch-type ...) regexp-search-ring)) :help "Repeat last search forward") (rep= eat-search-back menu-item "Repeat Backwards" nonincremental-repeat-search-b= ackward :enable (or (and (eq menu-bar-last-search-type ...) search-ring) (a= nd (eq menu-bar-last-search-type ...) regexp-search-ring)) :help "Repeat la= st search backwards") (separator-tag-search "--") (tags-srch menu-item "Sea= rch Tagged Files..." tags-search :help "Search for a regexp in all tagged f= iles") (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 yo= u type it") (isearch-backward menu-item "Backward String..." isearch-backwa= rd :help "Search backwards for a string as you type it") (isearch-forward-r= egexp menu-item "Forward Regexp..." isearch-forward-regexp :help "Search fo= rward for a regular expression as you type it") (isearch-backward-regexp me= nu-item "Backward Regexp..." isearch-backward-regexp :help "Search backward= s for a regular expression as you type it") "Incremental Search")) "Search"= )) (replace menu-item "Replace" (keymap (query-replace menu-item "Replace S= tring..." query-replace :enable (not buffer-read-only) :help "Replace strin= g interactively, ask about each occurrence") (query-replace-regexp menu-ite= m "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 File= s..." tags-query-replace :help "Interactively replace a regexp in all tagge= d files") (tags-repl-continue menu-item "Continue Replace" tags-loop-contin= ue :help "Continue last tags replace operation") "Replace")) (goto menu-ite= m "Go To" (keymap (go-to-line menu-item "Goto Line..." goto-line :help "Rea= d a line number and go to that line") (go-to-pos menu-item "Goto Buffer Pos= ition..." goto-char :help "Read a number N and go to buffer position N") (b= eg-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 "--") (f= ind-tag menu-item "Find Tag..." find-tag :help "Find definition of function= or variable") (find-tag-otherw menu-item "Find Tag in Other Window..." fin= d-tag-other-window :help "Find function/variable definition in another wind= ow") (next-tag menu-item "Find Next Tag" menu-bar-next-tag :enable (and (bo= undp (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 :enabl= e (and (boundp (quote tags-location-ring)) (not (ring-empty-p tags-location= -ring))) :help "Find next function/variable matching last tag name in anoth= er window") (apropos-tags menu-item "Tags Apropos..." tags-apropos :help "F= ind function/variables whose names match regexp") (separator-tag-file "--")= (set-tags-name menu-item "Set Tags File Name..." visit-tags-table :help "T= ell Tags commands which tag table file to use") "Go To")) (bookmark menu-it= em "Bookmarks" menu-bar-bookmark-map) (separator-bookmark "--") (fill menu-= item "Fill" fill-region :enable (and mark-active (not buffer-read-only)) :h= elp "Fill text in region to fit between left and right margin") (props menu= -item "Text Properties" facemenu-menu) "Edit") ("o=3D=3D>Options" options k= eymap (transient-mark-mode menu-item "Highlight Active Region" transient-ma= rk-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)))) (highl= ight-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-v= alue (quote show-paren-mode)))) (highlight-separator "--") (line-wrapping m= enu-item "Line Wrapping in This Buffer" (keymap (window-wrap menu-item "Wra= p at Window Edge" (lambda nil (interactive) (if visual-line-mode (visual-li= ne-mode 0)) (setq word-wrap nil) (if truncate-lines (toggle-truncate-lines = -1))) :help "Wrap long lines at window edge" :button (:radio and (null trun= cate-lines) (not (truncated-partial-width-window-p)) (not word-wrap)) :visi= ble (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partia= l-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" :bu= tton (:radio or truncate-lines (truncated-partial-width-window-p)) :visible= (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partial-w= idth-window-p))) (word-wrap menu-item "Word Wrap (Visual Line mode)" (lambd= a nil (interactive) (unless visual-line-mode (visual-line-mode 1)) (message= "Visual-Line mode enabled")) :help "Wrap long lines at word boundaries" :b= utton (:radio and (null truncate-lines) (not (truncated-partial-width-windo= w-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-visible-p)) "Line W= rapping")) (auto-fill-mode menu-item "Auto Fill in Text Modes" menu-bar-tex= t-mode-auto-fill :help "Automatically fill text while typing (Auto Fill mod= e)" :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 :he= lp "Ignore letter-case in search commands" :button (:toggle and (default-bo= undp (quote case-fold-search)) (default-value (quote case-fold-search)))) (= cua-emulation-mode menu-item "Shift movement mark region (CUA)" cua-mode :v= isible (and (boundp (quote cua-enable-cua-keys)) (not cua-enable-cua-keys))= :help "Use shifted movement keys to set and extend the region" :button (:t= oggle 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-mod= e :visible (or (not (boundp (quote cua-enable-cua-keys))) cua-enable-cua-ke= ys) :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :button (:togg= le 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-sty= le)))) (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-va= lue (quote save-place)))) (cursor-separator "--") (blink-cursor-mode menu-i= tem "Blink Cursor" blink-cursor-mode :help "Whether the cursor blinks (Blin= k Cursor mode)" :button (:toggle and (default-boundp (quote blink-cursor-mo= de)) (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" . setu= p-chinese-environment-map) (Cyrillic "Cyrillic" . setup-cyrillic-environmen= t-map) (Indian "Indian" . setup-indian-environment-map) (Sinhala "Sinhala" = . setup-specified-language-environment) (English "English" . setup-specifie= d-language-environment) (ASCII "ASCII" . setup-specified-language-environme= nt) (Ethiopic "Ethiopic" . setup-specified-language-environment) (European = "European" . setup-european-environment-map) (Turkish "Turkish" . setup-spe= cified-language-environment) (Greek "Greek" . setup-specified-language-envi= ronment) (Hebrew "Hebrew" . setup-specified-language-environment) (Windows-= 1255 "Windows-1255" . setup-specified-language-environment) (Japanese "Japa= nese" . setup-specified-language-environment) (Korean "Korean" . setup-spec= ified-language-environment) (Lao "Lao" . setup-specified-language-environme= nt) (TaiViet "TaiViet" . setup-specified-language-environment) (Thai "Thai"= . setup-specified-language-environment) (Tibetan "Tibetan" . setup-specifi= ed-language-environment) (Vietnamese "Vietnamese" . setup-specified-languag= e-environment) (IPA "IPA" . setup-specified-language-environment) (Arabic "= Arabic" . setup-specified-language-environment) (UTF-8 "UTF-8" . setup-spec= ified-language-environment) (Khmer "Khmer" . setup-specified-language-envir= onment) (Burmese "Burmese" . setup-specified-language-environment) (Cham "C= ham" . setup-specified-language-environment))) (separator-mule "--") (toggl= e-input-method menu-item "Toggle Input Method" toggle-input-method) (set-in= put-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 "Ho= w to encode this buffer when saved") (revert-buffer-with-coding-system menu= -item "For Reverting This File Now" revert-buffer-with-coding-system :enabl= e buffer-file-name :help "Revisit this file immediately using specified cod= ing system") (set-file-name-coding-system menu-item "For File Name" set-fil= e-name-coding-system :help "How to decode/encode file names") (separator-2 = "--") (set-keyboard-coding-system menu-item "For Keyboard" set-keyboard-cod= ing-system :help "How to decode keyboard input") (set-terminal-coding-syste= m menu-item "For Terminal" set-terminal-coding-system :enable (null ...) :h= elp "How to encode terminal output") (separator-3 "--") (set-selection-codi= ng-system menu-item "For X Selections/Clipboard" set-selection-coding-syste= m :visible (display-selections-p) :help "How to en/decode data to/from sele= ction/clipboard") (set-next-selection-coding-system menu-item "For Next X S= election" set-next-selection-coding-system :visible (display-selections-p) = :help "How to en/decode next selection/clipboard operation") (set-buffer-pr= ocess-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")) :enab= le (default-value (quote enable-multibyte-characters))) (view-hello-file me= nu-item "Show Multi-lingual Text" view-hello-file :enable (file-readable-p = (expand-file-name "HELLO" data-directory)) :help "Display file which says H= ELLO 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 Env= ironment" (Chinese "Chinese" . describe-chinese-environment-map) (Cyrillic = "Cyrillic" . describe-cyrillic-environment-map) (Indian "Indian" . describe= -indian-environment-map) (Sinhala "Sinhala" . describe-specified-language-s= upport) (English "English" . describe-specified-language-support) (ASCII "A= SCII" . describe-specified-language-support) (Ethiopic "Ethiopic" . describ= e-specified-language-support) (European "European" . describe-european-envi= ronment-map) (Turkish "Turkish" . describe-specified-language-support) (Gre= ek "Greek" . describe-specified-language-support) (Hebrew "Hebrew" . descri= be-specified-language-support) (Windows-1255 "Windows-1255" . describe-spec= ified-language-support) (Japanese "Japanese" . describe-specified-language-= support) (Korean "Korean" . describe-specified-language-support) (Lao "Lao"= . describe-specified-language-support) (TaiViet "TaiViet" . describe-speci= fied-language-support) (Thai "Thai" . describe-specified-language-support) = (Tibetan "Tibetan" . describe-specified-language-support) (Vietnamese "Viet= namese" . describe-specified-language-support) (IPA "IPA" . describe-specif= ied-language-support) (Arabic "Arabic" . describe-specified-language-suppor= t) (UTF-8 "UTF-8" . describe-specified-language-support) (Khmer "Khmer" . d= escribe-specified-language-support) (Burmese "Burmese" . describe-specified= -language-support)) :help "Show multilingual settings for a specific langua= ge") (describe-input-method menu-item "Describe Input Method..." describe-i= nput-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 A= ll of Mule Status" mule-diag :help "Display multilingual environment settin= gs"))) (showhide-separator "--") (showhide menu-item "Show/Hide" (keymap (s= howhide-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-ba= r-lines)))) (menu-bar-mode menu-item "Menu-bar" toggle-menu-bar-mode-from-f= rame :help "Turn menu-bar on/off" :button (:toggle menu-bar-positive-p (fra= me-parameter (menu-bar-frame-for-menubar) (quote menu-bar-lines)))) (showhi= de-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Turn tooltips on/o= ff" :visible (and (display-graphic-p) (fboundp (quote x-show-tip))) :button= (:toggle . tooltip-mode)) (showhide-scroll-bar menu-item "Scroll-bar" (key= map (none menu-item "None" menu-bar-no-scroll-bar :help "Turn off scroll-ba= r" :visible (display-graphic-p) :button (:radio eq ... nil)) (left menu-ite= m "On the Left" menu-bar-left-scroll-bar :help "Scroll-bar on the left side= " :visible (display-graphic-p) :button (:radio eq ... ...)) (right menu-ite= m "On the Right" menu-bar-right-scroll-bar :help "Scroll-bar on the right s= ide" :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 :he= lp "Turn off fringe" :visible (display-graphic-p) :button (:radio eq fringe= -mode 0)) (left menu-item "On the Left" menu-bar-showhide-fringe-menu-custo= mize-left :help "Fringe only on the left side" :visible (display-graphic-p)= :button (:radio equal fringe-mode ...)) (right menu-item "On the Right" me= nu-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 "Cust= omize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed custo= mization of fringe" :visible (display-graphic-p)) (indicate-empty-lines men= u-item "Empty Line Indicators" toggle-indicate-empty-lines :help "Indicate = trailing empty lines in fringe, globally" :button (:toggle and ... ...)) (s= howhide-fringe-ind menu-item "Buffer Boundaries" (keymap ... ... ... ... ..= . ... "Buffer boundaries") :visible (display-graphic-p) :help "Indicate buf= fer boundaries in fringe") "Fringe") :visible (display-graphic-p)) (showhid= e-speedbar menu-item "Speedbar" speedbar-frame-mode :help "Display a Speedb= ar quick-navigation frame" :button (:toggle and (boundp (quote speedbar-fra= me)) (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-ti= me-mode)) (default-value (quote display-time-mode)))) (showhide-battery men= u-item "Battery Status" display-battery-mode :help "Display battery status = information in mode line" :button (:toggle and (default-boundp (quote displ= ay-battery-mode)) (default-value (quote display-battery-mode)))) (linecolum= n-separator "--") (size-indication-mode menu-item "Size Indication" size-in= dication-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" l= ine-number-mode :help "Show the current line number in the mode line" :butt= on (:toggle and (default-boundp (quote line-number-mode)) (default-value (q= uote line-number-mode)))) (column-number-mode menu-item "Column Numbers" co= lumn-number-mode :help "Show the current column number in the mode line" :b= utton (:toggle and (default-boundp (quote column-number-mode)) (default-val= ue (quote column-number-mode)))) "Show/Hide")) (menu-set-font menu-item "Se= t Default Font..." menu-set-font :visible (display-multi-font-p) :help "Sel= ect a default font") (custom-separator "--") (save menu-item "Save Options"= menu-bar-options-save :help "Save options set from the menu above") (packa= ge menu-item "Manage Emacs Packages" package-list-packages :help "Install o= r uninstall additional Emacs packages") (customize menu-item "Customize Ema= cs" (keymap (customize-themes menu-item "Custom Themes" customize-themes :h= elp "Choose a pre-defined customization theme") (customize menu-item "Top-l= evel Customization Group" customize :help "The master group called `Emacs'"= ) (customize-browse menu-item "Browse Customization Groups" customize-brows= e :help "Browse all customization groups") (separator-3 "--") (customize-sa= ved menu-item "Saved Options" customize-saved :help "Customize previously s= aved options") (customize-changed-options menu-item "New Options..." custom= ize-changed-options :help "Options added or changed in recent Emacs version= s") (separator-2 "--") (customize-option menu-item "Specific Option..." cus= tomize-option :help "Customize value of specific option") (customize-face m= enu-item "Specific Face..." customize-face :help "Customize attributes of s= pecific face") (customize-group menu-item "Specific Group..." customize-gro= up :help "Customize settings of specific group") (separator-1 "--") (custom= ize-apropos menu-item "All Settings Matching..." customize-apropos :help "B= rowse customizable settings matching a regexp or word list") (customize-apr= opos-options menu-item "Options Matching..." customize-apropos-options :hel= p "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=3D=3D>Buffers= " buffer keymap "Select Buffer" [("anything-config.el -- ...ything-conf= ig-qp/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-func= tion #)) ("anything.el -- ...ything-config-q= p/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-function= #)) ("*Completions* *%" (nil) lambda nil (interactive= ) (funcall menu-bar-select-buffer-function #)) ("*scr= atch* -- ...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall = menu-bar-select-buffer-function #)) ("*Org Agenda* *%" (= nil) lambda nil (interactive) (funcall menu-bar-select-buffer-function #)) ("*Messages* *" (nil) lambda nil (interactive) (funca= ll menu-bar-select-buffer-function #))] (command-separat= or "--") (next-buffer menu-item "Next Buffer" next-buffer :help "Switch to = the \"next\" buffer in a cyclic order") (previous-buffer menu-item "Previou= s Buffer" previous-buffer :help "Switch to the \"previous\" buffer in a cyc= lic order") (select-named-buffer menu-item "Select Named Buffer..." switch-= to-buffer :help "Prompt for a buffer name, and select that buffer in the cu= rrent window") (list-all-buffers menu-item "List All Buffers" list-buffers = :help "Pop up a window listing all Emacs buffers")) ("E=3D=3D>ElScreen" els= creen keymap "Select Screen" (48 menu-item "0 *scratch*" elscreen-jump :ke= ys "C-z 0") (49 menu-item "1 *Org Agenda*" elscreen-jump :keys "C-z 1") (5= 0 menu-item "2+ anything-config.el" elscreen-jump :keys "C-z 2") (51 menu-i= tem "3- anything-config.el" elscreen-jump :keys "C-z 3") (elscreen-command-= separator menu-item "--") (elscreen-create menu-item "Create Screen" elscre= en-create :help "Create a new screen and switch to it") (elscreen-clone men= u-item "Clone Screen" elscreen-clone :help "Create a new screen with the wi= ndow-configuration of current screen") (elscreen-kill menu-item "Kill Scree= n" elscreen-kill :help "Kill current screen") (elscreen-kill-screen-and-buf= fers menu-item "Kill Screen and Buffers" elscreen-kill-screen-and-buffers := help "Kill current screen and buffers") (elscreen-kill-others menu-item "Ki= ll Other Screens" elscreen-kill-others :help "Kill other screens") (elscree= n-next menu-item "Next Screen" elscreen-next :help "Switch to the \"next\" = screen in a cyclic order") (elscreen-previous menu-item "Previous Screen" e= lscreen-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 Numb= er" elscreen-toggle-display-screen-number :help "Display screen number on t= he mode line" :button (:toggle . elscreen-display-screen-number)) (elscreen= -toggle-display-tab menu-item "Display Tab" elscreen-toggle-display-tab :he= lp "Display tab on the top of screen" :button (:toggle . elscreen-display-t= ab))) ("t=3D=3D>Tools" tools keymap (grep menu-item "Search Files (Grep)...= " grep :help "Search files for strings or regexps (with Grep)") (compile me= nu-item "Compile..." compile :help "Invoke compiler or Make, view compilati= on errors") (shell menu-item "Shell Command..." shell-command :help "Invoke= a shell command and catch its output") (shell-on-region menu-item "Shell C= ommand on Region..." shell-command-on-region :enable mark-active :help "Pas= s marked region to a shell command") (gdb menu-item "Debugger (GDB)..." gdb= :help "Debug a program from within Emacs with GDB") (ede menu-item "Projec= t support (EDE)" global-ede-mode :help "Toggle the Emacs Development Enviro= nment (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\ Book= marks 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) (Re= vert\ Files menu-item "Revert Files" dvc-revert-files) (Remove\ Files menu-= item "Remove Files" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log E= ntry" dvc-add-log-entry) (nil-15 menu-item "---") (Initialize\ repository m= enu-item "Initialize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" c= vs-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-mai= l-command (not (eq read-mail-command (quote ignore)))) :help "Read your mai= l 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 m= ail-user-agent (quote ignore)))) :help "Send a mail message") (directory-se= arch menu-item "Directory Search" eudc-tools-menu) (separator-net "--") (ca= lendar menu-item "Calendar" calendar :help "Invoke the Emacs built-in calen= dar") (calc menu-item "Programmable Calculator" calc :help "Invoke the Emac= s built-in full scientific calculator") (simple-calculator menu-item "Simpl= e 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..." ep= a-decrypt-file :help "Decrypt a file") (encrypt-file menu-item "Encrypt Fil= e..." epa-encrypt-file :help "Encrypt a file") (verify-file menu-item "Veri= fy File..." epa-verify-file :help "Verify digital signature of a file") (si= gn-file menu-item "Sign File..." epa-sign-file :help "Create digital signat= ure of a file") (separator-file "--") (decrypt-region menu-item "Decrypt Re= gion" epa-decrypt-region :help "Decrypt the current region") (encrypt-regio= n 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 "Si= gn Region" epa-sign-region :help "Create digital signature of the current r= egion") (separator-keys "--") (list-keys menu-item "List Keys" epa-list-key= s :help "Browse your public keyring") (import-keys menu-item "Import Keys f= rom File..." epa-import-keys :help "Import public keys from a file") (impor= t-keys-region menu-item "Import Keys from Region" epa-import-keys-region :h= elp "Import public keys from the current region") (export-keys menu-item "E= xport Keys" epa-export-keys :help "Export public keys to a file") (insert-k= eys menu-item "Insert Keys" epa-insert-keys :help "Insert public keys after= the current point") "Encryption/Decryption")) (separator-games "--") (game= s 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 "Du= nnet, a text Adventure game for Emacs") (black-box menu-item "Blackbox" bla= ckbox :help "Find balls in a black box by shooting rays") (bubbles menu-ite= m "Bubbles" bubbles :help "Remove all bubbles using the fewest moves") (gom= oku menu-item "Gomoku" gomoku :help "Mark 5 contiguous squares (like tic-ta= c-toe)") (hanoi menu-item "Towers of Hanoi" hanoi :help "Watch Towers-of-Ha= noi puzzle solved by Emacs") (land menu-item "Landmark" landmark :help "Wat= ch a neural-network robot learn landmarks") (life menu-item "Life" life :he= lp "Watch how John Conway's cellular automaton evolves") (mult menu-item "M= ultiplication Puzzle" mpuz :help "Exercise brain with multiplication") (pon= g menu-item "Pong" pong :help "Bounce the ball to your opponent") (snake me= nu-item "Snake" snake :help "Move snake around avoiding collisions") (solit= aire menu-item "Solitaire" solitaire :help "Get rid of all the stones") (te= tris 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=3D=3D>Emacs-Lisp" emacs-lisp keymap (indent-line me= nu-item "Indent Line" lisp-indent-line) (indent-region menu-item "Indent Re= gion" 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" e= val-last-sexp :help "Evaluate sexp before point; print value in minibuffer"= ) (eval-region menu-item "Evaluate Region" eval-region :help "Execute the r= egion as Lisp code" :enable mark-active) (eval-buffer menu-item "Evaluate B= uffer" eval-buffer :help "Execute the current buffer as Lisp code") (ielm m= enu-item "Interactive Expression Evaluation" ielm :help "Interactively eval= uate Emacs Lisp expressions") (separator-eval "--") (byte-compile menu-item= "Byte-compile This File" emacs-lisp-byte-compile :help "Byte compile the f= ile containing the current buffer") (emacs-byte-compile-and-load menu-item = "Byte-compile and Load" emacs-lisp-byte-compile-and-load :help "Byte-compil= e the current file (if it has changed), then load compiled code") (byte-rec= ompile menu-item "Byte-recompile Directory..." byte-recompile-directory :he= lp "Recompile every `.el' file in DIRECTORY that needs recompilation") (dis= as menu-item "Disassemble Byte Compiled Object..." disassemble :help "Print= disassembled code for OBJECT in a buffer") (separator-byte "--") (edebug-d= efun menu-item "Instrument Function for Debugging" edebug-defun :help "Eval= uate 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-defu= n :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 Fi= le..." 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 :hel= p "Instrument a function for profiling") (prof-pack menu-item "Instrument P= ackage..." elp-instrument-package :help "Instrument for profiling all funct= ion 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 p= rofiling information for a function") (prof-resall menu-item "Reset Counter= s for All Functions" elp-reset-all :help "Reset the profiling information f= or 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-i= tem "Remove Instrumentation for All Functions" elp-restore-all :help "Resto= re the original definitions of all functions being profiled")) (tracing "Tr= acing" keymap (tr-f menu-item "Trace Function..." trace-function :help "Tra= ce the function given as an argument") (tr-q menu-item "Trace Function Quie= tly..." trace-function-background :help "Trace the function with trace outp= ut going quietly to a buffer") (tr-sep "--") (tr-uf menu-item "Untrace Func= tion..." untrace-function :help "Untrace function, and possibly activate al= l remaining advice") (tr-a menu-item "Untrace All" untrace-all :help "Untra= ce all currently traced functions")) (re-builder menu-item "Construct Regex= p" 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 Strin= gs" eldoc-mode :button (:toggle bound-and-true-p eldoc-mode) :help "Display= the documentation string for the item under cursor") "Emacs-Lisp") ("h=3D= =3D>Help" help-menu keymap (emacs-tutorial menu-item "Emacs Tutorial" help-= with-tutorial :help "Learn how to use Emacs") (emacs-tutorial-language-spec= ific menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-spe= c-language :help "Learn how to use Emacs (choose a language)") (emacs-faq m= enu-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 "Emac= s 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 be= tter") (sep1 "--") (search-documentation menu-item "Search Documentation" (= keymap (emacs-terminology menu-item "Emacs Terminology" search-emacs-glossa= ry :help "Display the Glossary section of the Emacs manual") (lookup-subjec= t-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..." eli= sp-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..." In= fo-goto-emacs-command-node :help "Display manual section that describes a c= ommand") (sep1 "--") (find-commands-by-name menu-item "Find Commands by Nam= e..." apropos-command :help "Find commands whose names match a regexp") (fi= nd-options-by-name menu-item "Find Options by Name..." apropos-variable :he= lp "Find variables whose names match a regexp") (find-option-by-value menu-= item "Find Options by Value..." apropos-value :help "Find variables whose v= alues 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 reg= exp") (search-documentation-strings menu-item "Search Documentation Strings= ..." apropos-documentation :help "Find functions and variables whose doc st= rings match a regexp") "Search Documentation")) (describe menu-item "Descri= be" (keymap (describe-mode menu-item "Describe Buffer Modes" describe-mode = :help "Describe this buffer's major and minor mode") (describe-key-1 menu-i= tem "Describe Key or Mouse Operation..." describe-key :help "Display docume= ntation of command bound to a key, a click, or a menu-item") (describe-func= tion menu-item "Describe Function..." describe-function :help "Display docu= mentation of function/command") (describe-variable menu-item "Describe Vari= able..." 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") (descri= be-current-display-table menu-item "Describe Display Table" describe-curren= t-display-table :help "Describe the current display table") (list-keybindin= gs menu-item "List Key Bindings" describe-bindings :help "Display all curre= nt key bindings (keyboard shortcuts)") (separator-desc-mule "--") (describe= -language-environment menu-item "Describe Language Environment" (keymap (De= fault menu-item "Default" describe-specified-language-support) "Describe La= nguage 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-eur= opean-environment-map) (Turkish "Turkish" . describe-specified-language-sup= port) (Greek "Greek" . describe-specified-language-support) (Hebrew "Hebrew= " . describe-specified-language-support) (Windows-1255 "Windows-1255" . des= cribe-specified-language-support) (Japanese "Japanese" . describe-specified= -language-support) (Korean "Korean" . describe-specified-language-support) = (Lao "Lao" . describe-specified-language-support) (TaiViet "TaiViet" . desc= ribe-specified-language-support) (Thai "Thai" . describe-specified-language= -support) (Tibetan "Tibetan" . describe-specified-language-support) (Vietna= mese "Vietnamese" . describe-specified-language-support) (IPA "IPA" . descr= ibe-specified-language-support) (Arabic "Arabic" . describe-specified-langu= age-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 I= nput 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-codi= ng-system :visible (default-value (quote enable-multibyte-characters))) (de= scribe-coding-system-briefly menu-item "Describe Coding System (Briefly)" d= escribe-current-coding-system-briefly :visible (default-value (quote enable= -multibyte-characters))) (mule-diag menu-item "Show All of Mule Status" mul= e-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 o= f Emacs features") (more-manuals menu-item "More Manuals" (keymap (emacs-li= sp-intro menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro :he= lp "Read the Introduction to Emacs Lisp Programming") (emacs-lisp-reference= menu-item "Emacs Lisp Reference" menu-bar-read-lispref :help "Read the Ema= cs Lisp Reference manual") (other-manuals menu-item "All Other Manuals (Inf= o)" Info-directory :help "Read any of the installed manuals") (lookup-subje= ct-in-all-manuals menu-item "Lookup Subject in all Manuals..." info-apropos= :help "Find description of a subject in all installed manuals") (order-ema= cs-manuals menu-item "Ordering Manuals" view-order-manuals :help "How to or= der 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 Bui= lt-in Packages" finder-by-keyword :help "Find built-in packages and feature= s by keyword") (external-packages menu-item "Finding Extra Packages" menu-b= ar-help-extra-packages :help "Lisp packages distributed separately for use = in Emacs") (sep2 "--") (getting-new-versions menu-item "Getting New Version= s" describe-distribution :help "How to get the latest version of Emacs") (d= escribe-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 n= umber, copyright info, and basic help") (about-gnu-project menu-item "About= GNU" describe-gnu-project :help "About the GNU System, GNU Project, and GN= U/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-any= thing-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 me= nu-item "Recent Files" anything-recentf) (Locate menu-item "Locate" anythin= g-locate) (Bookmarks menu-item "Bookmarks" anything-c-pp-bookmarks))) (Buff= ers: 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) (Ext= ernals\ Commands menu-item "Externals Commands" anything-c-run-external-com= mand))) (Help: menu-item "Help:" (keymap "Help:" (Anything\ Apropos menu-it= em "Anything Apropos" anything-c-apropos))) (Info: menu-item "Info:" (keyma= p "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-i= tem "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\ r= egister menu-item "Browse register" anything-register) (Browse\ code menu-i= tem "Browse code" anything-browse-code) (Mark\ Ring menu-item "Mark Ring" a= nything-all-mark-rings) (Regexp\ handler menu-item "Regexp handler" anythin= g-regexp) (Colors\ &\ Faces menu-item "Colors & Faces" anything-colors) (Sh= ow\ xfonts menu-item "Show xfonts" anything-select-xfont) (Ucs\ Symbols men= u-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-eldo= c) (Calcul\ expression menu-item "Calcul expression" anything-calcul-expres= sion) (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 N= ew File..." find-file :enable (menu-bar-non-minibuffer-window-p) :help "Spe= cify 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) :hel= p "Read an existing file into an Emacs buffer") (dired menu-item "Open Dire= ctory..." dired :enable (menu-bar-non-minibuffer-window-p) :help "Read a di= rectory, to operate on its files") (insert-file menu-item "Insert File..." = insert-file :enable (menu-bar-non-minibuffer-window-p) :help "Insert anothe= r file into current buffer") (kill-buffer menu-item "Close" kill-this-buffe= r :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 A= s..." write-file :enable (and (menu-bar-menu-frame-live-and-visible-p) (men= u-bar-non-minibuffer-window-p)) :help "Write current buffer to another file= ") (revert-buffer menu-item "Revert Buffer" revert-buffer :enable (or rever= t-buffer-function revert-buffer-insert-file-contents-function (and buffer-f= ile-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 (con= cat "\\`" (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 :h= elp "Print region between mark and current position") (ps-print-buffer-face= s menu-item "Postscript Print Buffer" ps-print-buffer-with-faces :enable (m= enu-bar-menu-frame-live-and-visible-p) :help "Pretty-print current buffer t= o PostScript printer") (ps-print-region-faces menu-item "Postscript Print R= egion" ps-print-region-with-faces :enable mark-active :help "Pretty-print m= arked 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 PostScr= ipt printer") (ps-print-region menu-item "Postscript Print Region (B+W)" ps= -print-region :enable mark-active :help "Pretty-print marked region in blac= k and white to PostScript printer") (separator-window "--") (new-window-bel= ow menu-item "New Window Below" split-window-below :enable (and (menu-bar-m= enu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Ma= ke new window below selected one") (new-window-on-right menu-item "New Wind= ow 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 ri= ght of selected one") (one-window menu-item "Remove Other Windows" delete-o= ther-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 "O= pen a new frame") (make-frame-on-display menu-item "New Frame on Display...= " make-frame-on-display :visible (fboundp (quote make-frame-on-display)) :h= elp "Open a new frame on another display") (delete-this-frame menu-item "De= lete Frame" delete-frame :visible (fboundp (quote delete-frame)) :enable (d= elete-frame-enabled-p) :help "Delete currently selected frame") (separator-= exit "--") (exit-emacs menu-item "Quit" save-buffers-kill-terminal :help "S= ave unsaved buffers, then exit") "File") (edit "Edit" keymap (undo menu-ite= m "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-li= st)) (if (eq last-command (quote undo)) (listp pending-undo-list) (consp bu= ffer-undo-list))) :help "Undo last operation") (cut menu-item "Cut" kill-re= gion :enable (and mark-active (not buffer-read-only)) :help "Cut (kill) tex= t 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 :enabl= e (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 Al= l" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy= ") (separator-search "--") (search menu-item "Search" (keymap (search-forwa= rd menu-item "String Forward..." nonincremental-search-forward :help "Searc= h forward for a string") (search-backward menu-item "String Backwards..." n= onincremental-search-backward :help "Search backwards for a string") (re-se= arch-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 sear= ch forward") (repeat-search-back menu-item "Repeat Backwards" nonincrementa= l-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-sr= ch menu-item "Search Tagged Files..." tags-search :help "Search for a regex= p in all tagged files") (tags-continue menu-item "Continue Tags Search" tag= s-loop-continue :help "Continue last tags search operation") (separator-tag= -isearch "--") (i-search menu-item "Incremental Search" (keymap (isearch-fo= rward menu-item "Forward String..." isearch-forward :help "Search forward f= or 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-b= ackward-regexp menu-item "Backward Regexp..." isearch-backward-regexp :help= "Search backwards for a regular expression as you type it") "Incremental S= earch")) "Search")) (replace menu-item "Replace" (keymap (query-replace men= u-item "Replace String..." query-replace :enable (not buffer-read-only) :he= lp "Replace string interactively, ask about each occurrence") (query-replac= e-regexp menu-item "Replace Regexp..." query-replace-regexp :enable (not bu= ffer-read-only) :help "Replace regular expression interactively, ask about = each occurrence") (separator-replace-tags "--") (tags-repl menu-item "Repla= ce in Tagged Files..." tags-query-replace :help "Interactively replace a re= gexp 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..." got= o-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 buffe= r position N") (beg-of-buf menu-item "Goto Beginning of Buffer" beginning-o= f-buffer) (end-of-buf menu-item "Goto End of Buffer" end-of-buffer) (separa= tor-tags "--") (find-tag menu-item "Find Tag..." find-tag :help "Find defin= ition of function or variable") (find-tag-otherw menu-item "Find Tag in Oth= er Window..." find-tag-other-window :help "Find function/variable definitio= n 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-l= ocation-ring))) :help "Find next function/variable matching last tag name")= (next-tag-otherw menu-item "Next Tag in Other Window" menu-bar-next-tag-ot= her-window :enable (and (boundp (quote tags-location-ring)) (not (ring-empt= y-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") (separat= or-tag-file "--") (set-tags-name menu-item "Set Tags File Name..." visit-ta= gs-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 buff= er-read-only)) :help "Fill text in region to fit between left and right mar= gin") (props menu-item "Text Properties" facemenu-menu) "Edit") (options "O= ptions" keymap (transient-mark-mode menu-item "Highlight Active Region" tra= nsient-mark-mode :enable (not cua-mode) :help "Make text in active region s= tand out in color (Transient Mark mode)" :button (:toggle and (default-boun= dp (quote transient-mark-mode)) (default-value (quote transient-mark-mode))= )) (highlight-paren-mode menu-item "Highlight Matching Parentheses" show-pa= ren-mode :help "Highlight matching/mismatched parentheses at cursor (Show P= aren mode)" :button (:toggle and (default-boundp (quote show-paren-mode)) (= default-value (quote show-paren-mode)))) (highlight-separator "--") (line-w= rapping 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-trunca= te-lines -1))) :help "Wrap long lines at window edge" :button (:radio and (= null truncate-lines) (not (truncated-partial-width-window-p)) (not word-wra= p)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncat= ed-partial-width-window-p))) (truncate menu-item "Truncate Long Lines" (lam= bda 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 bound= aries" :button (:radio and (null truncate-lines) (not (truncated-partial-wi= dth-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" men= u-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-s= earch :help "Ignore letter-case in search commands" :button (:toggle and (d= efault-boundp (quote case-fold-search)) (default-value (quote case-fold-sea= rch)))) (cua-emulation-mode menu-item "Shift movement mark region (CUA)" cu= a-mode :visible (and (boundp (quote cua-enable-cua-keys)) (not cua-enable-c= ua-keys)) :help "Use shifted movement keys to set and extend the region" :b= utton (: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-enab= le-cua-keys) :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :butt= on (: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-bound= p (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 re= starting Emacs" :button (:toggle and (default-boundp (quote save-place)) (d= efault-value (quote save-place)))) (cursor-separator "--") (blink-cursor-mo= de menu-item "Blink Cursor" blink-cursor-mode :help "Whether the cursor bli= nks (Blink Cursor mode)" :button (:toggle and (default-boundp (quote blink-= cursor-mode)) (default-value (quote blink-cursor-mode)))) (debugger-separat= or "--") (debug-on-error menu-item "Enter Debugger on Error" toggle-debug-o= n-error :help "Enter Lisp debugger when an error is signaled" :button (:tog= gle 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 (:tog= gle 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 "Chines= e" . setup-chinese-environment-map) (Cyrillic "Cyrillic" . setup-cyrillic-e= nvironment-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-lang= uage-environment) (Hebrew "Hebrew" . setup-specified-language-environment) = (Windows-1255 "Windows-1255" . setup-specified-language-environment) (Japan= ese "Japanese" . setup-specified-language-environment) (Korean "Korean" . s= etup-specified-language-environment) (Lao "Lao" . setup-specified-language-= environment) (TaiViet "TaiViet" . setup-specified-language-environment) (Th= ai "Thai" . setup-specified-language-environment) (Tibetan "Tibetan" . setu= p-specified-language-environment) (Vietnamese "Vietnamese" . setup-specifie= d-language-environment) (IPA "IPA" . setup-specified-language-environment) = (Arabic "Arabic" . setup-specified-language-environment) (UTF-8 "UTF-8" . s= etup-specified-language-environment) (Khmer "Khmer" . setup-specified-langu= age-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) (s= eparator-input-method "--") (set-various-coding-system menu-item "Set Codin= g Systems" (keymap "Set Coding System" (universal-coding-system-argument me= nu-item "For Next Command" universal-coding-system-argument :help "Coding s= ystem to be used by next command") (separator-1 "--") (set-buffer-file-codi= ng-system menu-item "For Saving This Buffer" set-buffer-file-coding-system = :help "How to encode this buffer when saved") (revert-buffer-with-coding-sy= stem menu-item "For Reverting This File Now" revert-buffer-with-coding-syst= em :enable buffer-file-name :help "Revisit this file immediately using spec= ified coding system") (set-file-name-coding-system menu-item "For File Name= " set-file-name-coding-system :help "How to decode/encode file names") (sep= arator-2 "--") (set-keyboard-coding-system menu-item "For Keyboard" set-key= board-coding-system :help "How to decode keyboard input") (set-terminal-cod= ing-system menu-item "For Terminal" set-terminal-coding-system :enable (nul= l ...) :help "How to encode terminal output") (separator-3 "--") (set-selec= tion-coding-system menu-item "For X Selections/Clipboard" set-selection-cod= ing-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-selec= tions-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-hell= o-file menu-item "Show Multi-lingual Text" view-hello-file :enable (file-re= adable-p (expand-file-name "HELLO" data-directory)) :help "Display file whi= ch says HELLO in many languages") (separator-coding-system "--") (describe-= language-environment menu-item "Describe Language Environment" (keymap (Def= ault menu-item "Default" describe-specified-language-support) "Describe Lan= guage Environment" (Chinese "Chinese" . describe-chinese-environment-map) (= Cyrillic "Cyrillic" . describe-cyrillic-environment-map) (Indian "Indian" .= describe-indian-environment-map) (Sinhala "Sinhala" . describe-specified-l= anguage-support) (English "English" . describe-specified-language-support) = (ASCII "ASCII" . describe-specified-language-support) (Ethiopic "Ethiopic" = . describe-specified-language-support) (European "European" . describe-euro= pean-environment-map) (Turkish "Turkish" . describe-specified-language-supp= ort) (Greek "Greek" . describe-specified-language-support) (Hebrew "Hebrew"= . describe-specified-language-support) (Windows-1255 "Windows-1255" . desc= ribe-specified-language-support) (Japanese "Japanese" . describe-specified-= language-support) (Korean "Korean" . describe-specified-language-support) (= Lao "Lao" . describe-specified-language-support) (TaiViet "TaiViet" . descr= ibe-specified-language-support) (Thai "Thai" . describe-specified-language-= support) (Tibetan "Tibetan" . describe-specified-language-support) (Vietnam= ese "Vietnamese" . describe-specified-language-support) (IPA "IPA" . descri= be-specified-language-support) (Arabic "Arabic" . describe-specified-langua= ge-support) (UTF-8 "UTF-8" . describe-specified-language-support) (Khmer "K= hmer" . describe-specified-language-support) (Burmese "Burmese" . describe-= specified-language-support)) :help "Show multilingual settings for a specif= ic language") (describe-input-method menu-item "Describe Input Method..." d= escribe-input-method :help "Keyboard layout for a specific input method") (= describe-coding-system menu-item "Describe Coding System..." describe-codin= g-system) (list-character-sets menu-item "List Character Sets" list-charact= er-sets :help "Show table of available character sets") (mule-diag menu-ite= m "Show All of Mule Status" mule-diag :help "Display multilingual environme= nt settings"))) (showhide-separator "--") (showhide menu-item "Show/Hide" (= keymap (showhide-tool-bar menu-item "Tool-bar" toggle-tool-bar-mode-from-fr= ame :help "Turn tool-bar on/off" :visible (display-graphic-p) :button (:tog= gle menu-bar-positive-p (frame-parameter (menu-bar-frame-for-menubar) (quot= e tool-bar-lines)))) (menu-bar-mode menu-item "Menu-bar" toggle-menu-bar-mo= de-from-frame :help "Turn menu-bar on/off" :button (:toggle menu-bar-positi= ve-p (frame-parameter (menu-bar-frame-for-menubar) (quote menu-bar-lines)))= ) (showhide-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Turn tool= tips 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 th= e right side" :visible (display-graphic-p) :button (:radio eq ... ...)) "Sc= roll-bar") :visible (display-graphic-p)) (showhide-fringe menu-item "Fringe= " (keymap (none menu-item "None" menu-bar-showhide-fringe-menu-customize-di= sable :help "Turn off fringe" :visible (display-graphic-p) :button (:radio = eq fringe-mode 0)) (left menu-item "On the Left" menu-bar-showhide-fringe-m= enu-customize-left :help "Fringe only on the left side" :visible (display-g= raphic-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-m= ode ...)) (default menu-item "Default" menu-bar-showhide-fringe-menu-custom= ize-reset :help "Default width fringe on both left and right side" :visible= (display-graphic-p) :button (:radio eq fringe-mode nil)) (customize menu-i= tem "Customize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detai= led 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 "Ind= icate 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 spe= edbar-frame)) (frame-live-p (symbol-value ...)) (frame-visible-p (symbol-va= lue ...)))) (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 d= isplay-time-mode)) (default-value (quote display-time-mode)))) (showhide-ba= ttery menu-item "Battery Status" display-battery-mode :help "Display batter= y status information in mode line" :button (:toggle and (default-boundp (qu= ote 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)) (defaul= t-value (quote size-indication-mode)))) (line-number-mode menu-item "Line N= umbers" line-number-mode :help "Show the current line number in the mode li= ne" :button (:toggle and (default-boundp (quote line-number-mode)) (default= -value (quote line-number-mode)))) (column-number-mode menu-item "Column Nu= mbers" column-number-mode :help "Show the current column number in the mode= line" :button (:toggle and (default-boundp (quote column-number-mode)) (de= fault-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 "Cust= omize Emacs" (keymap (customize-themes menu-item "Custom Themes" customize-= themes :help "Choose a pre-defined customization theme") (customize menu-it= em "Top-level Customization Group" customize :help "The master group called= `Emacs'") (customize-browse menu-item "Browse Customization Groups" custom= ize-browse :help "Browse all customization groups") (separator-3 "--") (cus= tomize-saved menu-item "Saved Options" customize-saved :help "Customize pre= viously saved options") (customize-changed-options menu-item "New Options..= ." customize-changed-options :help "Options added or changed in recent Emac= s versions") (separator-2 "--") (customize-option menu-item "Specific Optio= n..." customize-option :help "Customize value of specific option") (customi= ze-face menu-item "Specific Face..." customize-face :help "Customize attrib= utes of specific face") (customize-group menu-item "Specific Group..." cust= omize-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") (cust= omize-apropos-options menu-item "Options Matching..." customize-apropos-opt= ions :help "Browse options matching a regexp or word list") (customize-apro= pos-faces menu-item "Faces Matching..." customize-apropos-faces :help "Brow= se faces matching a regexp or word list") "Customize")) "Options") (buffer = "Buffers" keymap "Select Buffer" [("anything-config.el -- ...ything-con= fig-qp/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-fun= ction #)) ("anything.el -- ...ything-config-= qp/" (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-functio= n #)) ("*Completions* *%" (nil) lambda nil (interactiv= e) (funcall menu-bar-select-buffer-function #)) ("*sc= ratch* -- ...thierry/.emacs.d/" (nil) lambda nil (interactive) (funcall= menu-bar-select-buffer-function #)) ("*Org Agenda* *%" = (nil) lambda nil (interactive) (funcall menu-bar-select-buffer-function #)) ("*Messages* *" (nil) lambda nil (interactive) (func= all menu-bar-select-buffer-function #))] (command-separa= tor "--") (next-buffer menu-item "Next Buffer" next-buffer :help "Switch to= the \"next\" buffer in a cyclic order") (previous-buffer menu-item "Previo= us Buffer" previous-buffer :help "Switch to the \"previous\" buffer in a cy= clic order") (select-named-buffer menu-item "Select Named Buffer..." switch= -to-buffer :help "Prompt for a buffer name, and select that buffer in the c= urrent window") (list-all-buffers menu-item "List All Buffers" list-buffers= :help "Pop up a window listing all Emacs buffers")) (elscreen "ElScreen" k= eymap "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-separat= or menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-crea= te :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-co= nfiguration of current screen") (elscreen-kill menu-item "Kill Screen" elsc= reen-kill :help "Kill current screen") (elscreen-kill-screen-and-buffers me= nu-item "Kill Screen and Buffers" elscreen-kill-screen-and-buffers :help "K= ill current screen and buffers") (elscreen-kill-others menu-item "Kill Othe= r 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") (els= creen-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" els= creen-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 "Dis= play tab on the top of screen" :button (:toggle . elscreen-display-tab))) (= tools "Tools" keymap (grep menu-item "Search Files (Grep)..." grep :help "S= earch files for strings or regexps (with Grep)") (compile menu-item "Compil= e..." compile :help "Invoke compiler or Make, view compilation errors") (sh= ell menu-item "Shell Command..." shell-command :help "Invoke a shell comman= d and catch its output") (shell-on-region menu-item "Shell Command on Regio= n..." 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 E= DE mode)" :button (:toggle bound-and-true-p global-ede-mode)) (semantic men= u-item "Source Code Parsers (Semantic)" semantic-mode :help "Toggle automat= ic parsing in source code buffers (Semantic mode)" :button (:toggle bound-a= nd-true-p semantic-mode)) (separator-prog "--") (spell menu-item "Spell Che= cking" 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) (separat= or-compare "--") (vc menu-item "Version Control" vc-menu-map :filter vc-men= u-map-filter) (DVC menu-item "DVC" (keymap "DVC" (Show\ Bookmarks menu-item= "Show Bookmarks" dvc-bookmarks) (nil menu-item "---") (nil-2 menu-item "Tr= ee Commands:") (View\ Diff menu-item "View Diff" dvc-diff) (View\ Status me= nu-item "View Status" dvc-status) (View\ Missing menu-item "View Missing" d= vc-missing) (View\ Log menu-item "View Log" dvc-log) (View\ ChangeLog menu-= item "View ChangeLog" dvc-changelog) (Edit\ Commit\ Log menu-item "Edit Com= mit Log" dvc-log-edit) (nil-9 menu-item "---") (nil-10 menu-item "File Comm= ands:") (Add\ Files menu-item "Add Files" dvc-add-files) (Revert\ Files men= u-item "Revert Files" dvc-revert-files) (Remove\ Files menu-item "Remove Fi= les" dvc-remove-files) (Add\ Log\ Entry menu-item "Add Log Entry" dvc-add-l= og-entry) (nil-15 menu-item "---") (Initialize\ repository menu-item "Initi= alize repository" dvc-init))) (pcl-cvs menu-item "PCL-CVS" cvs-global-menu)= (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" gnus :help "Rea= d network news groups") (rmail menu-item (format "Read Mail (with %s)" (rea= d-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-ite= m "Calendar" calendar :help "Invoke the Emacs built-in calendar") (calc men= u-item "Programmable Calculator" calc :help "Invoke the Emacs built-in full= scientific calculator") (simple-calculator menu-item "Simple Calculator" c= alculator :help "Invoke the Emacs built-in quick calculator") (separator-en= cryption-decryption "--") (encryption-decryption menu-item "Encryption/Decr= yption" (keymap (decrypt-file menu-item "Decrypt File..." epa-decrypt-file = :help "Decrypt a file") (encrypt-file menu-item "Encrypt File..." epa-encry= pt-file :help "Encrypt a file") (verify-file menu-item "Verify File..." epa= -verify-file :help "Verify digital signature of a file") (sign-file menu-it= em "Sign File..." epa-sign-file :help "Create digital signature of a file")= (separator-file "--") (decrypt-region menu-item "Decrypt Region" epa-decry= pt-region :help "Decrypt the current region") (encrypt-region menu-item "En= crypt Region" epa-encrypt-region :help "Encrypt the current region") (verif= y-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") (separa= tor-keys "--") (list-keys menu-item "List Keys" epa-list-keys :help "Browse= your public keyring") (import-keys menu-item "Import Keys from File..." ep= a-import-keys :help "Import public keys from a file") (import-keys-region m= enu-item "Import Keys from Region" epa-import-keys-region :help "Import pub= lic 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 po= int") "Encryption/Decryption")) (separator-games "--") (games menu-item "Ga= mes" (keymap (5x5 menu-item "5x5" 5x5 :help "Fill in all the squares on a 5= x5 board") (adventure menu-item "Adventure" dunnet :help "Dunnet, a text Ad= venture game for Emacs") (black-box menu-item "Blackbox" blackbox :help "Fi= nd balls in a black box by shooting rays") (bubbles menu-item "Bubbles" bub= bles :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 solv= ed by Emacs") (land menu-item "Landmark" landmark :help "Watch a neural-net= work robot learn landmarks") (life menu-item "Life" life :help "Watch how J= ohn Conway's cellular automaton evolves") (mult menu-item "Multiplication P= uzzle" mpuz :help "Exercise brain with multiplication") (pong menu-item "Po= ng" 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" zon= e :help "Play tricks with Emacs display when Emacs is idle") "Games")) "Too= ls") (mouse-1 . tmm-menubar-mouse) (emacs-lisp "Emacs-Lisp" keymap (indent-= line menu-item "Indent Line" lisp-indent-line) (indent-region menu-item "In= dent 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-a= ctive) (separator-format "--") (eval-sexp menu-item "Evaluate Last S-expres= sion" eval-last-sexp :help "Evaluate sexp before point; print value in mini= buffer") (eval-region menu-item "Evaluate Region" eval-region :help "Execut= e the region as Lisp code" :enable mark-active) (eval-buffer menu-item "Eva= luate Buffer" eval-buffer :help "Execute the current buffer as Lisp code") = (ielm menu-item "Interactive Expression Evaluation" ielm :help "Interactive= ly evaluate Emacs Lisp expressions") (separator-eval "--") (byte-compile me= nu-item "Byte-compile This File" emacs-lisp-byte-compile :help "Byte compil= e the file containing the current buffer") (emacs-byte-compile-and-load men= u-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") (b= yte-recompile menu-item "Byte-recompile Directory..." byte-recompile-direct= ory :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 "--") (e= debug-defun menu-item "Instrument Function for Debugging" edebug-defun :hel= p "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" eli= nt-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 Dire= ctory..." elint-directory :help "Lint a directory")) (profiling "Profiling"= keymap (prof-func menu-item "Instrument Function..." elp-instrument-functi= on :help "Instrument a function for profiling") (prof-pack menu-item "Instr= ument Package..." elp-instrument-package :help "Instrument for profiling al= l function that start with a prefix") (prof-res menu-item "Show Profiling R= esults" elp-results :help "Display current profiling results") (prof-resfun= c menu-item "Reset Counters for Function..." elp-reset-function :help "Rese= t the profiling information for a function") (prof-resall menu-item "Reset = Counters for All Functions" elp-reset-all :help "Reset the profiling inform= ation 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")) (trac= ing "Tracing" keymap (tr-f menu-item "Trace Function..." trace-function :he= lp "Trace the function given as an argument") (tr-q menu-item "Trace Functi= on Quietly..." trace-function-background :help "Trace the function with tra= ce output going quietly to a buffer") (tr-sep "--") (tr-uf menu-item "Untra= ce Function..." untrace-function :help "Untrace function, and possibly acti= vate all remaining advice") (tr-a menu-item "Untrace All" untrace-all :help= "Untrace all currently traced functions")) (re-builder menu-item "Construc= t Regexp" re-builder :help "Construct a regexp interactively") (checkdoc me= nu-item "Check Documentation Strings" checkdoc :help "Check documentation s= trings for style requirements") (eldoc menu-item "Auto-Display Documentatio= n 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" hel= p-with-tutorial :help "Learn how to use Emacs") (emacs-tutorial-language-sp= ecific menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-s= pec-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-new= s :help "New features of this version") (emacs-known-problems menu-item "Em= acs Known Problems" view-emacs-problems :help "Read about known problems wi= th Emacs") (send-emacs-bug-report menu-item "Send Bug Report..." report-ema= cs-bug :help "Send e-mail to Emacs maintainers") (emacs-psychotherapist men= u-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-glos= sary :help "Display the Glossary section of the Emacs manual") (lookup-subj= ect-in-emacs-manual menu-item "Look Up Subject in User Manual..." emacs-ind= ex-search :help "Find description of a subject in Emacs User manual") (look= up-subject-in-elisp-manual menu-item "Look Up Subject in ELisp Manual..." e= lisp-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-got= o-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 N= ame..." 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 men= u-item "Find Options by Value..." apropos-value :help "Find variables whose= values match a regexp") (find-any-object-by-name menu-item "Find Any Objec= t by Name..." apropos :help "Find symbols of any kind whose names match a r= egexp") (search-documentation-strings menu-item "Search Documentation Strin= gs..." apropos-documentation :help "Find functions and variables whose doc = strings match a regexp") "Search Documentation")) (describe menu-item "Desc= ribe" (keymap (describe-mode menu-item "Describe Buffer Modes" describe-mod= e :help "Describe this buffer's major and minor mode") (describe-key-1 menu= -item "Describe Key or Mouse Operation..." describe-key :help "Display docu= mentation of command bound to a key, a click, or a menu-item") (describe-fu= nction menu-item "Describe Function..." describe-function :help "Display do= cumentation of function/command") (describe-variable menu-item "Describe Va= riable..." describe-variable :help "Display documentation of variable/optio= n") (describe-face menu-item "Describe Face..." describe-face :help "Displa= y the properties of a face") (describe-package menu-item "Describe Package.= .." describe-package :help "Display documentation of a Lisp package") (desc= ribe-current-display-table menu-item "Describe Display Table" describe-curr= ent-display-table :help "Describe the current display table") (list-keybind= ings menu-item "List Key Bindings" describe-bindings :help "Display all cur= rent key bindings (keyboard shortcuts)") (separator-desc-mule "--") (descri= be-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-specifie= d-language-support) (English "English" . describe-specified-language-suppor= t) (ASCII "ASCII" . describe-specified-language-support) (Ethiopic "Ethiopi= c" . describe-specified-language-support) (European "European" . describe-e= uropean-environment-map) (Turkish "Turkish" . describe-specified-language-s= upport) (Greek "Greek" . describe-specified-language-support) (Hebrew "Hebr= ew" . describe-specified-language-support) (Windows-1255 "Windows-1255" . d= escribe-specified-language-support) (Japanese "Japanese" . describe-specifi= ed-language-support) (Korean "Korean" . describe-specified-language-support= ) (Lao "Lao" . describe-specified-language-support) (TaiViet "TaiViet" . de= scribe-specified-language-support) (Thai "Thai" . describe-specified-langua= ge-support) (Tibetan "Tibetan" . describe-specified-language-support) (Viet= namese "Vietnamese" . describe-specified-language-support) (IPA "IPA" . des= cribe-specified-language-support) (Arabic "Arabic" . describe-specified-lan= guage-support) (UTF-8 "UTF-8" . describe-specified-language-support) (Khmer= "Khmer" . describe-specified-language-support) (Burmese "Burmese" . descri= be-specified-language-support))) (describe-input-method menu-item "Describe= Input Method..." describe-input-method :visible (default-value (quote enab= le-multibyte-characters)) :help "Keyboard layout for specific input method"= ) (describe-coding-system menu-item "Describe Coding System..." describe-co= ding-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 enab= le-multibyte-characters))) (mule-diag menu-item "Show All of Mule Status" m= ule-diag :visible (default-value (quote enable-multibyte-characters)) :help= "Display multilingual environment settings") "Describe")) (emacs-manual me= nu-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-referen= ce menu-item "Emacs Lisp Reference" menu-bar-read-lispref :help "Read the E= macs Lisp Reference manual") (other-manuals menu-item "All Other Manuals (I= nfo)" Info-directory :help "Read any of the installed manuals") (lookup-sub= ject-in-all-manuals menu-item "Lookup Subject in all Manuals..." info-aprop= os :help "Find description of a subject in all installed manuals") (order-e= macs-manuals menu-item "Ordering Manuals" view-order-manuals :help "How to = order manuals from the Free Software Foundation") (sep2 "--") (man menu-ite= m "Read Man Page..." manual-entry :help "Man-page docs for external command= s and libraries") "More Manuals")) (find-emacs-packages menu-item "Search B= uilt-in Packages" finder-by-keyword :help "Find built-in packages and featu= res by keyword") (external-packages menu-item "Finding Extra Packages" menu= -bar-help-extra-packages :help "Lisp packages distributed separately for us= e in Emacs") (sep2 "--") (getting-new-versions menu-item "Getting New Versi= ons" describe-distribution :help "How to get the latest version of Emacs") = (describe-copying menu-item "Copying Conditions" describe-copying :help "Sh= ow 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 "Abo= ut 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) --=20 Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997=20