HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add font-setting.el to DOC.
[bpt/emacs.git] / lisp / menu-bar.el
CommitLineData
55535639 1;;; menu-bar.el --- define a default menu bar
235aa29b 2
497f0cdd
GM		 3;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005,
4;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
b578f267 5
235aa29b 6;; Author: RMS
e4874521 7;; Maintainer: FSF
dbcee71a 8;; Keywords: internal, mouse
235aa29b 9
1db87953
RS		 10;; This file is part of GNU Emacs.
11
eb3fa2cf 12;; GNU Emacs is free software: you can redistribute it and/or modify
1db87953 13;; it under the terms of the GNU General Public License as published by
eb3fa2cf
GM		 14;; the Free Software Foundation, either version 3 of the License, or
15;; (at your option) any later version.
1db87953
RS		 16
17;; GNU Emacs is distributed in the hope that it will be useful,
18;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20;; GNU General Public License for more details.
21
22;; You should have received a copy of the GNU General Public License
eb3fa2cf 23;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1db87953 24
260130bb
KH		 25;; Avishai Yacobi suggested some menu rearrangements.
26
55535639
PJ		 27;;; Commentary:
28
b578f267
EN		 29;;; Code:
30
b132f2b1
RM		 31;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
32;; definitions made in loaddefs.el.
33(or (lookup-key global-map [menu-bar])
34 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")))
22390f50 35(defvar menu-bar-help-menu (make-sparse-keymap "Help"))
ffbdd83d
RS		 36
37;; Force Help item to come last, after the major mode's own items.
0d31efcd
KH		 38;; The symbol used to be called `help', but that gets confused with the
39;; help key.
40(setq menu-bar-final-items '(help-menu))
ffbdd83d 41
8f43cbf3 42(define-key global-map [menu-bar help-menu] (cons (purecopy "Help") menu-bar-help-menu))
ffbdd83d 43(defvar menu-bar-tools-menu (make-sparse-keymap "Tools"))
8f43cbf3 44(define-key global-map [menu-bar tools] (cons (purecopy "Tools") menu-bar-tools-menu))
7f315c7c 45;; This definition is just to show what this looks like.
bf902855
SM		 46;; It gets modified in place when menu-bar-update-buffers is called.
47(defvar global-buffers-menu-map (make-sparse-keymap "Buffers"))
7f315c7c 48(define-key global-map [menu-bar buffer]
8f43cbf3 49 (cons (purecopy "Buffers") global-buffers-menu-map))
7f315c7c
EZ		 50(defvar menu-bar-options-menu (make-sparse-keymap "Options"))
51(define-key global-map [menu-bar options]
8f43cbf3 52 (cons (purecopy "Options") menu-bar-options-menu))
7f315c7c 53(defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
8f43cbf3 54(define-key global-map [menu-bar edit] (cons (purecopy "Edit") menu-bar-edit-menu))
b23b6fec 55(defvar menu-bar-file-menu (make-sparse-keymap "File"))
8f43cbf3 56(define-key global-map [menu-bar file] (cons (purecopy "File") menu-bar-file-menu))
1b009b97
RS		 57
58;; This alias is for compatibility with 19.28 and before.
b23b6fec 59(defvar menu-bar-files-menu menu-bar-file-menu)
68703c11
MB		 60
61;; This is referenced by some code below; it is defined in uniquify.el
62(defvar uniquify-buffer-name-style)
63
1becddbb
JB		 64;; From emulation/cua-base.el; used below
65(defvar cua-enable-cua-keys)
66
9bb8e471 67\f
7f315c7c 68;; The "File" menu items
b23b6fec 69(define-key menu-bar-file-menu [exit-emacs]
72033dbe
DN		 70 `(menu-item ,(purecopy "Quit") save-buffers-kill-terminal
71 :help ,(purecopy "Save unsaved buffers, then exit")))
ffbdd83d 72
b23b6fec 73(define-key menu-bar-file-menu [separator-exit]
a3c20c83 74 menu-bar-separator)
ffbdd83d 75
7f315c7c
EZ		 76;; Don't use delete-frame as event name because that is a special
77;; event.
b23b6fec 78(define-key menu-bar-file-menu [delete-this-frame]
72033dbe 79 `(menu-item ,(purecopy "Delete Frame") delete-frame
7f315c7c
EZ		 80 :visible (fboundp 'delete-frame)
81 :enable (delete-frame-enabled-p)
72033dbe 82 :help ,(purecopy "Delete currently selected frame")))
b23b6fec 83(define-key menu-bar-file-menu [make-frame-on-display]
72033dbe 84 `(menu-item ,(purecopy "New Frame on Display...") make-frame-on-display
7f315c7c 85 :visible (fboundp 'make-frame-on-display)
72033dbe 86 :help ,(purecopy "Open a new frame on another display")))
b23b6fec 87(define-key menu-bar-file-menu [make-frame]
72033dbe 88 `(menu-item ,(purecopy "New Frame") make-frame-command
7f315c7c 89 :visible (fboundp 'make-frame-command)
72033dbe 90 :help ,(purecopy "Open a new frame")))
7f315c7c 91
b23b6fec 92(define-key menu-bar-file-menu [one-window]
72033dbe 93 `(menu-item ,(purecopy "Remove Splits") delete-other-windows
7f315c7c 94 :enable (not (one-window-p t nil))
72033dbe 95 :help ,(purecopy "Selected window grows to fill the whole frame")))
ffbdd83d 96
b23b6fec 97(define-key menu-bar-file-menu [split-window]
72033dbe 98 `(menu-item ,(purecopy "Split Window") split-window-vertically
92752c3a
EZ		 99 :enable (and (menu-bar-menu-frame-live-and-visible-p)
100 (menu-bar-non-minibuffer-window-p))
72033dbe 101 :help ,(purecopy "Split selected window in two windows")))
7f315c7c 102
b23b6fec 103(define-key menu-bar-file-menu [separator-window]
a3c20c83 104 menu-bar-separator)
7f315c7c 105
b23b6fec 106(define-key menu-bar-file-menu [ps-print-region]
72033dbe 107 `(menu-item ,(purecopy "Postscript Print Region (B+W)") ps-print-region
438c2df0 108 :enable mark-active
72033dbe 109 :help ,(purecopy "Pretty-print marked region in black and white to PostScript printer")))
b23b6fec 110(define-key menu-bar-file-menu [ps-print-buffer]
72033dbe 111 `(menu-item ,(purecopy "Postscript Print Buffer (B+W)") ps-print-buffer
92752c3a 112 :enable (menu-bar-menu-frame-live-and-visible-p)
72033dbe 113 :help ,(purecopy "Pretty-print current buffer in black and white to PostScript printer")))
b23b6fec 114(define-key menu-bar-file-menu [ps-print-region-faces]
72033dbe 115 `(menu-item ,(purecopy "Postscript Print Region") ps-print-region-with-faces
7f315c7c 116 :enable mark-active
72033dbe 117 :help ,(purecopy "Pretty-print marked region to PostScript printer")))
b23b6fec 118(define-key menu-bar-file-menu [ps-print-buffer-faces]
72033dbe 119 `(menu-item ,(purecopy "Postscript Print Buffer") ps-print-buffer-with-faces
92752c3a 120 :enable (menu-bar-menu-frame-live-and-visible-p)
72033dbe 121 :help ,(purecopy "Pretty-print current buffer to PostScript printer")))
b23b6fec 122(define-key menu-bar-file-menu [print-region]
72033dbe 123 `(menu-item ,(purecopy "Print Region") print-region
7f315c7c 124 :enable mark-active
72033dbe 125 :help ,(purecopy "Print region between mark and current position")))
b23b6fec 126(define-key menu-bar-file-menu [print-buffer]
72033dbe 127 `(menu-item ,(purecopy "Print Buffer") print-buffer
92752c3a 128 :enable (menu-bar-menu-frame-live-and-visible-p)
72033dbe 129 :help ,(purecopy "Print current buffer with page headings")))
7f315c7c 130
b23b6fec 131(define-key menu-bar-file-menu [separator-print]
a3c20c83 132 menu-bar-separator)
9bb8e471 133
b23b6fec 134(define-key menu-bar-file-menu [recover-session]
72033dbe 135 `(menu-item ,(purecopy "Recover Crashed Session") recover-session
7f315c7c 136 :enable (and auto-save-list-file-prefix
db3ca487
NF		 137 (file-directory-p
138 (file-name-directory auto-save-list-file-prefix))
139 (directory-files
7f315c7c
EZ		 140 (file-name-directory auto-save-list-file-prefix)
141 nil
142 (concat "\\`"
143 (regexp-quote
144 (file-name-nondirectory
145 auto-save-list-file-prefix)))
146 t))
72033dbe 147 :help ,(purecopy "Recover edits from a crashed session")))
b23b6fec 148(define-key menu-bar-file-menu [revert-buffer]
72033dbe 149 `(menu-item ,(purecopy "Revert Buffer") revert-buffer
7f315c7c
EZ		 150 :enable (or revert-buffer-function
151 revert-buffer-insert-file-contents-function
59dac63b 152 (and buffer-file-number
7f315c7c
EZ		 153 (or (buffer-modified-p)
154 (not (verify-visited-file-modtime
155 (current-buffer))))))
72033dbe 156 :help ,(purecopy "Re-read current buffer from its file")))
b23b6fec 157(define-key menu-bar-file-menu [write-file]
72033dbe 158 `(menu-item ,(purecopy "Save As...") write-file
92752c3a
EZ		 159 :enable (and (menu-bar-menu-frame-live-and-visible-p)
160 (menu-bar-non-minibuffer-window-p))
72033dbe 161 :help ,(purecopy "Write current buffer to another file")))
b23b6fec 162(define-key menu-bar-file-menu [save-buffer]
72033dbe 163 `(menu-item ,(purecopy "Save") save-buffer
7f315c7c 164 :enable (and (buffer-modified-p)
7a98d821 165 (buffer-file-name)
92752c3a 166 (menu-bar-non-minibuffer-window-p))
72033dbe 167 :help ,(purecopy "Save current buffer to its file")))
7f315c7c 168
b23b6fec 169(define-key menu-bar-file-menu [separator-save]
a3c20c83 170 menu-bar-separator)
7f315c7c 171
7b5836c7
JD		 172(defun menu-find-file-existing ()
173 "Edit the existing file FILENAME."
174 (interactive)
175 (let* ((mustmatch (not (and (fboundp 'x-uses-old-gtk-dialog)
176 (x-uses-old-gtk-dialog))))
177 (filename (car (find-file-read-args "Find file: " mustmatch))))
178 (if mustmatch
179 (find-file-existing filename)
180 (find-file filename))))
181
182
b23b6fec 183(define-key menu-bar-file-menu [kill-buffer]
72033dbe 184 `(menu-item ,(purecopy "Close") kill-this-buffer
7f315c7c 185 :enable (kill-this-buffer-enabled-p)
72033dbe 186 :help ,(purecopy "Discard (kill) current buffer")))
b23b6fec 187(define-key menu-bar-file-menu [insert-file]
72033dbe 188 `(menu-item ,(purecopy "Insert File...") insert-file
92752c3a 189 :enable (menu-bar-non-minibuffer-window-p)
72033dbe 190 :help ,(purecopy "Insert another file into current buffer")))
b23b6fec 191(define-key menu-bar-file-menu [dired]
72033dbe 192 `(menu-item ,(purecopy "Open Directory...") dired
92752c3a 193 :enable (menu-bar-non-minibuffer-window-p)
72033dbe 194 :help ,(purecopy "Read a directory, to operate on its files")))
b23b6fec 195(define-key menu-bar-file-menu [open-file]
72033dbe 196 `(menu-item ,(purecopy "Open File...") menu-find-file-existing
92752c3a 197 :enable (menu-bar-non-minibuffer-window-p)
72033dbe 198 :help ,(purecopy "Read an existing file into an Emacs buffer")))
b23b6fec 199(define-key menu-bar-file-menu [new-file]
72033dbe 200 `(menu-item ,(purecopy "Visit New File...") find-file
92752c3a 201 :enable (menu-bar-non-minibuffer-window-p)
72033dbe 202 :help ,(purecopy "Specify a new file's name, to edit the file")))
7f315c7c 203
9bb8e471 204\f
7f315c7c 205;; The "Edit" menu items
bac6e4e2
KS		 206
207;; The "Edit->Search" submenu
208(defvar menu-bar-last-search-type nil
209 "Type of last non-incremental search command called from the menu.")
210
211(defun nonincremental-repeat-search-forward ()
212 "Search forward for the previous search string or regexp."
213 (interactive)
214 (cond
215 ((and (eq menu-bar-last-search-type 'string)
216 search-ring)
217 (search-forward (car search-ring)))
218 ((and (eq menu-bar-last-search-type 'regexp)
219 regexp-search-ring)
220 (re-search-forward (car regexp-search-ring)))
221 (t
222 (error "No previous search"))))
223
224(defun nonincremental-repeat-search-backward ()
225 "Search backward for the previous search string or regexp."
226 (interactive)
227 (cond
228 ((and (eq menu-bar-last-search-type 'string)
229 search-ring)
230 (search-backward (car search-ring)))
231 ((and (eq menu-bar-last-search-type 'regexp)
232 regexp-search-ring)
233 (re-search-backward (car regexp-search-ring)))
234 (t
235 (error "No previous search"))))
236
ffbdd83d
RS		 237(defun nonincremental-search-forward (string)
238 "Read a string and search for it nonincrementally."
239 (interactive "sSearch for string: ")
bac6e4e2 240 (setq menu-bar-last-search-type 'string)
ffbdd83d
RS		 241 (if (equal string "")
242 (search-forward (car search-ring))
243 (isearch-update-ring string nil)
244 (search-forward string)))
245
246(defun nonincremental-search-backward (string)
247 "Read a string and search backward for it nonincrementally."
248 (interactive "sSearch for string: ")
bac6e4e2 249 (setq menu-bar-last-search-type 'string)
ffbdd83d
RS		 250 (if (equal string "")
251 (search-backward (car search-ring))
252 (isearch-update-ring string nil)
253 (search-backward string)))
254
255(defun nonincremental-re-search-forward (string)
256 "Read a regular expression and search for it nonincrementally."
257 (interactive "sSearch for regexp: ")
bac6e4e2 258 (setq menu-bar-last-search-type 'regexp)
ffbdd83d
RS		 259 (if (equal string "")
260 (re-search-forward (car regexp-search-ring))
261 (isearch-update-ring string t)
262 (re-search-forward string)))
263
264(defun nonincremental-re-search-backward (string)
265 "Read a regular expression and search backward for it nonincrementally."
266 (interactive "sSearch for regexp: ")
bac6e4e2 267 (setq menu-bar-last-search-type 'regexp)
ffbdd83d
RS		 268 (if (equal string "")
269 (re-search-backward (car regexp-search-ring))
270 (isearch-update-ring string t)
271 (re-search-backward string)))
272
bac6e4e2 273(defvar menu-bar-search-menu (make-sparse-keymap "Search"))
ffbdd83d 274
bac6e4e2
KS		 275;; The Edit->Search->Incremental Search menu
276(defvar menu-bar-i-search-menu
277 (make-sparse-keymap "Incremental Search"))
278
279(define-key menu-bar-i-search-menu [isearch-backward-regexp]
72033dbe
DN		 280 `(menu-item ,(purecopy "Backward Regexp...") isearch-backward-regexp
281 :help ,(purecopy "Search backwards for a regular expression as you type it")))
bac6e4e2 282(define-key menu-bar-i-search-menu [isearch-forward-regexp]
72033dbe
DN		 283 `(menu-item ,(purecopy "Forward Regexp...") isearch-forward-regexp
284 :help ,(purecopy "Search forward for a regular expression as you type it")))
bac6e4e2 285(define-key menu-bar-i-search-menu [isearch-backward]
72033dbe
DN		 286 `(menu-item ,(purecopy "Backward String...") isearch-backward
287 :help ,(purecopy "Search backwards for a string as you type it")))
bac6e4e2 288(define-key menu-bar-i-search-menu [isearch-forward]
72033dbe
DN		 289 `(menu-item ,(purecopy "Forward String...") isearch-forward
290 :help ,(purecopy "Search forward for a string as you type it")))
7f315c7c 291
bac6e4e2 292(define-key menu-bar-search-menu [i-search]
98b9bf40 293 `(menu-item ,(purecopy "Incremental Search") ,menu-bar-i-search-menu))
bac6e4e2 294(define-key menu-bar-search-menu [separator-tag-isearch]
a3c20c83 295 menu-bar-separator)
7f315c7c 296
bac6e4e2 297(define-key menu-bar-search-menu [tags-continue]
72033dbe
DN		 298 `(menu-item ,(purecopy "Continue Tags Search") tags-loop-continue
299 :help ,(purecopy "Continue last tags search operation")))
bac6e4e2 300(define-key menu-bar-search-menu [tags-srch]
72033dbe
DN		 301 `(menu-item ,(purecopy "Search Tagged Files...") tags-search
302 :help ,(purecopy "Search for a regexp in all tagged files")))
bac6e4e2 303(define-key menu-bar-search-menu [separator-tag-search]
a3c20c83 304 menu-bar-separator)
ffbdd83d 305
fe74180c 306(define-key menu-bar-search-menu [repeat-search-back]
72033dbe 307 `(menu-item ,(purecopy "Repeat Backwards") nonincremental-repeat-search-backward
bac6e4e2
KS		 308 :enable (or (and (eq menu-bar-last-search-type 'string)
309 search-ring)
310 (and (eq menu-bar-last-search-type 'regexp)
311 regexp-search-ring))
72033dbe 312 :help ,(purecopy "Repeat last search backwards")))
fe74180c 313(define-key menu-bar-search-menu [repeat-search-fwd]
72033dbe 314 `(menu-item ,(purecopy "Repeat Forward") nonincremental-repeat-search-forward
bac6e4e2
KS		 315 :enable (or (and (eq menu-bar-last-search-type 'string)
316 search-ring)
317 (and (eq menu-bar-last-search-type 'regexp)
318 regexp-search-ring))
72033dbe 319 :help ,(purecopy "Repeat last search forward")))
bac6e4e2 320(define-key menu-bar-search-menu [separator-repeat-search]
a3c20c83 321 menu-bar-separator)
bac6e4e2
KS		 322
323(define-key menu-bar-search-menu [re-search-backward]
72033dbe
DN		 324 `(menu-item ,(purecopy "Regexp Backwards...") nonincremental-re-search-backward
325 :help ,(purecopy "Search backwards for a regular expression")))
bac6e4e2 326(define-key menu-bar-search-menu [re-search-forward]
72033dbe
DN		 327 `(menu-item ,(purecopy "Regexp Forward...") nonincremental-re-search-forward
328 :help ,(purecopy "Search forward for a regular expression")))
bac6e4e2 329
fe74180c 330(define-key menu-bar-search-menu [search-backward]
72033dbe
DN		 331 `(menu-item ,(purecopy "String Backwards...") nonincremental-search-backward
332 :help ,(purecopy "Search backwards for a string")))
fe74180c 333(define-key menu-bar-search-menu [search-forward]
72033dbe
DN		 334 `(menu-item ,(purecopy "String Forward...") nonincremental-search-forward
335 :help ,(purecopy "Search forward for a string")))
9bb8e471 336
bac6e4e2
KS		 337;; The Edit->Replace submenu
338
339(defvar menu-bar-replace-menu (make-sparse-keymap "Replace"))
340
341(define-key menu-bar-replace-menu [tags-repl-continue]
72033dbe
DN		 342 `(menu-item ,(purecopy "Continue Replace") tags-loop-continue
343 :help ,(purecopy "Continue last tags replace operation")))
bac6e4e2 344(define-key menu-bar-replace-menu [tags-repl]
72033dbe
DN		 345 `(menu-item ,(purecopy "Replace in Tagged Files...") tags-query-replace
346 :help ,(purecopy "Interactively replace a regexp in all tagged files")))
bac6e4e2 347(define-key menu-bar-replace-menu [separator-replace-tags]
a3c20c83 348 menu-bar-separator)
bac6e4e2
KS		 349
350(define-key menu-bar-replace-menu [query-replace-regexp]
72033dbe 351 `(menu-item ,(purecopy "Replace Regexp...") query-replace-regexp
bac6e4e2 352 :enable (not buffer-read-only)
72033dbe 353 :help ,(purecopy "Replace regular expression interactively, ask about each occurrence")))
bac6e4e2 354(define-key menu-bar-replace-menu [query-replace]
72033dbe 355 `(menu-item ,(purecopy "Replace String...") query-replace
bac6e4e2 356 :enable (not buffer-read-only)
72033dbe 357 :help ,(purecopy "Replace string interactively, ask about each occurrence")))
bac6e4e2 358
7f315c7c
EZ		 359;;; Assemble the top-level Edit menu items.
360(define-key menu-bar-edit-menu [props]
72033dbe 361 `(menu-item ,(purecopy "Text Properties") facemenu-menu))
3dd92899 362
2eef02ab 363(define-key menu-bar-edit-menu [fill]
72033dbe 364 `(menu-item ,(purecopy "Fill") fill-region
2eef02ab
EZ		 365 :enable (and mark-active (not buffer-read-only))
366 :help
72033dbe 367 ,(purecopy "Fill text in region to fit between left and right margin")))
2eef02ab
EZ		 368
369(define-key menu-bar-edit-menu [separator-bookmark]
a3c20c83 370 menu-bar-separator)
7f315c7c
EZ		 371
372(define-key menu-bar-edit-menu [bookmark]
72033dbe 373 `(menu-item ,(purecopy "Bookmarks") menu-bar-bookmark-map))
7f315c7c 374
7f315c7c
EZ		 375(defvar menu-bar-goto-menu (make-sparse-keymap "Go To"))
376
377(define-key menu-bar-goto-menu [set-tags-name]
72033dbe
DN		 378 `(menu-item ,(purecopy "Set Tags File Name...") visit-tags-table
379 :help ,(purecopy "Tell Tags commands which tag table file to use")))
7f315c7c
EZ		 380
381(define-key menu-bar-goto-menu [separator-tag-file]
a3c20c83 382 menu-bar-separator)
7f315c7c
EZ		 383
384(define-key menu-bar-goto-menu [apropos-tags]
72033dbe
DN		 385 `(menu-item ,(purecopy "Tags Apropos...") tags-apropos
386 :help ,(purecopy "Find function/variables whose names match regexp")))
7f315c7c 387(define-key menu-bar-goto-menu [next-tag-otherw]
72033dbe 388 `(menu-item ,(purecopy "Next Tag in Other Window")
277e0f9d 389 menu-bar-next-tag-other-window
0ae27881
EZ		 390 :enable (and (boundp 'tags-location-ring)
391 (not (ring-empty-p tags-location-ring)))
72033dbe 392 :help ,(purecopy "Find next function/variable matching last tag name in another window")))
277e0f9d
RS		 393
394(defun menu-bar-next-tag-other-window ()
395 "Find the next definition of the tag already specified."
396 (interactive)
397 (find-tag-other-window nil t))
398
399(defun menu-bar-next-tag ()
400 "Find the next definition of the tag already specified."
401 (interactive)
402 (find-tag nil t))
403
7f315c7c 404(define-key menu-bar-goto-menu [next-tag]
72033dbe 405 `(menu-item ,(purecopy "Find Next Tag")
277e0f9d 406 menu-bar-next-tag
0ae27881
EZ		 407 :enable (and (boundp 'tags-location-ring)
408 (not (ring-empty-p tags-location-ring)))
72033dbe 409 :help ,(purecopy "Find next function/variable matching last tag name")))
7f315c7c 410(define-key menu-bar-goto-menu [find-tag-otherw]
72033dbe
DN		 411 `(menu-item ,(purecopy "Find Tag in Other Window...") find-tag-other-window
412 :help ,(purecopy "Find function/variable definition in another window")))
7f315c7c 413(define-key menu-bar-goto-menu [find-tag]
72033dbe
DN		 414 `(menu-item ,(purecopy "Find Tag...") find-tag
415 :help ,(purecopy "Find definition of function or variable")))
7f315c7c
EZ		 416
417(define-key menu-bar-goto-menu [separator-tags]
a3c20c83 418 menu-bar-separator)
7f315c7c
EZ		 419
420(define-key menu-bar-goto-menu [end-of-buf]
72033dbe 421 `(menu-item ,(purecopy "Goto End of Buffer") end-of-buffer))
7f315c7c 422(define-key menu-bar-goto-menu [beg-of-buf]
72033dbe 423 `(menu-item ,(purecopy "Goto Beginning of Buffer") beginning-of-buffer))
7f315c7c 424(define-key menu-bar-goto-menu [go-to-pos]
72033dbe
DN		 425 `(menu-item ,(purecopy "Goto Buffer Position...") goto-char
426 :help ,(purecopy "Read a number N and go to buffer position N")))
7f315c7c 427(define-key menu-bar-goto-menu [go-to-line]
72033dbe
DN		 428 `(menu-item ,(purecopy "Goto Line...") goto-line
429 :help ,(purecopy "Read a line number and go to that line")))
7f315c7c
EZ		 430
431(define-key menu-bar-edit-menu [goto]
98b9bf40 432 `(menu-item ,(purecopy "Go To") ,menu-bar-goto-menu))
7f315c7c 433
bac6e4e2 434(define-key menu-bar-edit-menu [replace]
98b9bf40 435 `(menu-item ,(purecopy "Replace") ,menu-bar-replace-menu))
bac6e4e2 436
7f315c7c 437(define-key menu-bar-edit-menu [search]
98b9bf40 438 `(menu-item ,(purecopy "Search") ,menu-bar-search-menu))
7f315c7c 439
2eef02ab 440(define-key menu-bar-edit-menu [separator-search]
a3c20c83 441 menu-bar-separator)
2eef02ab 442
496b7491 443(define-key menu-bar-edit-menu [mark-whole-buffer]
72033dbe
DN		 444 `(menu-item ,(purecopy "Select All") mark-whole-buffer
445 :help ,(purecopy "Mark the whole buffer for a subsequent cut/copy")))
7f315c7c 446(define-key menu-bar-edit-menu [clear]
72033dbe 447 `(menu-item ,(purecopy "Clear") delete-region
7f315c7c
EZ		 448 :enable (and mark-active
449 (not buffer-read-only)
450 (not (mouse-region-match)))
451 :help
72033dbe 452 ,(purecopy "Delete the text in region between mark and current position")))
8f43cbf3 453(defvar yank-menu (cons (purecopy "Select Yank") nil))
3dd92899 454(fset 'yank-menu (cons 'keymap yank-menu))
b36e96c8 455(define-key menu-bar-edit-menu [paste-from-menu]
72033dbe 456 `(menu-item ,(purecopy "Paste from Kill Menu") yank-menu
b36e96c8 457 :enable (and (cdr yank-menu) (not buffer-read-only))
72033dbe 458 :help ,(purecopy "Choose a string from the kill ring and paste it")))
7f315c7c 459(define-key menu-bar-edit-menu [paste]
72033dbe 460 `(menu-item ,(purecopy "Paste") yank
a728dc59
DR		 461 :enable (and (or
462 ;; Emacs compiled --without-x doesn't have
463 ;; x-selection-exists-p.
464 (and (fboundp 'x-selection-exists-p)
465 (x-selection-exists-p))
466 kill-ring)
467 (not buffer-read-only))
72033dbe 468 :help ,(purecopy "Paste (yank) text most recently cut/copied")))
7f315c7c 469(define-key menu-bar-edit-menu [copy]
72033dbe 470 `(menu-item ,(purecopy "Copy") menu-bar-kill-ring-save
7f315c7c 471 :enable mark-active
72033dbe 472 :help ,(purecopy "Copy text in region between mark and current position")
a3c20c83 473 :keys ,(purecopy "\\[kill-ring-save]")))
7f315c7c 474(define-key menu-bar-edit-menu [cut]
72033dbe 475 `(menu-item ,(purecopy "Cut") kill-region
7f315c7c 476 :enable (and mark-active (not buffer-read-only))
ae65cd84 477 :help
72033dbe 478 ,(purecopy "Cut (kill) text in region between mark and current position")))
7f315c7c 479(define-key menu-bar-edit-menu [undo]
72033dbe 480 `(menu-item ,(purecopy "Undo") undo
7f315c7c
EZ		 481 :enable (and (not buffer-read-only)
482 (not (eq t buffer-undo-list))
483 (if (eq last-command 'undo)
37fec9be 484 (listp pending-undo-list)
7f315c7c 485 (consp buffer-undo-list)))
72033dbe 486 :help ,(purecopy "Undo last operation")))
7f315c7c 487
057d49d1 488
4c0317b1
RS		 489(defun menu-bar-kill-ring-save (beg end)
490 (interactive "r")
491 (if (mouse-region-match)
b1a4cc61 492 (message "Selecting a region with the mouse does `copy' automatically")
4c0317b1
RS		 493 (kill-ring-save beg end)))
494
f9cf0be2 495;; These are alternative definitions for the cut, paste and copy
4c0317b1 496;; menu items. Use them if your system expects these to use the clipboard.
f9cf0be2 497
c3283990
MR		 498(put 'clipboard-kill-region 'menu-enable
499 '(and mark-active (not buffer-read-only)))
f9cf0be2
RS		 500(put 'clipboard-kill-ring-save 'menu-enable 'mark-active)
501(put 'clipboard-yank 'menu-enable
a728dc59
DR		 502 '(and (or (not (fboundp 'x-selection-exists-p))
503 (x-selection-exists-p)
c3283990 504 (x-selection-exists-p 'CLIPBOARD))
a728dc59 505 (not buffer-read-only)))
f9cf0be2
RS		 506
507(defun clipboard-yank ()
ee497664 508 "Insert the clipboard contents, or the last stretch of killed text."
1d45e02e 509 (interactive "*")
f9cf0be2
RS		 510 (let ((x-select-enable-clipboard t))
511 (yank)))
512
513(defun clipboard-kill-ring-save (beg end)
514 "Copy region to kill ring, and save in the X clipboard."
515 (interactive "r")
516 (let ((x-select-enable-clipboard t))
517 (kill-ring-save beg end)))
518
519(defun clipboard-kill-region (beg end)
520 "Kill the region, and save it in the X clipboard."
521 (interactive "r")
522 (let ((x-select-enable-clipboard t))
523 (kill-region beg end)))
524
525(defun menu-bar-enable-clipboard ()
5cbdeb30
RS		 526 "Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard.
527Do the same for the keys of the same name."
f9cf0be2 528 (interactive)
5754d7f2
RS		 529 ;; We can't use constant list structure here because it becomes pure,
530 ;; and because it gets modified with cache data.
531 (define-key menu-bar-edit-menu [paste]
7f315c7c 532 (cons "Paste" (cons "Paste text from clipboard" 'clipboard-yank)))
5754d7f2 533 (define-key menu-bar-edit-menu [copy]
7f315c7c
EZ		 534 (cons "Copy" (cons "Copy text in region to the clipboard"
535 'clipboard-kill-ring-save)))
5754d7f2 536 (define-key menu-bar-edit-menu [cut]
7f315c7c
EZ		 537 (cons "Cut" (cons "Delete text in region and copy it to the clipboard"
538 'clipboard-kill-region)))
5cbdeb30 539
e3fa3057
DL		 540 ;; These are Sun server keysyms for the Cut, Copy and Paste keys
541 ;; (also for XFree86 on Sun keyboard):
5cbdeb30
RS		 542 (define-key global-map [f20] 'clipboard-kill-region)
543 (define-key global-map [f16] 'clipboard-kill-ring-save)
544 (define-key global-map [f18] 'clipboard-yank)
e3fa3057 545 ;; X11R6 versions:
5cbdeb30
RS		 546 (define-key global-map [cut] 'clipboard-kill-region)
547 (define-key global-map [copy] 'clipboard-kill-ring-save)
548 (define-key global-map [paste] 'clipboard-yank))
f9cf0be2 549\f
7f315c7c 550;; The "Options" menu items
a9f53ffb
RS		 551
552(defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
553
b0f661de 554(define-key menu-bar-custom-menu [customize-apropos-groups]
72033dbe
DN		 555 `(menu-item ,(purecopy "Groups Matching Regexp...") customize-apropos-groups
556 :help ,(purecopy "Browse groups whose names match regexp")))
b0f661de 557(define-key menu-bar-custom-menu [customize-apropos-faces]
72033dbe
DN		 558 `(menu-item ,(purecopy "Faces Matching Regexp...") customize-apropos-faces
559 :help ,(purecopy "Browse faces whose names match regexp")))
b0f661de 560(define-key menu-bar-custom-menu [customize-apropos-options]
72033dbe
DN		 561 `(menu-item ,(purecopy "Options Matching Regexp...") customize-apropos-options
562 :help ,(purecopy "Browse options whose names match regexp")))
a9f53ffb 563(define-key menu-bar-custom-menu [customize-apropos]
72033dbe
DN		 564 `(menu-item ,(purecopy "Settings Matching Regexp...") customize-apropos
565 :help ,(purecopy "Browse customizable settings whose names match regexp")))
6e0fbd65 566(define-key menu-bar-custom-menu [separator-1]
a3c20c83 567 menu-bar-separator)
c9a86e71 568(define-key menu-bar-custom-menu [customize-group]
72033dbe
DN		 569 `(menu-item ,(purecopy "Specific Group...") customize-group
570 :help ,(purecopy "Customize settings of specific group")))
a9f53ffb 571(define-key menu-bar-custom-menu [customize-face]
72033dbe
DN		 572 `(menu-item ,(purecopy "Specific Face...") customize-face
573 :help ,(purecopy "Customize attributes of specific face")))
b0f661de 574(define-key menu-bar-custom-menu [customize-option]
72033dbe
DN		 575 `(menu-item ,(purecopy "Specific Option...") customize-option
576 :help ,(purecopy "Customize value of specific option")))
6e0fbd65 577(define-key menu-bar-custom-menu [separator-2]
a3c20c83 578 menu-bar-separator)
6fe9c658 579(define-key menu-bar-custom-menu [customize-changed-options]
72033dbe
DN		 580 `(menu-item ,(purecopy "New Options...") customize-changed-options
581 :help ,(purecopy "Options added or changed in recent Emacs versions")))
6e0fbd65 582(define-key menu-bar-custom-menu [customize-saved]
72033dbe
DN		 583 `(menu-item ,(purecopy "Saved Options") customize-saved
584 :help ,(purecopy "Customize previously saved options")))
b0f661de 585(define-key menu-bar-custom-menu [separator-3]
a3c20c83 586 menu-bar-separator)
e6354b3e 587(define-key menu-bar-custom-menu [customize-browse]
72033dbe
DN		 588 `(menu-item ,(purecopy "Browse Customization Groups") customize-browse
589 :help ,(purecopy "Browse all customization groups")))
b0f661de 590(define-key menu-bar-custom-menu [customize]
72033dbe
DN		 591 `(menu-item ,(purecopy "Top-level Customization Group") customize
592 :help ,(purecopy "The master group called `Emacs'")))
a9f53ffb 593
7f315c7c 594;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences"))
bacb2d12 595
09bfa5ca
SM		 596(defmacro menu-bar-make-mm-toggle (fname doc help &optional props)
597 "Make a menu-item for a global minor mode toggle.
598FNAME is the minor mode's name (variable and function).
7faa9d02 599DOC is the text to use for the menu entry.
09bfa5ca
SM		 600HELP is the text to use for the tooltip.
601PROPS are additional properties."
8f43cbf3 602 `(list 'menu-item (purecopy ,doc) ',fname
e24f42ab 603 ,@(mapcar (lambda (p) (list 'quote p)) props)
cf4aaa59
JL		 604 :help (purecopy ,help)
605 :button '(:toggle . (and (default-boundp ',fname)
606 (default-value ',fname)))))
09bfa5ca 607
a9d96061 608(defmacro menu-bar-make-toggle (name variable doc message help &rest body)
bacb2d12 609 `(progn
da67fa9a 610 (defun ,name (&optional interactively)
e8dd28e7 611 ,(concat "Toggle whether to " (downcase (substring help 0 1))
d02c57d3 612 (substring help 1) ".
da67fa9a
RS		 613In an interactive call, record this option as a candidate for saving
614by \"Save Options\" in Custom buffers.")
615 (interactive "p")
bacb2d12 616 (if ,(if body `(progn . ,body)
bc6f3791 617 `(progn
4f9b9060
PA		 618 (custom-load-symbol ',variable)
619 (let ((set (or (get ',variable 'custom-set) 'set-default))
620 (get (or (get ',variable 'custom-get) 'default-value)))
621 (funcall set ',variable (not (funcall get ',variable))))))
b36e96c8
RS		 622 (message ,message "enabled globally")
623 (message ,message "disabled globally"))
a9d96061
SM		 624 ;; The function `customize-mark-as-set' must only be called when
625 ;; a variable is set interactively, as the purpose is to mark it as
626 ;; a candidate for "Save Options", and we do not want to save options
627 ;; the user have already set explicitly in his init file.
da67fa9a 628 (if interactively (customize-mark-as-set ',variable)))
8f43cbf3 629 (list 'menu-item (purecopy ,doc) ',name
cf4aaa59
JL		 630 :help (purecopy ,help)
631 :button '(:toggle . (and (default-boundp ',variable)
632 (default-value ',variable))))))
7f315c7c 633
ba858bf9
CY		 634;; Function for setting/saving default font.
635
636(defun menu-set-font ()
637 "Interactively select a font and make it the default."
638 (interactive)
2c09b70c 639 (let ((font (if (fboundp 'x-select-font)
a81a17c5 640 (x-select-font)
ba858bf9
CY		 641 (mouse-select-font)))
642 spec)
643 (when font
bb712f90
CY		 644 ;; Be careful here: when set-face-attribute is called for the
645 ;; :font attribute, Emacs tries to guess the best matching font
646 ;; by examining the other face attributes (Bug#2476).
647 (set-face-attribute 'default (selected-frame)
648 :width 'normal
649 :weight 'normal
650 :slant 'normal
651 :font font)
431709cb
CY		 652 (let ((font-object (face-attribute 'default :font)))
653 (dolist (f (frame-list))
654 (and (not (eq f (selected-frame)))
655 (display-graphic-p f)
656 (set-face-attribute 'default f :font font-object)))
657 (set-face-attribute 'default t :font font-object))
ba858bf9
CY		 658 (setq spec (list (list t (face-attr-construct 'default))))
659 (put 'default 'customized-face spec)
660 (custom-push-theme 'theme-face 'default 'user 'set spec)
661 (put 'default 'face-modified nil))))
662
637fa988
JD		 663
664
7f315c7c
EZ		 665;;; Assemble all the top-level items of the "Options" menu
666(define-key menu-bar-options-menu [customize]
98b9bf40 667 `(menu-item ,(purecopy "Customize Emacs") ,menu-bar-custom-menu))
10013d74
DL		 668
669(defun menu-bar-options-save ()
670 "Save current values of Options menu items using Custom."
671 (interactive)
414fd702 672 (let ((need-save nil))
5373d675
RS		 673 ;; These are set with menu-bar-make-mm-toggle, which does not
674 ;; put on a customized-value property.
e1573595
LK		 675 (dolist (elt '(line-number-mode column-number-mode size-indication-mode
676 cua-mode show-paren-mode transient-mark-mode
dea24608 677 blink-cursor-mode display-time-mode display-battery-mode))
5373d675
RS		 678 (and (customize-mark-to-save elt)
679 (setq need-save t)))
4f9b9060 680 ;; These are set with `customize-set-variable'.
5373d675 681 (dolist (elt '(scroll-bar-mode
73ae229c
NR		 682 debug-on-quit debug-on-error
683 tooltip-mode menu-bar-mode tool-bar-mode
8cfa1cd5 684 save-place uniquify-buffer-name-style fringe-mode
622a8785 685 indicate-empty-lines indicate-buffer-boundaries
537fd670 686 case-fold-search
f4990970 687 current-language-environment default-input-method
4f9b9060
PA		 688 ;; Saving `text-mode-hook' is somewhat questionable,
689 ;; as we might get more than we bargain for, if
690 ;; other code may has added hooks as well.
691 ;; Nonetheless, not saving it would like be confuse
692 ;; more often.
693 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
694 text-mode-hook))
695 (and (get elt 'customized-value)
696 (customize-mark-to-save elt)
697 (setq need-save t)))
e34b0c60
CY		 698 (when (get 'default 'customized-face)
699 (put 'default 'saved-face (get 'default 'customized-face))
700 (put 'default 'customized-face nil)
701 (setq need-save t))
414fd702
PA		 702 ;; Save if we changed anything.
703 (when need-save
704 (custom-save-all))))
10013d74
DL		 705
706(define-key menu-bar-options-menu [save]
72033dbe
DN		 707 `(menu-item ,(purecopy "Save Options") menu-bar-options-save
708 :help ,(purecopy "Save options set from the menu above")))
10013d74
DL		 709
710(define-key menu-bar-options-menu [custom-separator]
a3c20c83 711 menu-bar-separator)
10013d74 712
ba858bf9 713(define-key menu-bar-options-menu [menu-set-font]
72033dbe 714 `(menu-item ,(purecopy "Set Default Font...") menu-set-font
ba858bf9 715 :visible (display-multi-font-p)
72033dbe 716 :help ,(purecopy "Select a default font")))
3f9f1c1f 717
637fa988
JD		 718(if (featurep 'system-font-setting)
719 (define-key menu-bar-options-menu [menu-system-font]
720 (menu-bar-make-toggle toggle-use-system-font font-use-system-font
721 "Use system font"
722 "Use system font: %s"
723 "Use the monospaced font defined by the system")))
724
725
c2ca4bab
PJ		 726;; The "Show/Hide" submenu of menu "Options"
727
728(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
40189bd6 729
d0e1c755 730(define-key menu-bar-showhide-menu [column-number-mode]
a9d96061 731 (menu-bar-make-mm-toggle column-number-mode
e3fa3057 732 "Column Numbers"
a9d96061 733 "Show the current column number in the mode line"))
d0e1c755
PJ		 734
735(define-key menu-bar-showhide-menu [line-number-mode]
a9d96061 736 (menu-bar-make-mm-toggle line-number-mode
e3fa3057 737 "Line Numbers"
a9d96061 738 "Show the current line number in the mode line"))
d0e1c755 739
e1573595
LK		 740(define-key menu-bar-showhide-menu [size-indication-mode]
741 (menu-bar-make-mm-toggle size-indication-mode
742 "Size Indication"
743 "Show the size of the buffer in the mode line"))
744
d0e1c755 745(define-key menu-bar-showhide-menu [linecolumn-separator]
a3c20c83 746 menu-bar-separator)
d0e1c755 747
87737bc2
JL		 748(define-key menu-bar-showhide-menu [showhide-battery]
749 (menu-bar-make-mm-toggle display-battery-mode
1f742f74 750 "Battery Status"
87737bc2
JL		 751 "Display battery status information in mode line"))
752
40189bd6 753(define-key menu-bar-showhide-menu [showhide-date-time]
4a4a82d6 754 (menu-bar-make-mm-toggle display-time-mode
704c78e9
LT		 755 "Time, Load and Mail"
756 "Display time, system load averages and \
757mail status in mode line"))
40189bd6
PJ		 758
759(define-key menu-bar-showhide-menu [datetime-separator]
a3c20c83 760 menu-bar-separator)
40189bd6 761
a9c6d330 762(define-key menu-bar-showhide-menu [showhide-speedbar]
72033dbe
DN		 763 `(menu-item ,(purecopy "Speedbar") speedbar-frame-mode
764 :help ,(purecopy "Display a Speedbar quick-navigation frame")
a9c6d330
PA		 765 :button (:toggle
766 . (and (boundp 'speedbar-frame)
767 (frame-live-p (symbol-value 'speedbar-frame))
bc6f3791 768 (frame-visible-p
a9c6d330
PA		 769 (symbol-value 'speedbar-frame))))))
770
622a8785 771(defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe"))
f7481749 772
622a8785
LT		 773(defvar menu-bar-showhide-fringe-ind-menu
774 (make-sparse-keymap "Buffer boundaries"))
f7481749 775
622a8785
LT		 776(defun menu-bar-showhide-fringe-ind-customize ()
777 "Show customization buffer for `indicate-buffer-boundaries'."
f7481749 778 (interactive)
622a8785 779 (customize-variable 'indicate-buffer-boundaries))
f7481749 780
622a8785 781(define-key menu-bar-showhide-fringe-ind-menu [customize]
72033dbe 782 `(menu-item ,(purecopy "Other (Customize)")
622a8785 783 menu-bar-showhide-fringe-ind-customize
72033dbe 784 :help ,(purecopy "Additional choices available through Custom buffer")
3a5b5d14
AS		 785 :visible (display-graphic-p)
786 :button (:radio . (not (member indicate-buffer-boundaries
787 '(nil left right
788 ((top . left) (bottom . right))
789 ((t . right) (top . left))))))))
f7481749
KS		 790
791(defun menu-bar-showhide-fringe-ind-mixed ()
622a8785 792 "Display top and bottom indicators in opposite fringes, arrows in right."
f7481749 793 (interactive)
622a8785
LT		 794 (customize-set-variable 'indicate-buffer-boundaries
795 '((t . right) (top . left))))
f7481749
KS		 796
797(define-key menu-bar-showhide-fringe-ind-menu [mixed]
72033dbe 798 `(menu-item ,(purecopy "Opposite, Arrows Right") menu-bar-showhide-fringe-ind-mixed
622a8785 799 :help
72033dbe 800 ,(purecopy "Show top/bottom indicators in opposite fringes, arrows in right")
f7481749 801 :visible (display-graphic-p)
a08404b7
AS		 802 :button (:radio . (equal indicate-buffer-boundaries
803 '((t . right) (top . left))))))
f7481749
KS		 804
805(defun menu-bar-showhide-fringe-ind-box ()
806 "Display top and bottom indicators in opposite fringes."
807 (interactive)
622a8785
LT		 808 (customize-set-variable 'indicate-buffer-boundaries
809 '((top . left) (bottom . right))))
f7481749
KS		 810
811(define-key menu-bar-showhide-fringe-ind-menu [box]
72033dbe
DN		 812 `(menu-item ,(purecopy "Opposite, No Arrows") menu-bar-showhide-fringe-ind-box
813 :help ,(purecopy "Show top/bottom indicators in opposite fringes, no arrows")
f7481749 814 :visible (display-graphic-p)
a08404b7
AS		 815 :button (:radio . (equal indicate-buffer-boundaries
816 '((top . left) (bottom . right))))))
f7481749
KS		 817
818(defun menu-bar-showhide-fringe-ind-right ()
622a8785 819 "Display buffer boundaries and arrows in the right fringe."
f7481749 820 (interactive)
622a8785 821 (customize-set-variable 'indicate-buffer-boundaries 'right))
f7481749
KS		 822
823(define-key menu-bar-showhide-fringe-ind-menu [right]
72033dbe
DN		 824 `(menu-item ,(purecopy "In Right Fringe") menu-bar-showhide-fringe-ind-right
825 :help ,(purecopy "Show buffer boundaries and arrows in right fringe")
f7481749 826 :visible (display-graphic-p)
622a8785 827 :button (:radio . (eq indicate-buffer-boundaries 'right))))
f7481749
KS		 828
829(defun menu-bar-showhide-fringe-ind-left ()
622a8785 830 "Display buffer boundaries and arrows in the left fringe."
f7481749 831 (interactive)
622a8785 832 (customize-set-variable 'indicate-buffer-boundaries 'left))
f7481749
KS		 833
834(define-key menu-bar-showhide-fringe-ind-menu [left]
72033dbe
DN		 835 `(menu-item ,(purecopy "In Left Fringe") menu-bar-showhide-fringe-ind-left
836 :help ,(purecopy "Show buffer boundaries and arrows in left fringe")
f7481749 837 :visible (display-graphic-p)
622a8785 838 :button (:radio . (eq indicate-buffer-boundaries 'left))))
f7481749
KS		 839
840(defun menu-bar-showhide-fringe-ind-none ()
622a8785 841 "Do not display any buffer boundary indicators."
f7481749 842 (interactive)
622a8785 843 (customize-set-variable 'indicate-buffer-boundaries nil))
f7481749
KS		 844
845(define-key menu-bar-showhide-fringe-ind-menu [none]
72033dbe
DN		 846 `(menu-item ,(purecopy "No Indicators") menu-bar-showhide-fringe-ind-none
847 :help ,(purecopy "Hide all buffer boundary indicators and arrows")
f7481749 848 :visible (display-graphic-p)
622a8785 849 :button (:radio . (eq indicate-buffer-boundaries nil))))
f7481749 850
622a8785 851(define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
98b9bf40
JL		 852 `(menu-item ,(purecopy "Buffer Boundaries") ,menu-bar-showhide-fringe-ind-menu
853 :visible (display-graphic-p)
854 :help ,(purecopy "Indicate buffer boundaries in fringe")))
f7481749 855
622a8785
LT		 856(define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]
857 (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines
1f742f74 858 "Empty Line Indicators"
622a8785 859 "Indicating of empty lines %s"
b36e96c8 860 "Indicate trailing empty lines in fringe, globally"))
8cfa1cd5
SJ		 861
862(defun menu-bar-showhide-fringe-menu-customize ()
863 "Show customization buffer for `fringe-mode'."
864 (interactive)
865 (customize-variable 'fringe-mode))
866
867(define-key menu-bar-showhide-fringe-menu [customize]
72033dbe
DN		 868 `(menu-item ,(purecopy "Customize Fringe") menu-bar-showhide-fringe-menu-customize
869 :help ,(purecopy "Detailed customization of fringe")
8cfa1cd5
SJ		 870 :visible (display-graphic-p)))
871
872(defun menu-bar-showhide-fringe-menu-customize-reset ()
277e0f9d 873 "Reset the fringe mode: display fringes on both sides of a window."
8cfa1cd5
SJ		 874 (interactive)
875 (customize-set-variable 'fringe-mode nil))
876
877(define-key menu-bar-showhide-fringe-menu [default]
72033dbe
DN		 878 `(menu-item ,(purecopy "Default") menu-bar-showhide-fringe-menu-customize-reset
879 :help ,(purecopy "Default width fringe on both left and right side")
8cfa1cd5 880 :visible (display-graphic-p)
277e0f9d 881 :button (:radio . (eq fringe-mode nil))))
8cfa1cd5 882
8cfa1cd5 883(defun menu-bar-showhide-fringe-menu-customize-right ()
277e0f9d 884 "Display fringes only on the right of each window."
8cfa1cd5 885 (interactive)
00cb70dc
MB		 886 (require 'fringe)
887 (customize-set-variable 'fringe-mode '(0 . nil)))
8cfa1cd5
SJ		 888
889(define-key menu-bar-showhide-fringe-menu [right]
72033dbe
DN		 890 `(menu-item ,(purecopy "On the Right") menu-bar-showhide-fringe-menu-customize-right
891 :help ,(purecopy "Fringe only on the right side")
8cfa1cd5 892 :visible (display-graphic-p)
277e0f9d 893 :button (:radio . (equal fringe-mode '(0 . nil)))))
8cfa1cd5 894
4c0252a5
JD		 895(defun menu-bar-showhide-fringe-menu-customize-left ()
896 "Display fringes only on the left of each window."
897 (interactive)
898 (require 'fringe)
899 (customize-set-variable 'fringe-mode '(nil . 0)))
900
901(define-key menu-bar-showhide-fringe-menu [left]
72033dbe
DN		 902 `(menu-item ,(purecopy "On the Left") menu-bar-showhide-fringe-menu-customize-left
903 :help ,(purecopy "Fringe only on the left side")
4c0252a5
JD		 904 :visible (display-graphic-p)
905 :button (:radio . (equal fringe-mode '(nil . 0)))))
906
8cfa1cd5 907(defun menu-bar-showhide-fringe-menu-customize-disable ()
277e0f9d 908 "Do not display window fringes."
8cfa1cd5 909 (interactive)
00cb70dc
MB		 910 (require 'fringe)
911 (customize-set-variable 'fringe-mode 0))
8cfa1cd5
SJ		 912
913(define-key menu-bar-showhide-fringe-menu [none]
72033dbe
DN		 914 `(menu-item ,(purecopy "None") menu-bar-showhide-fringe-menu-customize-disable
915 :help ,(purecopy "Turn off fringe")
8cfa1cd5 916 :visible (display-graphic-p)
277e0f9d 917 :button (:radio . (eq fringe-mode 0))))
8cfa1cd5
SJ		 918
919(define-key menu-bar-showhide-menu [showhide-fringe]
98b9bf40
JL		 920 `(menu-item ,(purecopy "Fringe") ,menu-bar-showhide-fringe-menu
921 :visible (display-graphic-p)))
8cfa1cd5 922
c2ca4bab
PJ		 923(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
924
c2ca4bab 925(define-key menu-bar-showhide-scroll-bar-menu [right]
72033dbe 926 `(menu-item ,(purecopy "On the Right")
277e0f9d 927 menu-bar-right-scroll-bar
72033dbe 928 :help ,(purecopy "Scroll-bar on the right side")
5f7b6438 929 :visible (display-graphic-p)
4f9b9060
PA		 930 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
931 (frame-parameters))) 'right))))
277e0f9d
RS		 932(defun menu-bar-right-scroll-bar ()
933 "Display scroll bars on the right of each window."
934 (interactive)
935 (customize-set-variable 'scroll-bar-mode 'right))
c2ca4bab
PJ		 936
937(define-key menu-bar-showhide-scroll-bar-menu [left]
72033dbe 938 `(menu-item ,(purecopy "On the Left")
277e0f9d 939 menu-bar-left-scroll-bar
72033dbe 940 :help ,(purecopy "Scroll-bar on the left side")
5f7b6438 941 :visible (display-graphic-p)
4f9b9060
PA		 942 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
943 (frame-parameters))) 'left))))
c2ca4bab 944
277e0f9d
RS		 945(defun menu-bar-left-scroll-bar ()
946 "Display scroll bars on the left of each window."
947 (interactive)
0e5ddee1 948 (customize-set-variable 'scroll-bar-mode 'left))
277e0f9d 949
c2ca4bab 950(define-key menu-bar-showhide-scroll-bar-menu [none]
72033dbe 951 `(menu-item ,(purecopy "None")
277e0f9d 952 menu-bar-no-scroll-bar
72033dbe 953 :help ,(purecopy "Turn off scroll-bar")
5f7b6438 954 :visible (display-graphic-p)
4f9b9060
PA		 955 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
956 (frame-parameters))) nil))))
c2ca4bab 957
277e0f9d
RS		 958(defun menu-bar-no-scroll-bar ()
959 "Turn off scroll bars."
960 (interactive)
961 (customize-set-variable 'scroll-bar-mode nil))
962
c2ca4bab 963(define-key menu-bar-showhide-menu [showhide-scroll-bar]
98b9bf40
JL		 964 `(menu-item ,(purecopy "Scroll-bar") ,menu-bar-showhide-scroll-bar-menu
965 :visible (display-graphic-p)))
c2ca4bab 966
73ae229c 967(define-key menu-bar-showhide-menu [showhide-tooltip-mode]
98b9bf40
JL		 968 `(menu-item ,(purecopy "Tooltips") tooltip-mode
969 :help ,(purecopy "Turn tooltips on/off")
970 :visible (and (display-graphic-p) (fboundp 'x-show-tip))
971 :button (:toggle . tooltip-mode)))
73ae229c 972
09bfa5ca 973(define-key menu-bar-showhide-menu [menu-bar-mode]
72033dbe
DN		 974 `(menu-item ,(purecopy "Menu-bar") toggle-menu-bar-mode-from-frame
975 :help ,(purecopy "Turn menu-bar on/off")
6a5af08f 976 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0))))
c2ca4bab 977
c2ca4bab 978(define-key menu-bar-showhide-menu [showhide-tool-bar]
98b9bf40
JL		 979 `(menu-item ,(purecopy "Tool-bar") toggle-tool-bar-mode-from-frame
980 :help ,(purecopy "Turn tool-bar on/off")
981 :visible (display-graphic-p)
982 :button (:toggle . (> (frame-parameter nil 'tool-bar-lines) 0))))
c2ca4bab
PJ		 983
984(define-key menu-bar-options-menu [showhide]
98b9bf40 985 `(menu-item ,(purecopy "Show/Hide") ,menu-bar-showhide-menu))
c2ca4bab
PJ		 986
987(define-key menu-bar-options-menu [showhide-separator]
a3c20c83 988 menu-bar-separator)
c2ca4bab 989
7f315c7c
EZ		 990(define-key menu-bar-options-menu [mule]
991 ;; It is better not to use backquote here,
992 ;; because that makes a bootstrapping problem
993 ;; if you need to recompile all the Lisp files using interpreted code.
98b9bf40 994 `(menu-item ,(purecopy "Mule (Multilingual Environment)") ,mule-menu-keymap
506c6d61
DL		 995;; Most of the MULE menu actually does make sense in unibyte mode,
996;; e.g. language selection.
597e2240 997;;; :visible '(default-value 'enable-multibyte-characters)
ad9f6125 998 ))
7f315c7c
EZ		 999;(setq menu-bar-final-items (cons 'mule menu-bar-final-items))
1000;(define-key menu-bar-options-menu [preferences]
98b9bf40
JL		 1001; `(menu-item ,(purecopy "Preferences") ,menu-bar-preferences-menu
1002; :help ,(purecopy "Toggle important global options")))
7f315c7c
EZ		 1003
1004(define-key menu-bar-options-menu [mule-separator]
a3c20c83 1005 menu-bar-separator)
bacb2d12
RS		 1006
1007(define-key menu-bar-options-menu [debug-on-quit]
1008 (menu-bar-make-toggle toggle-debug-on-quit debug-on-quit
e8dd28e7 1009 "Enter Debugger on Quit/C-g" "Debug on Quit %s"
7f315c7c 1010 "Enter Lisp debugger when C-g is pressed"))
bacb2d12
RS		 1011(define-key menu-bar-options-menu [debug-on-error]
1012 (menu-bar-make-toggle toggle-debug-on-error debug-on-error
e8dd28e7
RS		 1013 "Enter Debugger on Error" "Debug on Error %s"
1014 "Enter Lisp debugger when an error is signaled"))
7f315c7c 1015(define-key menu-bar-options-menu [debugger-separator]
a3c20c83 1016 menu-bar-separator)
7faa9d02
LT		 1017
1018(define-key menu-bar-options-menu [blink-cursor-mode]
1019 (menu-bar-make-mm-toggle blink-cursor-mode
1020 "Blinking Cursor"
1021 "Whether the cursor blinks (Blink Cursor mode)"))
1022(define-key menu-bar-options-menu [cursor-separator]
a3c20c83 1023 menu-bar-separator)
7faa9d02 1024
bacb2d12
RS		 1025(define-key menu-bar-options-menu [save-place]
1026 (menu-bar-make-toggle toggle-save-place-globally save-place
89f1709f 1027 "Save Place in Files between Sessions"
bacb2d12 1028 "Saving place in files %s"
aef1a2e6
KF		 1029 "Visit files of previous session when restarting Emacs"
1030 (require 'saveplace)
1031 ;; Do it by name, to avoid a free-variable
1032 ;; warning during byte compilation.
1033 (set-default
1034 'save-place (not (symbol-value 'save-place)))))
4f9b9060 1035
bacb2d12
RS		 1036(define-key menu-bar-options-menu [uniquify]
1037 (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style
89f1709f 1038 "Use Directory Names in Buffer Names"
bacb2d12 1039 "Directory name in buffer names (uniquify) %s"
e8dd28e7 1040 "Uniquify buffer names by adding parent directory names"
bacb2d12
RS		 1041 (require 'uniquify)
1042 (setq uniquify-buffer-name-style
1043 (if (not uniquify-buffer-name-style)
1044 'forward))))
4f9b9060 1045
7f315c7c 1046(define-key menu-bar-options-menu [edit-options-separator]
a3c20c83 1047 menu-bar-separator)
06753468 1048(define-key menu-bar-options-menu [cua-mode]
c960446b 1049 (menu-bar-make-mm-toggle cua-mode
1f742f74 1050 "C-x/C-c/C-v Cut and Paste (CUA)"
899481b7 1051 "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"
e24f42ab
JL		 1052 (:visible (or (not (boundp 'cua-enable-cua-keys))
1053 cua-enable-cua-keys))))
899481b7
KS		 1054
1055(define-key menu-bar-options-menu [cua-emulation-mode]
1056 (menu-bar-make-mm-toggle cua-mode
1057 "Shift movement mark region (CUA)"
1058 "Use shifted movement keys to set and extend the region."
e24f42ab
JL		 1059 (:visible (and (boundp 'cua-enable-cua-keys)
1060 (not cua-enable-cua-keys)))))
277e0f9d 1061
3f51f129
RS		 1062(define-key menu-bar-options-menu [case-fold-search]
1063 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
f5be22a2 1064 "Case-Insensitive Search"
b36e96c8 1065 "Case-Insensitive Search %s"
2a6c4d75 1066 "Ignore letter-case in search commands"))
277e0f9d
RS		 1067
1068(defun menu-bar-text-mode-auto-fill ()
1069 (interactive)
1070 (toggle-text-mode-auto-fill)
1071 ;; This is somewhat questionable, as `text-mode-hook'
1072 ;; might have changed outside customize.
1073 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
1074 (customize-mark-as-set 'text-mode-hook))
1075
7f315c7c 1076(define-key menu-bar-options-menu [auto-fill-mode]
72033dbe 1077 `(menu-item ,(purecopy "Auto Fill in Text Modes")
277e0f9d 1078 menu-bar-text-mode-auto-fill
72033dbe 1079 :help ,(purecopy "Automatically fill text while typing (Auto Fill mode)")
e51c889c
RS		 1080 :button (:toggle . (if (listp text-mode-hook)
1081 (member 'turn-on-auto-fill text-mode-hook)
1082 (eq 'turn-on-auto-fill text-mode-hook)))))
2a6c4d75 1083
81577689
CY		 1084
1085(defvar menu-bar-line-wrapping-menu (make-sparse-keymap "Line Wrapping"))
1086
81577689 1087(define-key menu-bar-line-wrapping-menu [word-wrap]
72033dbe 1088 `(menu-item ,(purecopy "Word Wrap (Visual Line mode)")
ad456027
CY		 1089 (lambda ()
1090 (interactive)
1091 (unless visual-line-mode
1092 (visual-line-mode 1))
a3c20c83 1093 (message ,(purecopy "Visual-Line mode enabled")))
72033dbe 1094 :help ,(purecopy "Wrap long lines at word boundaries")
81577689
CY		 1095 :button (:radio . (and (null truncate-lines)
1096 (not (truncated-partial-width-window-p))
1097 word-wrap))
ad456027
CY		 1098 :visible (menu-bar-menu-frame-live-and-visible-p)))
1099
1100(define-key menu-bar-line-wrapping-menu [truncate]
72033dbe 1101 `(menu-item ,(purecopy "Truncate Long Lines")
ad456027
CY		 1102 (lambda ()
1103 (interactive)
1104 (if visual-line-mode (visual-line-mode 0))
1105 (setq word-wrap nil)
1106 (toggle-truncate-lines 1))
72033dbe 1107 :help ,(purecopy "Truncate long lines at window edge")
ad456027
CY		 1108 :button (:radio . (or truncate-lines
1109 (truncated-partial-width-window-p)))
81577689
CY		 1110 :visible (menu-bar-menu-frame-live-and-visible-p)
1111 :enable (not (truncated-partial-width-window-p))))
1112
1113(define-key menu-bar-line-wrapping-menu [window-wrap]
72033dbe 1114 `(menu-item ,(purecopy "Wrap at Window Edge")
ad456027
CY		 1115 (lambda () (interactive)
1116 (if visual-line-mode (visual-line-mode 0))
1117 (setq word-wrap nil)
1118 (if truncate-lines (toggle-truncate-lines -1)))
72033dbe 1119 :help ,(purecopy "Wrap long lines at window edge")
81577689
CY		 1120 :button (:radio . (and (null truncate-lines)
1121 (not (truncated-partial-width-window-p))
1122 (not word-wrap)))
1123 :visible (menu-bar-menu-frame-live-and-visible-p)
1124 :enable (not (truncated-partial-width-window-p))))
1125
1126(define-key menu-bar-options-menu [line-wrapping]
98b9bf40 1127 `(menu-item ,(purecopy "Line Wrapping in this Buffer") ,menu-bar-line-wrapping-menu))
81577689 1128
0ac1c4cf 1129
7f315c7c 1130(define-key menu-bar-options-menu [highlight-separator]
a3c20c83 1131 menu-bar-separator)
7f315c7c 1132(define-key menu-bar-options-menu [highlight-paren-mode]
09bfa5ca
SM		 1133 (menu-bar-make-mm-toggle show-paren-mode
1134 "Paren Match Highlighting"
a9d96061 1135 "Highlight matching/mismatched parentheses at cursor (Show Paren mode)"))
bacb2d12 1136(define-key menu-bar-options-menu [transient-mark-mode]
a9d96061
SM		 1137 (menu-bar-make-mm-toggle transient-mark-mode
1138 "Active Region Highlighting"
1139 "Make text in active region stand out in color (Transient Mark mode)"
e24f42ab 1140 (:enable (not cua-mode))))
7f315c7c 1141
e5683624 1142\f
7f315c7c
EZ		 1143;; The "Tools" menu items
1144
e4ca8f8c
EZ		 1145(defun send-mail-item-name ()
1146 (let* ((known-send-mail-commands '((sendmail-user-agent . "sendmail")
1147 (mh-e-user-agent . "MH")
1148 (message-user-agent . "Gnus Message")
1149 (gnus-user-agent . "Gnus")))
1150 (name (assq mail-user-agent known-send-mail-commands)))
1151 (if name
1152 (setq name (cdr name))
1153 (setq name (symbol-name mail-user-agent))
1154 (if (string-match "\\(.+\\)-user-agent" name)
1155 (setq name (match-string 1 name))))
1156 name))
1157
0a1f9f1d
EZ		 1158(defun read-mail-item-name ()
1159 (let* ((known-rmail-commands '((rmail . "RMAIL")
1160 (mh-rmail . "MH")
1161 (gnus . "Gnus")))
1162 (known (assq read-mail-command known-rmail-commands)))
1163 (if known (cdr known) (symbol-name read-mail-command))))
1164
9a3558cb
DN		 1165(defvar menu-bar-games-menu (make-sparse-keymap "Games"))
1166
1167(define-key menu-bar-tools-menu [games]
98b9bf40 1168 `(menu-item ,(purecopy "Games") ,menu-bar-games-menu))
9a3558cb
DN		 1169
1170(define-key menu-bar-tools-menu [separator-games]
a3c20c83 1171 menu-bar-separator)
9a3558cb
DN		 1172
1173(define-key menu-bar-games-menu [zone]
72033dbe
DN		 1174 `(menu-item ,(purecopy "Zone Out") zone
1175 :help ,(purecopy "Play tricks with Emacs display when Emacs is idle")))
9a3558cb 1176(define-key menu-bar-games-menu [tetris]
72033dbe
DN		 1177 `(menu-item ,(purecopy "Tetris") tetris
1178 :help ,(purecopy "Falling blocks game")))
9a3558cb 1179(define-key menu-bar-games-menu [solitaire]
72033dbe
DN		 1180 `(menu-item ,(purecopy "Solitaire") solitaire
1181 :help ,(purecopy "Get rid of all the stones")))
9a3558cb 1182(define-key menu-bar-games-menu [snake]
72033dbe
DN		 1183 `(menu-item ,(purecopy "Snake") snake
1184 :help ,(purecopy "Move snake around avoiding collisions")))
9a3558cb 1185(define-key menu-bar-games-menu [pong]
72033dbe
DN		 1186 `(menu-item ,(purecopy "Pong") pong
1187 :help ,(purecopy "Bounce the ball to your opponent")))
9a3558cb 1188(define-key menu-bar-games-menu [mult]
72033dbe
DN		 1189 `(menu-item ,(purecopy "Multiplication Puzzle") mpuz
1190 :help ,(purecopy "Exercise brain with multiplication")))
9a3558cb 1191(define-key menu-bar-games-menu [life]
72033dbe
DN		 1192 `(menu-item ,(purecopy "Life") life
1193 :help ,(purecopy "Watch how John Conway's cellular automaton evolves")))
9a3558cb 1194(define-key menu-bar-games-menu [hanoi]
72033dbe
DN		 1195 `(menu-item ,(purecopy "Towers of Hanoi") hanoi
1196 :help ,(purecopy "Watch Towers-of-Hanoi puzzle solved by Emacs")))
9a3558cb 1197(define-key menu-bar-games-menu [gomoku]
72033dbe
DN		 1198 `(menu-item ,(purecopy "Gomoku") gomoku
1199 :help ,(purecopy "Mark 5 contiguous squares (like tic-tac-toe)")))
9a3558cb 1200(define-key menu-bar-games-menu [bubbles]
72033dbe
DN		 1201 `(menu-item ,(purecopy "Bubbles") bubbles
1202 :help ,(purecopy "Remove all bubbles using the fewest moves")))
9a3558cb 1203(define-key menu-bar-games-menu [black-box]
72033dbe
DN		 1204 `(menu-item ,(purecopy "Blackbox") blackbox
1205 :help ,(purecopy "Find balls in a black box by shooting rays")))
9a3558cb 1206(define-key menu-bar-games-menu [adventure]
72033dbe
DN		 1207 `(menu-item ,(purecopy "Adventure") dunnet
1208 :help ,(purecopy "Dunnet, a text Adventure game for Emacs")))
9a3558cb 1209(define-key menu-bar-games-menu [5x5]
72033dbe
DN		 1210 `(menu-item ,(purecopy "5x5") 5x5
1211 :help ,(purecopy "Fill in all the squares on a 5x5 board")))
9a3558cb 1212
bfeee9d1
DN		 1213(defvar menu-bar-encryption-decryption-menu
1214 (make-sparse-keymap "Encryption/Decryption"))
1215
1216(define-key menu-bar-tools-menu [encryption-decryption]
98b9bf40 1217 `(menu-item ,(purecopy "Encryption/Decryption") ,menu-bar-encryption-decryption-menu))
bfeee9d1
DN		 1218
1219(define-key menu-bar-tools-menu [separator-encryption-decryption]
a3c20c83 1220 menu-bar-separator)
bfeee9d1
DN		 1221
1222(define-key menu-bar-encryption-decryption-menu [insert-keys]
72033dbe
DN		 1223 `(menu-item ,(purecopy "Insert Keys") epa-insert-keys
1224 :help ,(purecopy "Insert public keys after the current point")))
bfeee9d1
DN		 1225
1226(define-key menu-bar-encryption-decryption-menu [export-keys]
72033dbe
DN		 1227 `(menu-item ,(purecopy "Export Keys") epa-export-keys
1228 :help ,(purecopy "Export public keys to a file")))
bfeee9d1
DN		 1229
1230(define-key menu-bar-encryption-decryption-menu [import-keys-region]
72033dbe
DN		 1231 `(menu-item ,(purecopy "Import Keys from Region") epa-import-keys-region
1232 :help ,(purecopy "Import public keys from the current region")))
bfeee9d1
DN		 1233
1234(define-key menu-bar-encryption-decryption-menu [import-keys]
72033dbe
DN		 1235 `(menu-item ,(purecopy "Import Keys from File...") epa-import-keys
1236 :help ,(purecopy "Import public keys from a file")))
bfeee9d1
DN		 1237
1238(define-key menu-bar-encryption-decryption-menu [list-keys]
72033dbe
DN		 1239 `(menu-item ,(purecopy "List Keys") epa-list-keys
1240 :help ,(purecopy "Browse your public keyring")))
bfeee9d1
DN		 1241
1242(define-key menu-bar-encryption-decryption-menu [separator-keys]
a3c20c83 1243 menu-bar-separator)
bfeee9d1 1244
bfeee9d1 1245(define-key menu-bar-encryption-decryption-menu [sign-region]
72033dbe
DN		 1246 `(menu-item ,(purecopy "Sign Region") epa-sign-region
1247 :help ,(purecopy "Create digital signature of the current region")))
bfeee9d1 1248
bfeee9d1 1249(define-key menu-bar-encryption-decryption-menu [verify-region]
72033dbe
DN		 1250 `(menu-item ,(purecopy "Verify Region") epa-verify-region
1251 :help ,(purecopy "Verify digital signature of the current region")))
bfeee9d1 1252
9a3558cb 1253(define-key menu-bar-encryption-decryption-menu [encrypt-region]
72033dbe
DN		 1254 `(menu-item ,(purecopy "Encrypt Region") epa-encrypt-region
1255 :help ,(purecopy "Encrypt the current region")))
bfeee9d1
DN		 1256
1257(define-key menu-bar-encryption-decryption-menu [decrypt-region]
72033dbe
DN		 1258 `(menu-item ,(purecopy "Decrypt Region") epa-decrypt-region
1259 :help ,(purecopy "Decrypt the current region")))
bfeee9d1 1260
9a3558cb 1261(define-key menu-bar-encryption-decryption-menu [separator-file]
a3c20c83 1262 menu-bar-separator)
bfeee9d1 1263
9a3558cb 1264(define-key menu-bar-encryption-decryption-menu [sign-file]
72033dbe
DN		 1265 `(menu-item ,(purecopy "Sign File...") epa-sign-file
1266 :help ,(purecopy "Create digital signature of a file")))
7f315c7c 1267
9a3558cb 1268(define-key menu-bar-encryption-decryption-menu [verify-file]
72033dbe
DN		 1269 `(menu-item ,(purecopy "Verify File...") epa-verify-file
1270 :help ,(purecopy "Verify digital signature of a file")))
7f315c7c 1271
9a3558cb 1272(define-key menu-bar-encryption-decryption-menu [encrypt-file]
72033dbe
DN		 1273 `(menu-item ,(purecopy "Encrypt File...") epa-encrypt-file
1274 :help ,(purecopy "Encrypt a file")))
7f315c7c 1275
9a3558cb 1276(define-key menu-bar-encryption-decryption-menu [decrypt-file]
72033dbe
DN		 1277 `(menu-item ,(purecopy "Decrypt File...") epa-decrypt-file
1278 :help ,(purecopy "Decrypt a file")))
7f315c7c 1279
1edd6ac4 1280(define-key menu-bar-tools-menu [simple-calculator]
72033dbe
DN		 1281 `(menu-item ,(purecopy "Simple Calculator") calculator
1282 :help ,(purecopy "Invoke the Emacs built-in quick calculator")))
1edd6ac4 1283(define-key menu-bar-tools-menu [calc]
72033dbe
DN		 1284 `(menu-item ,(purecopy "Programmable Calculator") calc
1285 :help ,(purecopy "Invoke the Emacs built-in full scientific calculator")))
506c6d61 1286(define-key menu-bar-tools-menu [calendar]
72033dbe
DN		 1287 `(menu-item ,(purecopy "Calendar") calendar
1288 :help ,(purecopy "Invoke the Emacs built-in calendar")))
9a45aa3d
EZ		 1289
1290(define-key menu-bar-tools-menu [separator-net]
a3c20c83 1291 menu-bar-separator)
9a45aa3d 1292
7f315c7c 1293(define-key menu-bar-tools-menu [directory-search]
72033dbe 1294 `(menu-item ,(purecopy "Directory Search") eudc-tools-menu))
506c6d61 1295(define-key menu-bar-tools-menu [compose-mail]
497f0cdd 1296 `(menu-item (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail
98b9bf40
JL		 1297 :visible (and mail-user-agent (not (eq mail-user-agent 'ignore)))
1298 :help ,(purecopy "Send a mail message")))
506c6d61 1299(define-key menu-bar-tools-menu [rmail]
497f0cdd
GM		 1300 `(menu-item (format "Read Mail (with %s)" (read-mail-item-name))
1301 menu-bar-read-mail
1302 :visible (and read-mail-command
1303 (not (eq read-mail-command 'ignore)))
98b9bf40 1304 :help ,(purecopy "Read your mail and reply to it")))
277e0f9d
RS		 1305
1306(defun menu-bar-read-mail ()
724f328c 1307 "Read mail using `read-mail-command'."
277e0f9d
RS		 1308 (interactive)
1309 (call-interactively read-mail-command))
1310
7f315c7c 1311(define-key menu-bar-tools-menu [gnus]
72033dbe
DN		 1312 `(menu-item ,(purecopy "Read Net News (Gnus)") gnus
1313 :help ,(purecopy "Read network news groups")))
7f315c7c
EZ		 1314
1315(define-key menu-bar-tools-menu [separator-vc]
a3c20c83 1316 menu-bar-separator)
7f315c7c 1317
eccd9bd5 1318(define-key menu-bar-tools-menu [pcl-cvs]
72033dbe 1319 `(menu-item ,(purecopy "PCL-CVS") cvs-global-menu))
dc172b73 1320(define-key menu-bar-tools-menu [vc] nil) ;Create the place for the VC menu.
7f315c7c
EZ		 1321
1322(define-key menu-bar-tools-menu [separator-compare]
a3c20c83 1323 menu-bar-separator)
7f315c7c 1324
7f315c7c 1325(define-key menu-bar-tools-menu [epatch]
72033dbe 1326 `(menu-item ,(purecopy "Apply Patch") menu-bar-epatch-menu))
7f315c7c 1327(define-key menu-bar-tools-menu [ediff-merge]
72033dbe 1328 `(menu-item ,(purecopy "Merge") menu-bar-ediff-merge-menu))
7f315c7c 1329(define-key menu-bar-tools-menu [compare]
72033dbe 1330 `(menu-item ,(purecopy "Compare (Ediff)") menu-bar-ediff-menu))
7f315c7c
EZ		 1331
1332(define-key menu-bar-tools-menu [separator-spell]
a3c20c83 1333 menu-bar-separator)
7f315c7c
EZ		 1334
1335(define-key menu-bar-tools-menu [spell]
72033dbe 1336 `(menu-item ,(purecopy "Spell Checking") ispell-menu-map))
7f315c7c
EZ		 1337
1338(define-key menu-bar-tools-menu [separator-prog]
a3c20c83 1339 menu-bar-separator)
7f315c7c 1340
ebf5c4f5
CY		 1341(define-key menu-bar-tools-menu [semantic]
1342 `(menu-item ,(purecopy "Source Code Parsers (Semantic)")
1343 semantic-mode
1344 :help ,(purecopy "Toggle automatic parsing in source code buffers (Semantic mode)")
1345 :button (:toggle . (bound-and-true-p semantic-mode))))
1346
1347(define-key menu-bar-tools-menu [ede]
1348 `(menu-item ,(purecopy "Project support (EDE)")
1349 global-ede-mode
1350 :help ,(purecopy "Toggle the Emacs Development Environment (Global EDE mode)")
1351 :button (:toggle . (bound-and-true-p global-ede-mode))))
1352
7f315c7c 1353(define-key menu-bar-tools-menu [gdb]
72033dbe
DN		 1354 `(menu-item ,(purecopy "Debugger (GDB)...") gdb
1355 :help ,(purecopy "Debug a program from within Emacs with GDB")))
7f315c7c 1356(define-key menu-bar-tools-menu [shell-on-region]
72033dbe 1357 `(menu-item ,(purecopy "Shell Command on Region...") shell-command-on-region
7f315c7c 1358 :enable mark-active
72033dbe 1359 :help ,(purecopy "Pass marked region to a shell command")))
7f315c7c 1360(define-key menu-bar-tools-menu [shell]
72033dbe
DN		 1361 `(menu-item ,(purecopy "Shell Command...") shell-command
1362 :help ,(purecopy "Invoke a shell command and catch its output")))
7f315c7c 1363(define-key menu-bar-tools-menu [compile]
72033dbe
DN		 1364 `(menu-item ,(purecopy "Compile...") compile
1365 :help ,(purecopy "Invoke compiler or Make, view compilation errors")))
7f315c7c 1366(define-key menu-bar-tools-menu [grep]
72033dbe
DN		 1367 `(menu-item ,(purecopy "Search Files (Grep)...") grep
1368 :help ,(purecopy "Search files for strings or regexps (with Grep)")))
7f315c7c
EZ		 1369
1370\f
1371;; The "Help" menu items
1372
e5683624
RS		 1373(defvar menu-bar-describe-menu (make-sparse-keymap "Describe"))
1374
7f315c7c 1375(define-key menu-bar-describe-menu [mule-diag]
72033dbe 1376 `(menu-item ,(purecopy "Show All of Mule Status") mule-diag
597e2240 1377 :visible (default-value 'enable-multibyte-characters)
72033dbe 1378 :help ,(purecopy "Display multilingual environment settings")))
df5bde6d 1379(define-key menu-bar-describe-menu [describe-coding-system-briefly]
72033dbe 1380 `(menu-item ,(purecopy "Describe Coding System (Briefly)")
df5bde6d 1381 describe-current-coding-system-briefly
597e2240 1382 :visible (default-value 'enable-multibyte-characters)))
7f315c7c 1383(define-key menu-bar-describe-menu [describe-coding-system]
72033dbe 1384 `(menu-item ,(purecopy "Describe Coding System...") describe-coding-system
597e2240 1385 :visible (default-value 'enable-multibyte-characters)))
7f315c7c 1386(define-key menu-bar-describe-menu [describe-input-method]
72033dbe 1387 `(menu-item ,(purecopy "Describe Input Method...") describe-input-method
597e2240 1388 :visible (default-value 'enable-multibyte-characters)
72033dbe 1389 :help ,(purecopy "Keyboard layout for specific input method")))
7f315c7c 1390(define-key menu-bar-describe-menu [describe-language-environment]
72033dbe 1391 `(menu-item ,(purecopy "Describe Language Environment")
98b9bf40 1392 ,describe-language-environment-map))
7f315c7c
EZ		 1393
1394(define-key menu-bar-describe-menu [separator-desc-mule]
a3c20c83 1395 menu-bar-separator)
7f315c7c
EZ		 1396
1397(define-key menu-bar-describe-menu [list-keybindings]
72033dbe
DN		 1398 `(menu-item ,(purecopy "List Key Bindings") describe-bindings
1399 :help ,(purecopy "Display all current key bindings (keyboard shortcuts)")))
df5bde6d 1400(define-key menu-bar-describe-menu [describe-current-display-table]
72033dbe
DN		 1401 `(menu-item ,(purecopy "Describe Display Table") describe-current-display-table
1402 :help ,(purecopy "Describe the current display table")))
df5bde6d 1403(define-key menu-bar-describe-menu [describe-face]
72033dbe
DN		 1404 `(menu-item ,(purecopy "Describe Face...") describe-face
1405 :help ,(purecopy "Display the properties of a face")))
e5683624 1406(define-key menu-bar-describe-menu [describe-variable]
72033dbe
DN		 1407 `(menu-item ,(purecopy "Describe Variable...") describe-variable
1408 :help ,(purecopy "Display documentation of variable/option")))
e5683624 1409(define-key menu-bar-describe-menu [describe-function]
72033dbe
DN		 1410 `(menu-item ,(purecopy "Describe Function...") describe-function
1411 :help ,(purecopy "Display documentation of function/command")))
686e63b3 1412(define-key menu-bar-describe-menu [describe-key-1]
72033dbe 1413 `(menu-item ,(purecopy "Describe Key or Mouse Operation...") describe-key
506c6d61 1414 ;; Users typically don't identify keys and menu items...
72033dbe
DN		 1415 :help ,(purecopy "Display documentation of command bound to a \
1416key, a click, or a menu-item")))
df5bde6d 1417(define-key menu-bar-describe-menu [describe-mode]
72033dbe
DN		 1418 `(menu-item ,(purecopy "Describe Buffer Modes") describe-mode
1419 :help ,(purecopy "Describe this buffer's major and minor mode")))
df5bde6d 1420
9f3bfa54
EZ		 1421(defvar menu-bar-search-documentation-menu
1422 (make-sparse-keymap "Search Documentation"))
5275d6a8
EZ		 1423(defun menu-bar-read-lispref ()
1424 "Display the Emacs Lisp Reference manual in Info mode."
1425 (interactive)
1426 (info "elisp"))
1427
1428(defun menu-bar-read-lispintro ()
1429 "Display the Introduction to Emacs Lisp Programming in Info mode."
1430 (interactive)
1431 (info "eintr"))
1432
5275d6a8
EZ		 1433(defun search-emacs-glossary ()
1434 "Display the Glossary node of the Emacs manual in Info mode."
1435 (interactive)
1436 (info "(emacs)Glossary"))
1437
1438(defun emacs-index-search (topic)
1439 "Look up TOPIC in the indices of the Emacs User Manual."
1440 (interactive "sSubject to look up: ")
1441 (info "emacs")
1442 (Info-index topic))
1443
1444(defun elisp-index-search (topic)
1445 "Look up TOPIC in the indices of the Emacs Lisp Reference Manual."
1446 (interactive "sSubject to look up: ")
1447 (info "elisp")
1448 (Info-index topic))
df5bde6d 1449
9f3bfa54 1450(define-key menu-bar-search-documentation-menu [search-documentation-strings]
72033dbe 1451 `(menu-item ,(purecopy "Search Documentation Strings...") apropos-documentation
5275d6a8 1452 :help
72033dbe 1453 ,(purecopy "Find functions and variables whose doc strings match a regexp")))
9f3bfa54 1454(define-key menu-bar-search-documentation-menu [find-any-object-by-name]
72033dbe
DN		 1455 `(menu-item ,(purecopy "Find Any Object by Name...") apropos
1456 :help ,(purecopy "Find symbols of any kind whose names match a regexp")))
9f3bfa54 1457(define-key menu-bar-search-documentation-menu [find-option-by-value]
72033dbe
DN		 1458 `(menu-item ,(purecopy "Find Options by Value...") apropos-value
1459 :help ,(purecopy "Find variables whose values match a regexp")))
9f3bfa54 1460(define-key menu-bar-search-documentation-menu [find-options-by-name]
72033dbe
DN		 1461 `(menu-item ,(purecopy "Find Options by Name...") apropos-variable
1462 :help ,(purecopy "Find variables whose names match a regexp")))
9f3bfa54 1463(define-key menu-bar-search-documentation-menu [find-commands-by-name]
72033dbe
DN		 1464 `(menu-item ,(purecopy "Find Commands by Name...") apropos-command
1465 :help ,(purecopy "Find commands whose names match a regexp")))
9f3bfa54 1466(define-key menu-bar-search-documentation-menu [sep1]
a3c20c83 1467 menu-bar-separator)
9f3bfa54 1468(define-key menu-bar-search-documentation-menu [lookup-command-in-manual]
72033dbe
DN		 1469 `(menu-item ,(purecopy "Look Up Command in User Manual...") Info-goto-emacs-command-node
1470 :help ,(purecopy "Display manual section that describes a command")))
9f3bfa54 1471(define-key menu-bar-search-documentation-menu [lookup-key-in-manual]
72033dbe
DN		 1472 `(menu-item ,(purecopy "Look Up Key in User Manual...") Info-goto-emacs-key-command-node
1473 :help ,(purecopy "Display manual section that describes a key")))
9f3bfa54 1474(define-key menu-bar-search-documentation-menu [lookup-subject-in-elisp-manual]
72033dbe
DN		 1475 `(menu-item ,(purecopy "Look Up Subject in ELisp Manual...") elisp-index-search
1476 :help ,(purecopy "Find description of a subject in Emacs Lisp manual")))
9f3bfa54 1477(define-key menu-bar-search-documentation-menu [lookup-subject-in-emacs-manual]
72033dbe
DN		 1478 `(menu-item ,(purecopy "Look Up Subject in User Manual...") emacs-index-search
1479 :help ,(purecopy "Find description of a subject in Emacs User manual")))
9f3bfa54 1480(define-key menu-bar-search-documentation-menu [emacs-terminology]
72033dbe
DN		 1481 `(menu-item ,(purecopy "Emacs Terminology") search-emacs-glossary
1482 :help ,(purecopy "Display the Glossary section of the Emacs manual")))
5275d6a8
EZ		 1483
1484(defvar menu-bar-manuals-menu (make-sparse-keymap "More Manuals"))
e5683624
RS		 1485
1486(define-key menu-bar-manuals-menu [man]
72033dbe
DN		 1487 `(menu-item ,(purecopy "Read Man Page...") manual-entry
1488 :help ,(purecopy "Man-page docs for external commands and libraries")))
e5683624 1489(define-key menu-bar-manuals-menu [sep2]
a3c20c83 1490 menu-bar-separator)
5275d6a8 1491(define-key menu-bar-manuals-menu [order-emacs-manuals]
72033dbe
DN		 1492 `(menu-item ,(purecopy "Ordering Manuals") view-order-manuals
1493 :help ,(purecopy "How to order manuals from the Free Software Foundation")))
9f3bfa54 1494(define-key menu-bar-manuals-menu [lookup-subject-in-all-manuals]
72033dbe
DN		 1495 `(menu-item ,(purecopy "Lookup Subject in all Manuals...") info-apropos
1496 :help ,(purecopy "Find description of a subject in all installed manuals")))
9f3bfa54 1497(define-key menu-bar-manuals-menu [other-manuals]
72033dbe
DN		 1498 `(menu-item ,(purecopy "All Other Manuals (Info)") Info-directory
1499 :help ,(purecopy "Read any of the installed manuals")))
9f3bfa54 1500(define-key menu-bar-manuals-menu [emacs-lisp-reference]
72033dbe
DN		 1501 `(menu-item ,(purecopy "Emacs Lisp Reference") menu-bar-read-lispref
1502 :help ,(purecopy "Read the Emacs Lisp Reference manual")))
9f3bfa54 1503(define-key menu-bar-manuals-menu [emac-lisp-intro]
72033dbe
DN		 1504 `(menu-item ,(purecopy "Introduction to Emacs Lisp") menu-bar-read-lispintro
1505 :help ,(purecopy "Read the Introduction to Emacs Lisp Programming")))
bacb2d12 1506
a064691f 1507(define-key menu-bar-help-menu [about-gnu-project]
72033dbe
DN		 1508 `(menu-item ,(purecopy "About GNU") describe-gnu-project
1509 :help ,(purecopy "About the GNU System, GNU Project, and GNU/Linux")))
a064691f 1510(define-key menu-bar-help-menu [about-emacs]
72033dbe
DN		 1511 `(menu-item ,(purecopy "About Emacs") about-emacs
1512 :help ,(purecopy "Display version number, copyright info, and basic help")))
5275d6a8 1513(define-key menu-bar-help-menu [sep4]
a3c20c83 1514 menu-bar-separator)
f3e1e0dd 1515(define-key menu-bar-help-menu [describe-no-warranty]
72033dbe
DN		 1516 `(menu-item ,(purecopy "(Non)Warranty") describe-no-warranty
1517 :help ,(purecopy "Explain that Emacs has NO WARRANTY")))
f3e1e0dd 1518(define-key menu-bar-help-menu [describe-copying]
72033dbe
DN		 1519 `(menu-item ,(purecopy "Copying Conditions") describe-copying
1520 :help ,(purecopy "Show the Emacs license (GPL)")))
9f3bfa54 1521(define-key menu-bar-help-menu [getting-new-versions]
72033dbe
DN		 1522 `(menu-item ,(purecopy "Getting New Versions") describe-distribution
1523 :help ,(purecopy "How to get the latest version of Emacs")))
277e0f9d
RS		 1524(defun menu-bar-help-extra-packages ()
1525 "Display help about some additional packages available for Emacs."
1526 (interactive)
1527 (let (enable-local-variables)
1528 (view-file (expand-file-name "MORE.STUFF"
1529 data-directory))
4fd8fd32 1530 (goto-address-mode 1)))
e5683624 1531(define-key menu-bar-help-menu [sep2]
a3c20c83 1532 menu-bar-separator)
a064691f 1533(define-key menu-bar-help-menu [external-packages]
72033dbe
DN		 1534 `(menu-item ,(purecopy "External Packages") menu-bar-help-extra-packages
1535 :help ,(purecopy "Lisp packages distributed separately for use in Emacs")))
9f3bfa54 1536(define-key menu-bar-help-menu [find-emacs-packages]
72033dbe
DN		 1537 `(menu-item ,(purecopy "Find Emacs Packages") finder-by-keyword
1538 :help ,(purecopy "Find packages and features by keyword")))
9f3bfa54 1539(define-key menu-bar-help-menu [more-manuals]
98b9bf40 1540 `(menu-item ,(purecopy "More Manuals") ,menu-bar-manuals-menu))
5275d6a8 1541(define-key menu-bar-help-menu [emacs-manual]
72033dbe
DN		 1542 `(menu-item ,(purecopy "Read the Emacs Manual") info-emacs-manual
1543 :help ,(purecopy "Full documentation of Emacs features")))
e5683624 1544(define-key menu-bar-help-menu [describe]
98b9bf40 1545 `(menu-item ,(purecopy "Describe") ,menu-bar-describe-menu))
9f3bfa54 1546(define-key menu-bar-help-menu [search-documentation]
98b9bf40 1547 `(menu-item ,(purecopy "Search Documentation") ,menu-bar-search-documentation-menu))
e5683624 1548(define-key menu-bar-help-menu [sep1]
a3c20c83 1549 menu-bar-separator)
a064691f 1550(define-key menu-bar-help-menu [emacs-psychotherapist]
72033dbe
DN		 1551 `(menu-item ,(purecopy "Emacs Psychotherapist") doctor
1552 :help ,(purecopy "Our doctor will help you feel better")))
9f3bfa54 1553(define-key menu-bar-help-menu [send-emacs-bug-report]
72033dbe
DN		 1554 `(menu-item ,(purecopy "Send Bug Report...") report-emacs-bug
1555 :help ,(purecopy "Send e-mail to Emacs maintainers")))
9f3bfa54 1556(define-key menu-bar-help-menu [emacs-known-problems]
72033dbe
DN		 1557 `(menu-item ,(purecopy "Emacs Known Problems") view-emacs-problems
1558 :help ,(purecopy "Read about known problems with Emacs")))
7f315c7c 1559(define-key menu-bar-help-menu [emacs-news]
72033dbe
DN		 1560 `(menu-item ,(purecopy "Emacs News") view-emacs-news
1561 :help ,(purecopy "New features of this version")))
7f315c7c 1562(define-key menu-bar-help-menu [emacs-faq]
72033dbe
DN		 1563 `(menu-item ,(purecopy "Emacs FAQ") view-emacs-FAQ
1564 :help ,(purecopy "Frequently asked (and answered) questions about Emacs")))
277e0f9d
RS		 1565
1566(defun help-with-tutorial-spec-language ()
1567 "Use the Emacs tutorial, specifying which language you want."
f1180544 1568 (interactive)
277e0f9d
RS		 1569 (help-with-tutorial t))
1570
451ec4e3 1571(define-key menu-bar-help-menu [emacs-tutorial-language-specific]
72033dbe 1572 `(menu-item ,(purecopy "Emacs Tutorial (choose language)...")
277e0f9d 1573 help-with-tutorial-spec-language
72033dbe 1574 :help ,(purecopy "Learn how to use Emacs (choose a language)")))
7f315c7c 1575(define-key menu-bar-help-menu [emacs-tutorial]
72033dbe
DN		 1576 `(menu-item ,(purecopy "Emacs Tutorial") help-with-tutorial
1577 :help ,(purecopy "Learn how to use Emacs")))
889560ed 1578
92752c3a
EZ		 1579(defun menu-bar-menu-frame-live-and-visible-p ()
1580 "Return non-nil if the menu frame is alive and visible.
1581The menu frame is the frame for which we are updating the menu."
55d42133 1582 (let ((menu-frame (or menu-updating-frame (selected-frame))))
92752c3a
EZ		 1583 (and (frame-live-p menu-frame)
1584 (frame-visible-p menu-frame))))
1585
1586(defun menu-bar-non-minibuffer-window-p ()
1587 "Return non-nil if selected window of the menu frame is not a minibuf window.
1588
1589See the documentation of `menu-bar-menu-frame-live-and-visible-p'
1590for the definition of the menu frame."
55d42133 1591 (let ((menu-frame (or menu-updating-frame (selected-frame))))
92752c3a
EZ		 1592 (not (window-minibuffer-p (frame-selected-window menu-frame)))))
1593
6eee5abf 1594(defun kill-this-buffer () ; for the menu bar
a86b330f
JL		 1595 "Kill the current buffer.
1596When called in the minibuffer, get out of the minibuffer
1597using `abort-recursive-edit'."
db774a16 1598 (interactive)
a86b330f
JL		 1599 (if (menu-bar-non-minibuffer-window-p)
1600 (kill-buffer (current-buffer))
1601 (abort-recursive-edit)))
db774a16 1602
2f1139a4
RS		 1603(defun kill-this-buffer-enabled-p ()
1604 (let ((count 0)
1605 (buffers (buffer-list)))
1606 (while buffers
1607 (or (string-match "^ " (buffer-name (car buffers)))
1608 (setq count (1+ count)))
1609 (setq buffers (cdr buffers)))
a86b330f
JL		 1610 (or (not (menu-bar-non-minibuffer-window-p))
1611 (> count 1))))
1f50590a 1612
92752c3a 1613(put 'dired 'menu-enable '(menu-bar-non-minibuffer-window-p))
1f50590a 1614
a0213a97 1615;; Permit deleting frame if it would leave a visible or iconified frame.
82a74107
KH		 1616(defun delete-frame-enabled-p ()
1617 "Return non-nil if `delete-frame' should be enabled in the menu bar."
1618 (let ((frames (frame-list))
27aa8132
RS		 1619 (count 0))
1620 (while frames
1621 (if (frame-visible-p (car frames))
1622 (setq count (1+ count)))
1623 (setq frames (cdr frames)))
1624 (> count 1)))
2f1139a4 1625
30e19aee 1626(defcustom yank-menu-length 20
9201cc28 1627 "Maximum length to display in the yank-menu."
30e19aee 1628 :type 'integer
d3434a5b 1629 :group 'menu)
3dd92899
KH		 1630
1631(defun menu-bar-update-yank-menu (string old)
1632 (let ((front (car (cdr yank-menu)))
1633 (menu-string (if (<= (length string) yank-menu-length)
1634 string
c3e1d435
RS		 1635 (concat
1636 (substring string 0 (/ yank-menu-length 2))
1637 "..."
1638 (substring string (- (/ yank-menu-length 2)))))))
7c70a955
RS		 1639 ;; Don't let the menu string be all dashes
1640 ;; because that has a special meaning in a menu.
1641 (if (string-match "\\`-+\\'" menu-string)
1642 (setq menu-string (concat menu-string " ")))
3dd92899
KH		 1643 ;; If we're supposed to be extending an existing string, and that
1644 ;; string really is at the front of the menu, then update it in place.
1645 (if (and old (or (eq old (car front))
1646 (string= old (car front))))
dfabc98f 1647 (progn
3dd92899
KH		 1648 (setcar front string)
1649 (setcar (cdr front) menu-string))
1650 (setcdr yank-menu
1651 (cons
1652 (cons string (cons menu-string 'menu-bar-select-yank))
1653 (cdr yank-menu)))))
1654 (if (> (length (cdr yank-menu)) kill-ring-max)
1655 (setcdr (nthcdr kill-ring-max yank-menu) nil)))
1656
4cca6fbd 1657(put 'menu-bar-select-yank 'apropos-inhibit t)
3dd92899 1658(defun menu-bar-select-yank ()
5fb64ecc
EZ		 1659 "Insert the stretch of previously-killed text selected from menu.
1660The menu shows all the killed text sequences stored in `kill-ring'."
3dd92899
KH		 1661 (interactive "*")
1662 (push-mark (point))
1663 (insert last-command-event))
68310f2a 1664
40954111 1665\f
d3434a5b
JL		 1666;;; Buffers Menu
1667
1668(defcustom buffers-menu-max-size 10
9201cc28 1669 "Maximum number of entries which may appear on the Buffers menu.
d3434a5b
JL		 1670If this is 10, then only the ten most-recently-selected buffers are shown.
1671If this is nil, then all buffers are shown.
1672A large number or nil slows down menu responsiveness."
1673 :type '(choice integer
1674 (const :tag "All" nil))
1675 :group 'menu)
1676
1677(defcustom buffers-menu-buffer-name-length 30
9201cc28 1678 "Maximum length of the buffer name on the Buffers menu.
d3434a5b
JL		 1679If this is a number, then buffer names are truncated to this length.
1680If this is nil, then buffer names are shown in full.
1681A large number or nil makes the menu too wide."
1682 :type '(choice integer
1683 (const :tag "Full length" nil))
1684 :group 'menu)
1685
68310f2a
MB		 1686(defcustom buffers-menu-show-directories 'unless-uniquify
1687 "If non-nil, show directories in the Buffers menu for buffers that have them.
1688The special value `unless-uniquify' means that directories will be shown
1689unless `uniquify-buffer-name-style' is non-nil (in which case, buffer
1690names should include enough of a buffer's directory to distinguish it
1691from other buffers).
1692
1693Setting this variable directly does not take effect until next time the
1694Buffers menu is regenerated."
1695 :set (lambda (symbol value)
1696 (set symbol value)
1697 (menu-bar-update-buffers t))
1698 :initialize 'custom-initialize-default
1699 :type '(choice (const :tag "Never" nil)
1700 (const :tag "Unless uniquify is enabled" unless-uniquify)
1701 (const :tag "Always" t))
1702 :group 'menu)
1703
1704(defcustom buffers-menu-show-status t
1705 "If non-nil, show modified/read-only status of buffers in the Buffers menu.
1706Setting this variable directly does not take effect until next time the
1707Buffers menu is regenerated."
1708 :set (lambda (symbol value)
1709 (set symbol value)
1710 (menu-bar-update-buffers t))
1711 :initialize 'custom-initialize-default
1712 :type 'boolean
1713 :group 'menu)
1714
11ee8d90 1715(defvar list-buffers-directory nil
8f75f2da 1716 "String to display in buffer listings for buffers not visiting a file.")
11ee8d90 1717(make-variable-buffer-local 'list-buffers-directory)
d0690d12 1718
fb75de8f
VJL		 1719(defun menu-bar-select-buffer ()
1720 (interactive)
1721 (switch-to-buffer last-command-event))
1722
ed10603b
SM		 1723(defun menu-bar-select-frame (frame)
1724 (make-frame-visible frame)
1725 (raise-frame frame)
1726 (select-frame frame))
09642d97 1727
c171b42f 1728(defun menu-bar-update-buffers-1 (elt)
68703c11
MB		 1729 (let* ((buf (car elt))
1730 (file
68310f2a
MB		 1731 (and (if (eq buffers-menu-show-directories 'unless-uniquify)
1732 (or (not (boundp 'uniquify-buffer-name-style))
1733 (null uniquify-buffer-name-style))
1734 buffers-menu-show-directories)
68703c11 1735 (or (buffer-file-name buf)
68310f2a 1736 (buffer-local-value 'list-buffers-directory buf)))))
68703c11
MB		 1737 (when file
1738 (setq file (file-name-directory file)))
1739 (when (and file (> (length file) 20))
1740 (setq file (concat "..." (substring file -17))))
68310f2a
MB		 1741 (cons (if buffers-menu-show-status
1742 (let ((mod (if (buffer-modified-p buf) "*" ""))
1743 (ro (if (buffer-local-value 'buffer-read-only buf) "%" "")))
1744 (if file
1745 (format "%s %s%s -- %s" (cdr elt) mod ro file)
1746 (format "%s %s%s" (cdr elt) mod ro)))
1747 (if file
1748 (format "%s -- %s" (cdr elt) file)
1749 (cdr elt)))
68703c11
MB		 1750 buf)))
1751
887d3c94
MB		 1752;; Used to cache the menu entries for commands in the Buffers menu
1753(defvar menu-bar-buffers-menu-command-entries nil)
1754
ee1dbceb 1755(defun menu-bar-update-buffers (&optional force)
29397c58 1756 ;; If user discards the Buffers item, play along.
4d587a6c 1757 (and (lookup-key (current-global-map) [menu-bar buffer])
ee1dbceb 1758 (or force (frame-or-buffer-changed-p))
29397c58
RS		 1759 (let ((buffers (buffer-list))
1760 (frames (frame-list))
bf902855 1761 buffers-menu)
29397c58
RS		 1762 ;; If requested, list only the N most recently selected buffers.
1763 (if (and (integerp buffers-menu-max-size)
1764 (> buffers-menu-max-size 1))
1765 (if (> (length buffers) buffers-menu-max-size)
1766 (setcdr (nthcdr buffers-menu-max-size buffers) nil)))
1767
1768 ;; Make the menu of buffers proper.
1769 (setq buffers-menu
ed10603b 1770 (let (alist)
8b621d39
MB		 1771 ;; Put into each element of buffer-list
1772 ;; the name for actual display,
1773 ;; perhaps truncated in the middle.
ed10603b
SM		 1774 (dolist (buf buffers)
1775 (let ((name (buffer-name buf)))
1776 (unless (eq ?\s (aref name 0))
1777 (push (menu-bar-update-buffers-1
1778 (cons buf
d3434a5b
JL		 1779 (if (and (integerp buffers-menu-buffer-name-length)
1780 (> (length name) buffers-menu-buffer-name-length))
1781 (concat
1782 (substring
1783 name 0 (/ buffers-menu-buffer-name-length 2))
1784 "..."
1785 (substring
1786 name (- (/ buffers-menu-buffer-name-length 2))))
1787 name)
1788 ))
ed10603b
SM		 1789 alist))))
1790 ;; Now make the actual list of items.
1791 (let ((buffers-vec (make-vector (length alist) nil))
1792 (i (length alist)))
1793 (dolist (pair alist)
1794 (setq i (1- i))
1795 (aset buffers-vec i
1796 (nconc (list (car pair)
8b621d39 1797 (cons nil nil))
ed10603b
SM		 1798 `(lambda ()
1799 (interactive)
1800 (switch-to-buffer ,(cdr pair))))))
1801 (list buffers-vec))))
29397c58
RS		 1802
1803 ;; Make a Frames menu if we have more than one frame.
8b621d39 1804 (when (cdr frames)
ed10603b
SM		 1805 (let* ((frames-vec (make-vector (length frames) nil))
1806 (frames-menu
1807 (cons 'keymap
1808 (list "Select Frame" frames-vec)))
1809 (i 0))
1810 (dolist (frame frames)
1811 (aset frames-vec i
1812 (nconc
1813 (list
1814 (frame-parameter frame 'name)
1815 (cons nil nil))
1816 `(lambda ()
1817 (interactive) (menu-bar-select-frame ,frame))))
1818 (setq i (1+ i)))
8b621d39
MB		 1819 ;; Put it after the normal buffers
1820 (setq buffers-menu
1821 (nconc buffers-menu
1822 `((frames-separator "--")
1823 (frames menu-item "Frames" ,frames-menu))))))
1824
887d3c94
MB		 1825 ;; Add in some normal commands at the end of the menu. We use
1826 ;; the copy cached in `menu-bar-buffers-menu-command-entries'
1827 ;; if it's been set already. Note that we can't use constant
1828 ;; lists for the menu-entries, because the low-level menu-code
1829 ;; modifies them.
1830 (unless menu-bar-buffers-menu-command-entries
1831 (setq menu-bar-buffers-menu-command-entries
1832 (list '(command-separator "--")
332b907c
RS		 1833 (list 'next-buffer
1834 'menu-item
1835 "Next Buffer"
1836 'next-buffer
1837 :help "Switch to the \"next\" buffer in a cyclic order")
a74f9094 1838 (list 'previous-buffer
332b907c
RS		 1839 'menu-item
1840 "Previous Buffer"
a74f9094 1841 'previous-buffer
332b907c 1842 :help "Switch to the \"previous\" buffer in a cyclic order")
887d3c94
MB		 1843 (list 'select-named-buffer
1844 'menu-item
1845 "Select Named Buffer..."
1846 'switch-to-buffer
1847 :help "Prompt for a buffer name, and select that buffer in the current window")
1848 (list 'list-all-buffers
1849 'menu-item
1850 "List All Buffers"
1851 'list-buffers
4f00f90f 1852 :help "Pop up a window listing all Emacs buffers"
887d3c94 1853 ))))
8b621d39 1854 (setq buffers-menu
887d3c94 1855 (nconc buffers-menu menu-bar-buffers-menu-command-entries))
8b621d39 1856
bf902855
SM		 1857 ;; We used to "(define-key (current-global-map) [menu-bar buffer]"
1858 ;; but that did not do the right thing when the [menu-bar buffer]
1859 ;; entry above had been moved (e.g. to a parent keymap).
1860 (setcdr global-buffers-menu-map (cons "Select Buffer" buffers-menu)))))
09642d97
RS		 1861
1862(add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
2f1139a4 1863
3f557298
RS		 1864(menu-bar-update-buffers)
1865
40954111 1866;; this version is too slow
a9d96061
SM		 1867;;(defun format-buffers-menu-line (buffer)
1868;; "Returns a string to represent the given buffer in the Buffer menu.
1869;;nil means the buffer shouldn't be listed. You can redefine this."
1870;; (if (string-match "\\` " (buffer-name buffer))
1871;; nil
7fdbcd83 1872;; (with-current-buffer buffer
a9d96061
SM		 1873;; (let ((size (buffer-size)))
1874;; (format "%s%s %-19s %6s %-15s %s"
1875;; (if (buffer-modified-p) "*" " ")
1876;; (if buffer-read-only "%" " ")
1877;; (buffer-name)
1878;; size
1879;; mode-name
1880;; (or (buffer-file-name) ""))))))
40954111 1881\f
25b048ee
RS		 1882;;; Set up a menu bar menu for the minibuffer.
1883
32993295
SM		 1884(dolist (map (list minibuffer-local-map
1885 ;; This shouldn't be necessary, but there's a funny
1886 ;; bug in keymap.c that I don't understand yet. -stef
d918e2dc
SM		 1887 minibuffer-local-completion-map))
1888 (define-key map [menu-bar minibuf]
8f43cbf3 1889 (cons (purecopy "Minibuf") (make-sparse-keymap "Minibuf"))))
d918e2dc 1890
32993295 1891(let ((map minibuffer-local-completion-map))
d918e2dc 1892 (define-key map [menu-bar minibuf ?\?]
98b9bf40
JL		 1893 `(menu-item ,(purecopy "List Completions") minibuffer-completion-help
1894 :help ,(purecopy "Display all possible completions")))
d918e2dc 1895 (define-key map [menu-bar minibuf space]
98b9bf40
JL		 1896 `(menu-item ,(purecopy "Complete Word") minibuffer-complete-word
1897 :help ,(purecopy "Complete at most one word")))
d918e2dc 1898 (define-key map [menu-bar minibuf tab]
98b9bf40
JL		 1899 `(menu-item ,(purecopy "Complete") minibuffer-complete
1900 :help ,(purecopy "Complete as far as possible"))))
d918e2dc 1901
32993295 1902(let ((map minibuffer-local-map))
d918e2dc 1903 (define-key map [menu-bar minibuf quit]
98b9bf40
JL		 1904 `(menu-item ,(purecopy "Quit") abort-recursive-edit
1905 :help ,(purecopy "Abort input and exit minibuffer")))
d918e2dc 1906 (define-key map [menu-bar minibuf return]
98b9bf40 1907 `(menu-item ,(purecopy "Enter") exit-minibuffer
1e8780b1 1908 :key-sequence ,(purecopy "\r")
98b9bf40 1909 :help ,(purecopy "Terminate input and exit minibuffer")))
56a8f9c5 1910 (define-key map [menu-bar minibuf isearch-forward]
98b9bf40
JL		 1911 `(menu-item ,(purecopy "Isearch History Forward") isearch-forward
1912 :help ,(purecopy "Incrementally search minibuffer history forward")))
56a8f9c5 1913 (define-key map [menu-bar minibuf isearch-backward]
98b9bf40
JL		 1914 `(menu-item ,(purecopy "Isearch History Backward") isearch-backward
1915 :help ,(purecopy "Incrementally search minibuffer history backward")))
56a8f9c5 1916 (define-key map [menu-bar minibuf next]
98b9bf40
JL		 1917 `(menu-item ,(purecopy "Next History Item") next-history-element
1918 :help ,(purecopy "Put next minibuffer history element in the minibuffer")))
56a8f9c5 1919 (define-key map [menu-bar minibuf previous]
98b9bf40
JL		 1920 `(menu-item ,(purecopy "Previous History Item") previous-history-element
1921 :help ,(purecopy "Put previous minibuffer history element in the minibuffer"))))
25b048ee 1922\f
8ab9589d 1923;;;###autoload
ffda926c 1924;; This comment is taken from tool-bar.el near
8ab9589d
JD		 1925;; (put 'tool-bar-mode ...)
1926;; We want to pretend the menu bar by standard is on, as this will make
1927;; customize consider disabling the menu bar a customization, and save
1928;; that. We could do this for real by setting :init-value below, but
1929;; that would overwrite disabling the tool bar from X resources.
1930(put 'menu-bar-mode 'standard-value '(t))
1931
8ab9589d 1932(define-minor-mode menu-bar-mode
dfd29450 1933 "Toggle display of a menu bar on each frame.
057d49d1
RS		 1934This command applies to all frames that exist and frames to be
1935created in the future.
e1d18ad8
RS		 1936With a numeric argument, if the argument is positive,
1937turn on menu bars; otherwise, turn off menu bars."
8ab9589d
JD		 1938 :init-value nil
1939 :global t
1940 :group 'frames
095fe281 1941
7b7d6615 1942 ;; Make menu-bar-mode and default-frame-alist consistent.
095fe281
KL		 1943 (modify-all-frames-parameters (list (cons 'menu-bar-lines
1944 (if menu-bar-mode 1 0))))
8ab9589d
JD		 1945
1946 ;; Make the message appear when Emacs is idle. We can not call message
1947 ;; directly. The minor-mode message "Menu-bar mode disabled" comes
1948 ;; after this function returns, overwriting any message we do here.
32226619 1949 (when (and (called-interactively-p 'interactive) (not menu-bar-mode))
8ab9589d
JD		 1950 (run-with-idle-timer 0 nil 'message
1951 "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))
09bfa5ca 1952 menu-bar-mode)
1db87953 1953
6a5af08f
KL		 1954(defun toggle-menu-bar-mode-from-frame (&optional arg)
1955 "Toggle menu bar on or off, based on the status of the current frame.
1956See `menu-bar-mode' for more information."
1957 (interactive (list (or current-prefix-arg 'toggle)))
1958 (if (eq arg 'toggle)
1959 (menu-bar-mode (if (> (frame-parameter nil 'menu-bar-lines) 0) 0 1))
1960 (menu-bar-mode arg)))
1961
f464330b 1962(declare-function x-menu-bar-open "term/x-win" (&optional frame))
1ad31f1b 1963(declare-function w32-menu-bar-open "term/w32-win" (&optional frame))
f464330b 1964
14ab3a40
KL		 1965(defun menu-bar-open (&optional frame)
1966 "Start key navigation of the menu bar in FRAME.
1967
1968This function decides which method to use to access the menu
1969depending on FRAME's terminal device. On X displays, it calls
14f3467e
JR		 1970`x-menu-bar-open'; on Windows, `w32-menu-bar-open' otherwise it
1971calls `tmm-menubar'.
14ab3a40
KL		 1972
1973If FRAME is nil or not given, use the selected frame."
1974 (interactive)
14f3467e
JR		 1975 (let ((type (framep (or frame (selected-frame)))))
1976 (cond
1977 ((eq type 'x) (x-menu-bar-open frame))
1978 ((eq type 'w32) (w32-menu-bar-open frame))
1979 (t (with-selected-frame (or frame (selected-frame))
1980 (tmm-menubar))))))
14ab3a40
KL		 1981
1982(global-set-key [f10] 'menu-bar-open)
1983
bffa5d4d
RS		 1984(provide 'menu-bar)
1985
bf902855 1986;; arch-tag: 6e6a3c22-4ec4-4d3d-8190-583f8ef94ced
235aa29b 1987;;; menu-bar.el ends here
Unnamed repository; edit this file 'description' to name the repository.