Mercurial > emacs
annotate lisp/menu-bar.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 41bf9b6f3b91 |
children | 8d106071e2c8 |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38155
diff
changeset
|
1 ;;; menu-bar.el --- define a default menu bar |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
2 |
106018
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
14169 | 5 |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
6 ;; Author: RMS |
17970 | 7 ;; Maintainer: FSF |
31461
c613942bdf43
(menu-bar-options-menu): Fix the font-lock toggle.
Dave Love <fx@gnu.org>
parents:
31443
diff
changeset
|
8 ;; Keywords: internal, mouse |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
109992
diff
changeset
|
9 ;; Package: emacs |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
10 |
2485 | 11 ;; This file is part of GNU Emacs. |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94491
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
2485 | 14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94491
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94491
diff
changeset
|
16 ;; (at your option) any later version. |
2485 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94491
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
2485 | 25 |
12558
98c9ac60aa20
(menu-bar-help-menu): Add finder-by-keyword.
Karl Heuer <kwzh@gnu.org>
parents:
12434
diff
changeset
|
26 ;; Avishai Yacobi suggested some menu rearrangements. |
98c9ac60aa20
(menu-bar-help-menu): Add finder-by-keyword.
Karl Heuer <kwzh@gnu.org>
parents:
12434
diff
changeset
|
27 |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38155
diff
changeset
|
28 ;;; Commentary: |
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38155
diff
changeset
|
29 |
14169 | 30 ;;; Code: |
31 | |
4668
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
32 ;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key |
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
33 ;; definitions made in loaddefs.el. |
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
34 (or (lookup-key global-map [menu-bar]) |
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
35 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar"))) |
3504
5fb4eefbd7ac
(menu-bar-help-menu): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3500
diff
changeset
|
36 (defvar menu-bar-help-menu (make-sparse-keymap "Help")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
37 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
38 ;; Force Help item to come last, after the major mode's own items. |
12199
5f618eea1343
(help-menu): Symbol renamed from `help'.
Karl Heuer <kwzh@gnu.org>
parents:
12041
diff
changeset
|
39 ;; The symbol used to be called `help', but that gets confused with the |
5f618eea1343
(help-menu): Symbol renamed from `help'.
Karl Heuer <kwzh@gnu.org>
parents:
12041
diff
changeset
|
40 ;; help key. |
5f618eea1343
(help-menu): Symbol renamed from `help'.
Karl Heuer <kwzh@gnu.org>
parents:
12041
diff
changeset
|
41 (setq menu-bar-final-items '(help-menu)) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
42 |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
43 (define-key global-map [menu-bar help-menu] (cons (purecopy "Help") menu-bar-help-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
44 (defvar menu-bar-tools-menu (make-sparse-keymap "Tools")) |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
45 (define-key global-map [menu-bar tools] (cons (purecopy "Tools") menu-bar-tools-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
46 ;; This definition is just to show what this looks like. |
79167
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
47 ;; It gets modified in place when menu-bar-update-buffers is called. |
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
48 (defvar global-buffers-menu-map (make-sparse-keymap "Buffers")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
49 (define-key global-map [menu-bar buffer] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
50 (cons (purecopy "Buffers") global-buffers-menu-map)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
51 (defvar menu-bar-options-menu (make-sparse-keymap "Options")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
52 (define-key global-map [menu-bar options] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
53 (cons (purecopy "Options") menu-bar-options-menu)) |
3504
5fb4eefbd7ac
(menu-bar-help-menu): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3500
diff
changeset
|
54 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
55 (define-key global-map [menu-bar edit] (cons (purecopy "Edit") menu-bar-edit-menu)) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
56 (defvar menu-bar-file-menu (make-sparse-keymap "File")) |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
57 (define-key global-map [menu-bar file] (cons (purecopy "File") menu-bar-file-menu)) |
11293
d24be7d7af5d
(menu-bar-file-menu): Add back as alias for menu-bar-files-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
58 |
d24be7d7af5d
(menu-bar-file-menu): Add back as alias for menu-bar-files-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
59 ;; This alias is for compatibility with 19.28 and before. |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
60 (defvar menu-bar-files-menu menu-bar-file-menu) |
44776
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
61 |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
62 ;; This is referenced by some code below; it is defined in uniquify.el |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
63 (defvar uniquify-buffer-name-style) |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
64 |
105717
34b6eefd60c2
* menu-bar.el (cua-enable-cua-keys): Declare for the byte-compiler.
Juanma Barranquero <lekktu@gmail.com>
parents:
105715
diff
changeset
|
65 ;; From emulation/cua-base.el; used below |
34b6eefd60c2
* menu-bar.el (cua-enable-cua-keys): Declare for the byte-compiler.
Juanma Barranquero <lekktu@gmail.com>
parents:
105715
diff
changeset
|
66 (defvar cua-enable-cua-keys) |
34b6eefd60c2
* menu-bar.el (cua-enable-cua-keys): Declare for the byte-compiler.
Juanma Barranquero <lekktu@gmail.com>
parents:
105715
diff
changeset
|
67 |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
68 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
69 ;; The "File" menu items |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
70 (define-key menu-bar-file-menu [exit-emacs] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
71 `(menu-item ,(purecopy "Quit") save-buffers-kill-terminal |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
72 :help ,(purecopy "Save unsaved buffers, then exit"))) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
73 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
74 (define-key menu-bar-file-menu [separator-exit] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
75 menu-bar-separator) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
76 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
77 ;; Don't use delete-frame as event name because that is a special |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
78 ;; event. |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
79 (define-key menu-bar-file-menu [delete-this-frame] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
80 `(menu-item ,(purecopy "Delete Frame") delete-frame |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
81 :visible (fboundp 'delete-frame) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
82 :enable (delete-frame-enabled-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
83 :help ,(purecopy "Delete currently selected frame"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
84 (define-key menu-bar-file-menu [make-frame-on-display] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
85 `(menu-item ,(purecopy "New Frame on Display...") make-frame-on-display |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
86 :visible (fboundp 'make-frame-on-display) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
87 :help ,(purecopy "Open a new frame on another display"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
88 (define-key menu-bar-file-menu [make-frame] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
89 `(menu-item ,(purecopy "New Frame") make-frame-command |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
90 :visible (fboundp 'make-frame-command) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
91 :help ,(purecopy "Open a new frame"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
92 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
93 (define-key menu-bar-file-menu [one-window] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
94 `(menu-item ,(purecopy "Remove Splits") delete-other-windows |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
95 :enable (not (one-window-p t nil)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
96 :help ,(purecopy "Selected window grows to fill the whole frame"))) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
97 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
98 (define-key menu-bar-file-menu [split-window] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
99 `(menu-item ,(purecopy "Split Window") split-window-vertically |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
100 :enable (and (menu-bar-menu-frame-live-and-visible-p) |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
101 (menu-bar-non-minibuffer-window-p)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
102 :help ,(purecopy "Split selected window in two windows"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
103 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
104 (define-key menu-bar-file-menu [separator-window] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
105 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
106 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
107 (define-key menu-bar-file-menu [ps-print-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
108 `(menu-item ,(purecopy "Postscript Print Region (B+W)") ps-print-region |
35684
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
109 :enable mark-active |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
110 :help ,(purecopy "Pretty-print marked region in black and white to PostScript printer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
111 (define-key menu-bar-file-menu [ps-print-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
112 `(menu-item ,(purecopy "Postscript Print Buffer (B+W)") ps-print-buffer |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
113 :enable (menu-bar-menu-frame-live-and-visible-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
114 :help ,(purecopy "Pretty-print current buffer in black and white to PostScript printer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
115 (define-key menu-bar-file-menu [ps-print-region-faces] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
116 `(menu-item ,(purecopy "Postscript Print Region") ps-print-region-with-faces |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
117 :enable mark-active |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
118 :help ,(purecopy "Pretty-print marked region to PostScript printer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
119 (define-key menu-bar-file-menu [ps-print-buffer-faces] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
120 `(menu-item ,(purecopy "Postscript Print Buffer") ps-print-buffer-with-faces |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
121 :enable (menu-bar-menu-frame-live-and-visible-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
122 :help ,(purecopy "Pretty-print current buffer to PostScript printer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
123 (define-key menu-bar-file-menu [print-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
124 `(menu-item ,(purecopy "Print Region") print-region |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
125 :enable mark-active |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
126 :help ,(purecopy "Print region between mark and current position"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
127 (define-key menu-bar-file-menu [print-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
128 `(menu-item ,(purecopy "Print Buffer") print-buffer |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
129 :enable (menu-bar-menu-frame-live-and-visible-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
130 :help ,(purecopy "Print current buffer with page headings"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
131 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
132 (define-key menu-bar-file-menu [separator-print] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
133 menu-bar-separator) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
134 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
135 (define-key menu-bar-file-menu [recover-session] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
136 `(menu-item ,(purecopy "Recover Crashed Session") recover-session |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
137 :enable (and auto-save-list-file-prefix |
30387
b3f8b3df8d4f
(menu-bar-files-menu [recover-session]): Make sure auto save directory
Noah Friedman <friedman@splode.com>
parents:
29968
diff
changeset
|
138 (file-directory-p |
b3f8b3df8d4f
(menu-bar-files-menu [recover-session]): Make sure auto save directory
Noah Friedman <friedman@splode.com>
parents:
29968
diff
changeset
|
139 (file-name-directory auto-save-list-file-prefix)) |
b3f8b3df8d4f
(menu-bar-files-menu [recover-session]): Make sure auto save directory
Noah Friedman <friedman@splode.com>
parents:
29968
diff
changeset
|
140 (directory-files |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
141 (file-name-directory auto-save-list-file-prefix) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
142 nil |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
143 (concat "\\`" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
144 (regexp-quote |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
145 (file-name-nondirectory |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
146 auto-save-list-file-prefix))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
147 t)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
148 :help ,(purecopy "Recover edits from a crashed session"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
149 (define-key menu-bar-file-menu [revert-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
150 `(menu-item ,(purecopy "Revert Buffer") revert-buffer |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
151 :enable (or revert-buffer-function |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
152 revert-buffer-insert-file-contents-function |
49935
78bf19f4f12c
(Revert Buffer): Condition on buffer-file-number.
Richard M. Stallman <rms@gnu.org>
parents:
49597
diff
changeset
|
153 (and buffer-file-number |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
154 (or (buffer-modified-p) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
155 (not (verify-visited-file-modtime |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
156 (current-buffer)))))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
157 :help ,(purecopy "Re-read current buffer from its file"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
158 (define-key menu-bar-file-menu [write-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
159 `(menu-item ,(purecopy "Save As...") write-file |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
160 :enable (and (menu-bar-menu-frame-live-and-visible-p) |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
161 (menu-bar-non-minibuffer-window-p)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
162 :help ,(purecopy "Write current buffer to another file"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
163 (define-key menu-bar-file-menu [save-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
164 `(menu-item ,(purecopy "Save") save-buffer |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
165 :enable (and (buffer-modified-p) |
31645
0d9e6ed2718b
(menu-bar-files-menu): Disable ``Save'' if
Gerd Moellmann <gerd@gnu.org>
parents:
31471
diff
changeset
|
166 (buffer-file-name) |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
167 (menu-bar-non-minibuffer-window-p)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
168 :help ,(purecopy "Save current buffer to its file"))) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
169 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
170 (define-key menu-bar-file-menu [separator-save] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
171 menu-bar-separator) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
172 |
67762
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
173 (defun menu-find-file-existing () |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
174 "Edit the existing file FILENAME." |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
175 (interactive) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
176 (let* ((mustmatch (not (and (fboundp 'x-uses-old-gtk-dialog) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
177 (x-uses-old-gtk-dialog)))) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
178 (filename (car (find-file-read-args "Find file: " mustmatch)))) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
179 (if mustmatch |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
180 (find-file-existing filename) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
181 (find-file filename)))) |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
182 |
31f77129bc92
* menu-bar.el (menu-find-file-existing): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
67705
diff
changeset
|
183 |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
184 (define-key menu-bar-file-menu [kill-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
185 `(menu-item ,(purecopy "Close") kill-this-buffer |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
186 :enable (kill-this-buffer-enabled-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
187 :help ,(purecopy "Discard (kill) current buffer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
188 (define-key menu-bar-file-menu [insert-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
189 `(menu-item ,(purecopy "Insert File...") insert-file |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
190 :enable (menu-bar-non-minibuffer-window-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
191 :help ,(purecopy "Insert another file into current buffer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
192 (define-key menu-bar-file-menu [dired] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
193 `(menu-item ,(purecopy "Open Directory...") dired |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
194 :enable (menu-bar-non-minibuffer-window-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
195 :help ,(purecopy "Read a directory, to operate on its files"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
196 (define-key menu-bar-file-menu [open-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
197 `(menu-item ,(purecopy "Open File...") menu-find-file-existing |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
198 :enable (menu-bar-non-minibuffer-window-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
199 :help ,(purecopy "Read an existing file into an Emacs buffer"))) |
58041
78341df33f26
(menu-bar-file-menu): Make this the real name
Richard M. Stallman <rms@gnu.org>
parents:
57867
diff
changeset
|
200 (define-key menu-bar-file-menu [new-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
201 `(menu-item ,(purecopy "Visit New File...") find-file |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
202 :enable (menu-bar-non-minibuffer-window-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
203 :help ,(purecopy "Specify a new file's name, to edit the file"))) |
8525
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
204 |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
205 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
206 ;; The "Edit" menu items |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
207 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
208 ;; The "Edit->Search" submenu |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
209 (defvar menu-bar-last-search-type nil |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
210 "Type of last non-incremental search command called from the menu.") |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
211 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
212 (defun nonincremental-repeat-search-forward () |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
213 "Search forward for the previous search string or regexp." |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
214 (interactive) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
215 (cond |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
216 ((and (eq menu-bar-last-search-type 'string) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
217 search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
218 (search-forward (car search-ring))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
219 ((and (eq menu-bar-last-search-type 'regexp) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
220 regexp-search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
221 (re-search-forward (car regexp-search-ring))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
222 (t |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
223 (error "No previous search")))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
224 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
225 (defun nonincremental-repeat-search-backward () |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
226 "Search backward for the previous search string or regexp." |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
227 (interactive) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
228 (cond |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
229 ((and (eq menu-bar-last-search-type 'string) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
230 search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
231 (search-backward (car search-ring))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
232 ((and (eq menu-bar-last-search-type 'regexp) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
233 regexp-search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
234 (re-search-backward (car regexp-search-ring))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
235 (t |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
236 (error "No previous search")))) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
237 |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
238 (defun nonincremental-search-forward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
239 "Read a string and search for it nonincrementally." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
240 (interactive "sSearch for string: ") |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
241 (setq menu-bar-last-search-type 'string) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
242 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
243 (search-forward (car search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
244 (isearch-update-ring string nil) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
245 (search-forward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
246 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
247 (defun nonincremental-search-backward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
248 "Read a string and search backward for it nonincrementally." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
249 (interactive "sSearch for string: ") |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
250 (setq menu-bar-last-search-type 'string) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
251 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
252 (search-backward (car search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
253 (isearch-update-ring string nil) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
254 (search-backward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
255 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
256 (defun nonincremental-re-search-forward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
257 "Read a regular expression and search for it nonincrementally." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
258 (interactive "sSearch for regexp: ") |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
259 (setq menu-bar-last-search-type 'regexp) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
260 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
261 (re-search-forward (car regexp-search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
262 (isearch-update-ring string t) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
263 (re-search-forward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
264 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
265 (defun nonincremental-re-search-backward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
266 "Read a regular expression and search backward for it nonincrementally." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
267 (interactive "sSearch for regexp: ") |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
268 (setq menu-bar-last-search-type 'regexp) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
269 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
270 (re-search-backward (car regexp-search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
271 (isearch-update-ring string t) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
272 (re-search-backward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
273 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
274 (defvar menu-bar-search-menu (make-sparse-keymap "Search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
275 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
276 ;; The Edit->Search->Incremental Search menu |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
277 (defvar menu-bar-i-search-menu |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
278 (make-sparse-keymap "Incremental Search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
279 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
280 (define-key menu-bar-i-search-menu [isearch-backward-regexp] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
281 `(menu-item ,(purecopy "Backward Regexp...") isearch-backward-regexp |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
282 :help ,(purecopy "Search backwards for a regular expression as you type it"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
283 (define-key menu-bar-i-search-menu [isearch-forward-regexp] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
284 `(menu-item ,(purecopy "Forward Regexp...") isearch-forward-regexp |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
285 :help ,(purecopy "Search forward for a regular expression as you type it"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
286 (define-key menu-bar-i-search-menu [isearch-backward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
287 `(menu-item ,(purecopy "Backward String...") isearch-backward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
288 :help ,(purecopy "Search backwards for a string as you type it"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
289 (define-key menu-bar-i-search-menu [isearch-forward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
290 `(menu-item ,(purecopy "Forward String...") isearch-forward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
291 :help ,(purecopy "Search forward for a string as you type it"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
292 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
293 (define-key menu-bar-search-menu [i-search] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
294 `(menu-item ,(purecopy "Incremental Search") ,menu-bar-i-search-menu)) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
295 (define-key menu-bar-search-menu [separator-tag-isearch] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
296 menu-bar-separator) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
297 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
298 (define-key menu-bar-search-menu [tags-continue] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
299 `(menu-item ,(purecopy "Continue Tags Search") tags-loop-continue |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
300 :help ,(purecopy "Continue last tags search operation"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
301 (define-key menu-bar-search-menu [tags-srch] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
302 `(menu-item ,(purecopy "Search Tagged Files...") tags-search |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
303 :help ,(purecopy "Search for a regexp in all tagged files"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
304 (define-key menu-bar-search-menu [separator-tag-search] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
305 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
306 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
307 (define-key menu-bar-search-menu [repeat-search-back] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
308 `(menu-item ,(purecopy "Repeat Backwards") nonincremental-repeat-search-backward |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
309 :enable (or (and (eq menu-bar-last-search-type 'string) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
310 search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
311 (and (eq menu-bar-last-search-type 'regexp) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
312 regexp-search-ring)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
313 :help ,(purecopy "Repeat last search backwards"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
314 (define-key menu-bar-search-menu [repeat-search-fwd] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
315 `(menu-item ,(purecopy "Repeat Forward") nonincremental-repeat-search-forward |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
316 :enable (or (and (eq menu-bar-last-search-type 'string) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
317 search-ring) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
318 (and (eq menu-bar-last-search-type 'regexp) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
319 regexp-search-ring)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
320 :help ,(purecopy "Repeat last search forward"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
321 (define-key menu-bar-search-menu [separator-repeat-search] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
322 menu-bar-separator) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
323 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
324 (define-key menu-bar-search-menu [re-search-backward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
325 `(menu-item ,(purecopy "Regexp Backwards...") nonincremental-re-search-backward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
326 :help ,(purecopy "Search backwards for a regular expression"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
327 (define-key menu-bar-search-menu [re-search-forward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
328 `(menu-item ,(purecopy "Regexp Forward...") nonincremental-re-search-forward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
329 :help ,(purecopy "Search forward for a regular expression"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
330 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
331 (define-key menu-bar-search-menu [search-backward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
332 `(menu-item ,(purecopy "String Backwards...") nonincremental-search-backward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
333 :help ,(purecopy "Search backwards for a string"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
334 (define-key menu-bar-search-menu [search-forward] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
335 `(menu-item ,(purecopy "String Forward...") nonincremental-search-forward |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
336 :help ,(purecopy "Search forward for a string"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
337 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
338 ;; The Edit->Replace submenu |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
339 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
340 (defvar menu-bar-replace-menu (make-sparse-keymap "Replace")) |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
341 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
342 (define-key menu-bar-replace-menu [tags-repl-continue] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
343 `(menu-item ,(purecopy "Continue Replace") tags-loop-continue |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
344 :help ,(purecopy "Continue last tags replace operation"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
345 (define-key menu-bar-replace-menu [tags-repl] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
346 `(menu-item ,(purecopy "Replace in Tagged Files...") tags-query-replace |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
347 :help ,(purecopy "Interactively replace a regexp in all tagged files"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
348 (define-key menu-bar-replace-menu [separator-replace-tags] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
349 menu-bar-separator) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
350 |
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
351 (define-key menu-bar-replace-menu [query-replace-regexp] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
352 `(menu-item ,(purecopy "Replace Regexp...") query-replace-regexp |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
353 :enable (not buffer-read-only) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
354 :help ,(purecopy "Replace regular expression interactively, ask about each occurrence"))) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
355 (define-key menu-bar-replace-menu [query-replace] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
356 `(menu-item ,(purecopy "Replace String...") query-replace |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
357 :enable (not buffer-read-only) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
358 :help ,(purecopy "Replace string interactively, ask about each occurrence"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
359 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
360 ;;; Assemble the top-level Edit menu items. |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
361 (define-key menu-bar-edit-menu [props] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
362 `(menu-item ,(purecopy "Text Properties") facemenu-menu)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
363 |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
364 (define-key menu-bar-edit-menu [fill] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
365 `(menu-item ,(purecopy "Fill") fill-region |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
366 :enable (and mark-active (not buffer-read-only)) |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
367 :help |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
368 ,(purecopy "Fill text in region to fit between left and right margin"))) |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
369 |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
370 (define-key menu-bar-edit-menu [separator-bookmark] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
371 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
372 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
373 (define-key menu-bar-edit-menu [bookmark] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
374 `(menu-item ,(purecopy "Bookmarks") menu-bar-bookmark-map)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
375 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
376 (defvar menu-bar-goto-menu (make-sparse-keymap "Go To")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
377 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
378 (define-key menu-bar-goto-menu [set-tags-name] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
379 `(menu-item ,(purecopy "Set Tags File Name...") visit-tags-table |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
380 :help ,(purecopy "Tell Tags commands which tag table file to use"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
381 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
382 (define-key menu-bar-goto-menu [separator-tag-file] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
383 menu-bar-separator) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
384 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
385 (define-key menu-bar-goto-menu [apropos-tags] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
386 `(menu-item ,(purecopy "Tags Apropos...") tags-apropos |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
387 :help ,(purecopy "Find function/variables whose names match regexp"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
388 (define-key menu-bar-goto-menu [next-tag-otherw] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
389 `(menu-item ,(purecopy "Next Tag in Other Window") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
390 menu-bar-next-tag-other-window |
27773
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
391 :enable (and (boundp 'tags-location-ring) |
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
392 (not (ring-empty-p tags-location-ring))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
393 :help ,(purecopy "Find next function/variable matching last tag name in another window"))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
394 |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
395 (defun menu-bar-next-tag-other-window () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
396 "Find the next definition of the tag already specified." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
397 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
398 (find-tag-other-window nil t)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
399 |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
400 (defun menu-bar-next-tag () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
401 "Find the next definition of the tag already specified." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
402 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
403 (find-tag nil t)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
404 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
405 (define-key menu-bar-goto-menu [next-tag] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
406 `(menu-item ,(purecopy "Find Next Tag") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
407 menu-bar-next-tag |
27773
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
408 :enable (and (boundp 'tags-location-ring) |
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
409 (not (ring-empty-p tags-location-ring))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
410 :help ,(purecopy "Find next function/variable matching last tag name"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
411 (define-key menu-bar-goto-menu [find-tag-otherw] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
412 `(menu-item ,(purecopy "Find Tag in Other Window...") find-tag-other-window |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
413 :help ,(purecopy "Find function/variable definition in another window"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
414 (define-key menu-bar-goto-menu [find-tag] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
415 `(menu-item ,(purecopy "Find Tag...") find-tag |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
416 :help ,(purecopy "Find definition of function or variable"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
417 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
418 (define-key menu-bar-goto-menu [separator-tags] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
419 menu-bar-separator) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
420 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
421 (define-key menu-bar-goto-menu [end-of-buf] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
422 `(menu-item ,(purecopy "Goto End of Buffer") end-of-buffer)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
423 (define-key menu-bar-goto-menu [beg-of-buf] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
424 `(menu-item ,(purecopy "Goto Beginning of Buffer") beginning-of-buffer)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
425 (define-key menu-bar-goto-menu [go-to-pos] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
426 `(menu-item ,(purecopy "Goto Buffer Position...") goto-char |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
427 :help ,(purecopy "Read a number N and go to buffer position N"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
428 (define-key menu-bar-goto-menu [go-to-line] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
429 `(menu-item ,(purecopy "Goto Line...") goto-line |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
430 :help ,(purecopy "Read a line number and go to that line"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
431 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
432 (define-key menu-bar-edit-menu [goto] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
433 `(menu-item ,(purecopy "Go To") ,menu-bar-goto-menu)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
434 |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
435 (define-key menu-bar-edit-menu [replace] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
436 `(menu-item ,(purecopy "Replace") ,menu-bar-replace-menu)) |
47496
4f825dbb49f7
(menu-bar-last-search-type): New var.
Kim F. Storm <storm@cua.dk>
parents:
47493
diff
changeset
|
437 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
438 (define-key menu-bar-edit-menu [search] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
439 `(menu-item ,(purecopy "Search") ,menu-bar-search-menu)) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
440 |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
441 (define-key menu-bar-edit-menu [separator-search] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
442 menu-bar-separator) |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
443 |
29968
33751f6d1348
(menu-bar-edit-menu [mark-whole-buffer]): Change name to "Select All".
Eli Zaretskii <eliz@gnu.org>
parents:
29936
diff
changeset
|
444 (define-key menu-bar-edit-menu [mark-whole-buffer] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
445 `(menu-item ,(purecopy "Select All") mark-whole-buffer |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
446 :help ,(purecopy "Mark the whole buffer for a subsequent cut/copy"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
447 (define-key menu-bar-edit-menu [clear] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
448 `(menu-item ,(purecopy "Clear") delete-region |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
449 :enable (and mark-active |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
450 (not buffer-read-only) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
451 (not (mouse-region-match))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
452 :help |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
453 ,(purecopy "Delete the text in region between mark and current position"))) |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
454 (defvar yank-menu (cons (purecopy "Select Yank") nil)) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
455 (fset 'yank-menu (cons 'keymap yank-menu)) |
74383
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
456 (define-key menu-bar-edit-menu [paste-from-menu] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
457 `(menu-item ,(purecopy "Paste from Kill Menu") yank-menu |
74383
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
458 :enable (and (cdr yank-menu) (not buffer-read-only)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
459 :help ,(purecopy "Choose a string from the kill ring and paste it"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
460 (define-key menu-bar-edit-menu [paste] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
461 `(menu-item ,(purecopy "Paste") yank |
102399
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
462 :enable (and (or |
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
463 ;; Emacs compiled --without-x doesn't have |
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
464 ;; x-selection-exists-p. |
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
465 (and (fboundp 'x-selection-exists-p) |
110037 | 466 (x-selection-exists-p 'CLIPBOARD)) |
102399
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
467 kill-ring) |
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
468 (not buffer-read-only)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
469 :help ,(purecopy "Paste (yank) text most recently cut/copied"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
470 (define-key menu-bar-edit-menu [copy] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
471 `(menu-item ,(purecopy "Copy") menu-bar-kill-ring-save |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
472 :enable mark-active |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
473 :help ,(purecopy "Copy text in region between mark and current position") |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
474 :keys ,(purecopy "\\[kill-ring-save]"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
475 (define-key menu-bar-edit-menu [cut] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
476 `(menu-item ,(purecopy "Cut") kill-region |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
477 :enable (and mark-active (not buffer-read-only)) |
32932
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
478 :help |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
479 ,(purecopy "Cut (kill) text in region between mark and current position"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
480 (define-key menu-bar-edit-menu [undo] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
481 `(menu-item ,(purecopy "Undo") undo |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
482 :enable (and (not buffer-read-only) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
483 (not (eq t buffer-undo-list)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
484 (if (eq last-command 'undo) |
67430
2c1c0c628ff3
(menu-bar-edit-menu): Add listp around pending-undo-list to disable
Juri Linkov <juri@jurta.org>
parents:
67002
diff
changeset
|
485 (listp pending-undo-list) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
486 (consp buffer-undo-list))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
487 :help ,(purecopy "Undo last operation"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
488 |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
489 |
10721
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
490 (defun menu-bar-kill-ring-save (beg end) |
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
491 (interactive "r") |
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
492 (if (mouse-region-match) |
22655
ca137a595698
(menu-bar-kill-ring-save): Fix message typo.
Richard M. Stallman <rms@gnu.org>
parents:
22651
diff
changeset
|
493 (message "Selecting a region with the mouse does `copy' automatically") |
10721
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
494 (kill-ring-save beg end))) |
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
495 |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
496 ;; These are alternative definitions for the cut, paste and copy |
10721
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
497 ;; menu items. Use them if your system expects these to use the clipboard. |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
498 |
86231
b4b52674ba3c
(top-level): Deactivate clipboard-kill-region and
Martin Rudalics <rudalics@gmx.at>
parents:
85688
diff
changeset
|
499 (put 'clipboard-kill-region 'menu-enable |
b4b52674ba3c
(top-level): Deactivate clipboard-kill-region and
Martin Rudalics <rudalics@gmx.at>
parents:
85688
diff
changeset
|
500 '(and mark-active (not buffer-read-only))) |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
501 (put 'clipboard-kill-ring-save 'menu-enable 'mark-active) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
502 (put 'clipboard-yank 'menu-enable |
102399
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
503 '(and (or (not (fboundp 'x-selection-exists-p)) |
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
504 (x-selection-exists-p) |
86231
b4b52674ba3c
(top-level): Deactivate clipboard-kill-region and
Martin Rudalics <rudalics@gmx.at>
parents:
85688
diff
changeset
|
505 (x-selection-exists-p 'CLIPBOARD)) |
102399
55ec3560f75e
(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in
David Reitter <david.reitter@gmail.com>
parents:
102312
diff
changeset
|
506 (not buffer-read-only))) |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
507 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
508 (defun clipboard-yank () |
23982
f9ccd26b8627
(clipboard-yank): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23532
diff
changeset
|
509 "Insert the clipboard contents, or the last stretch of killed text." |
73005
69d661c19645
(clipboard-yank): bomb out in interactive use if
David Kastrup <dak@gnu.org>
parents:
70972
diff
changeset
|
510 (interactive "*") |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
511 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
512 (yank))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
513 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
514 (defun clipboard-kill-ring-save (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
515 "Copy region to kill ring, and save in the X clipboard." |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
516 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
517 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
518 (kill-ring-save beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
519 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
520 (defun clipboard-kill-region (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
521 "Kill the region, and save it in the X clipboard." |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
522 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
523 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
524 (kill-region beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
525 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
526 (defun menu-bar-enable-clipboard () |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
527 "Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
528 Do the same for the keys of the same name." |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
529 (interactive) |
52406
c70762aa82aa
(menu-bar-showhide-menu): Amend date and time label
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
530 ;; These are Sun server keysyms for the Cut, Copy and Paste keys |
c70762aa82aa
(menu-bar-showhide-menu): Amend date and time label
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
531 ;; (also for XFree86 on Sun keyboard): |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
532 (define-key global-map [f20] 'clipboard-kill-region) |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
533 (define-key global-map [f16] 'clipboard-kill-ring-save) |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
534 (define-key global-map [f18] 'clipboard-yank) |
52406
c70762aa82aa
(menu-bar-showhide-menu): Amend date and time label
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
535 ;; X11R6 versions: |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
536 (define-key global-map [cut] 'clipboard-kill-region) |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
537 (define-key global-map [copy] 'clipboard-kill-ring-save) |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
538 (define-key global-map [paste] 'clipboard-yank)) |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
539 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
540 ;; The "Options" menu items |
17341
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
541 |
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
542 (defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) |
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
543 |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
544 (define-key menu-bar-custom-menu [customize-apropos-groups] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
545 `(menu-item ,(purecopy "Groups Matching Regexp...") customize-apropos-groups |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
546 :help ,(purecopy "Browse groups whose names match regexp"))) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
547 (define-key menu-bar-custom-menu [customize-apropos-faces] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
548 `(menu-item ,(purecopy "Faces Matching Regexp...") customize-apropos-faces |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
549 :help ,(purecopy "Browse faces whose names match regexp"))) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
550 (define-key menu-bar-custom-menu [customize-apropos-options] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
551 `(menu-item ,(purecopy "Options Matching Regexp...") customize-apropos-options |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
552 :help ,(purecopy "Browse options whose names match regexp"))) |
17341
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
553 (define-key menu-bar-custom-menu [customize-apropos] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
554 `(menu-item ,(purecopy "Settings Matching Regexp...") customize-apropos |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
555 :help ,(purecopy "Browse customizable settings whose names match regexp"))) |
45044
ab83b8e87ebd
(menu-bar-custom-menu): Change "Recently Changed Options"
Kim F. Storm <storm@cua.dk>
parents:
44907
diff
changeset
|
556 (define-key menu-bar-custom-menu [separator-1] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
557 menu-bar-separator) |
17615
32f90c43d1d2
(menu-bar-custom-menu):
Richard M. Stallman <rms@gnu.org>
parents:
17341
diff
changeset
|
558 (define-key menu-bar-custom-menu [customize-group] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
559 `(menu-item ,(purecopy "Specific Group...") customize-group |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
560 :help ,(purecopy "Customize settings of specific group"))) |
17341
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
561 (define-key menu-bar-custom-menu [customize-face] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
562 `(menu-item ,(purecopy "Specific Face...") customize-face |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
563 :help ,(purecopy "Customize attributes of specific face"))) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
564 (define-key menu-bar-custom-menu [customize-option] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
565 `(menu-item ,(purecopy "Specific Option...") customize-option |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
566 :help ,(purecopy "Customize value of specific option"))) |
45044
ab83b8e87ebd
(menu-bar-custom-menu): Change "Recently Changed Options"
Kim F. Storm <storm@cua.dk>
parents:
44907
diff
changeset
|
567 (define-key menu-bar-custom-menu [separator-2] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
568 menu-bar-separator) |
21912
f485fe3e433e
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21302
diff
changeset
|
569 (define-key menu-bar-custom-menu [customize-changed-options] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
570 `(menu-item ,(purecopy "New Options...") customize-changed-options |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
571 :help ,(purecopy "Options added or changed in recent Emacs versions"))) |
45044
ab83b8e87ebd
(menu-bar-custom-menu): Change "Recently Changed Options"
Kim F. Storm <storm@cua.dk>
parents:
44907
diff
changeset
|
572 (define-key menu-bar-custom-menu [customize-saved] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
573 `(menu-item ,(purecopy "Saved Options") customize-saved |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
574 :help ,(purecopy "Customize previously saved options"))) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
575 (define-key menu-bar-custom-menu [separator-3] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
576 menu-bar-separator) |
18602
9b34ca7eb8ef
Fix previous change.
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
18601
diff
changeset
|
577 (define-key menu-bar-custom-menu [customize-browse] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
578 `(menu-item ,(purecopy "Browse Customization Groups") customize-browse |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
579 :help ,(purecopy "Browse all customization groups"))) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
580 (define-key menu-bar-custom-menu [customize] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
581 `(menu-item ,(purecopy "Top-level Customization Group") customize |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
582 :help ,(purecopy "The master group called `Emacs'"))) |
17341
995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Richard M. Stallman <rms@gnu.org>
parents:
17099
diff
changeset
|
583 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
584 ;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences")) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
585 |
47296
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
586 (defmacro menu-bar-make-mm-toggle (fname doc help &optional props) |
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
587 "Make a menu-item for a global minor mode toggle. |
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
588 FNAME is the minor mode's name (variable and function). |
60392
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
589 DOC is the text to use for the menu entry. |
47296
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
590 HELP is the text to use for the tooltip. |
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
591 PROPS are additional properties." |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
592 `(list 'menu-item (purecopy ,doc) ',fname |
105845
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
593 ,@(mapcar (lambda (p) (list 'quote p)) props) |
105835
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
594 :help (purecopy ,help) |
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
595 :button '(:toggle . (and (default-boundp ',fname) |
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
596 (default-value ',fname))))) |
47296
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
597 |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
598 (defmacro menu-bar-make-toggle (name variable doc message help &rest body) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
599 `(progn |
57700
0fcbc2db3d03
(menu-bar-make-toggle): Instead of interactive-p,
Richard M. Stallman <rms@gnu.org>
parents:
55266
diff
changeset
|
600 (defun ,name (&optional interactively) |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
601 ,(concat "Toggle whether to " (downcase (substring help 0 1)) |
63333
cda186c07437
(menu-bar-make-toggle): Remove stray backslash.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61714
diff
changeset
|
602 (substring help 1) ". |
57700
0fcbc2db3d03
(menu-bar-make-toggle): Instead of interactive-p,
Richard M. Stallman <rms@gnu.org>
parents:
55266
diff
changeset
|
603 In an interactive call, record this option as a candidate for saving |
0fcbc2db3d03
(menu-bar-make-toggle): Instead of interactive-p,
Richard M. Stallman <rms@gnu.org>
parents:
55266
diff
changeset
|
604 by \"Save Options\" in Custom buffers.") |
0fcbc2db3d03
(menu-bar-make-toggle): Instead of interactive-p,
Richard M. Stallman <rms@gnu.org>
parents:
55266
diff
changeset
|
605 (interactive "p") |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
606 (if ,(if body `(progn . ,body) |
44499
6c160013fa0e
(menu-bar-adv-search-menu): Add incremental search.
Pavel Janík <Pavel@Janik.cz>
parents:
44267
diff
changeset
|
607 `(progn |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
608 (custom-load-symbol ',variable) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
609 (let ((set (or (get ',variable 'custom-set) 'set-default)) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
610 (get (or (get ',variable 'custom-get) 'default-value))) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
611 (funcall set ',variable (not (funcall get ',variable)))))) |
74383
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
612 (message ,message "enabled globally") |
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
613 (message ,message "disabled globally")) |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
614 ;; The function `customize-mark-as-set' must only be called when |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
615 ;; a variable is set interactively, as the purpose is to mark it as |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
616 ;; a candidate for "Save Options", and we do not want to save options |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
617 ;; the user have already set explicitly in his init file. |
57700
0fcbc2db3d03
(menu-bar-make-toggle): Instead of interactive-p,
Richard M. Stallman <rms@gnu.org>
parents:
55266
diff
changeset
|
618 (if interactively (customize-mark-as-set ',variable))) |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
619 (list 'menu-item (purecopy ,doc) ',name |
105835
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
620 :help (purecopy ,help) |
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
621 :button '(:toggle . (and (default-boundp ',variable) |
72831603960b
(menu-bar-make-mm-toggle, menu-bar-make-toggle)
Juri Linkov <juri@jurta.org>
parents:
105815
diff
changeset
|
622 (default-value ',variable)))))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
623 |
95786
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
624 ;; Function for setting/saving default font. |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
625 |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
626 (defun menu-set-font () |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
627 "Interactively select a font and make it the default." |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
628 (interactive) |
95871
75191063f8b6
(menu-set-font): Use fboundp rather than functionp.
Glenn Morris <rgm@gnu.org>
parents:
95852
diff
changeset
|
629 (let ((font (if (fboundp 'x-select-font) |
95852
35f0faee6e04
(menu-set-font): Renamed x-font-dialog to x-select-font.
Chong Yidong <cyd@stupidchicken.com>
parents:
95840
diff
changeset
|
630 (x-select-font) |
95786
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
631 (mouse-select-font))) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
632 spec) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
633 (when font |
102312
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
634 ;; Be careful here: when set-face-attribute is called for the |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
635 ;; :font attribute, Emacs tries to guess the best matching font |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
636 ;; by examining the other face attributes (Bug#2476). |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
637 (set-face-attribute 'default (selected-frame) |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
638 :width 'normal |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
639 :weight 'normal |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
640 :slant 'normal |
473a26ad93a9
(menu-set-font): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
102296
diff
changeset
|
641 :font font) |
102296
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
642 (let ((font-object (face-attribute 'default :font))) |
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
643 (dolist (f (frame-list)) |
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
644 (and (not (eq f (selected-frame))) |
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
645 (display-graphic-p f) |
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
646 (set-face-attribute 'default f :font font-object))) |
c507d7b836ba
(menu-set-font): Assign the same font object to all frames (Bug#2476).
Chong Yidong <cyd@stupidchicken.com>
parents:
101183
diff
changeset
|
647 (set-face-attribute 'default t :font font-object)) |
95786
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
648 (setq spec (list (list t (face-attr-construct 'default)))) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
649 (put 'default 'customized-face spec) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
650 (custom-push-theme 'theme-face 'default 'user 'set spec) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
651 (put 'default 'face-modified nil)))) |
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
652 |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
653 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
654 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
655 ;;; Assemble all the top-level items of the "Options" menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
656 (define-key menu-bar-options-menu [customize] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
657 `(menu-item ,(purecopy "Customize Emacs") ,menu-bar-custom-menu)) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
658 |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
659 (defun menu-bar-options-save () |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
660 "Save current values of Options menu items using Custom." |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
661 (interactive) |
43167
6dab4dad0093
2002-02-05 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43086
diff
changeset
|
662 (let ((need-save nil)) |
58586
7bc75f3f915a
(menu-bar-options-save): For the options
Richard M. Stallman <rms@gnu.org>
parents:
58041
diff
changeset
|
663 ;; These are set with menu-bar-make-mm-toggle, which does not |
7bc75f3f915a
(menu-bar-options-save): For the options
Richard M. Stallman <rms@gnu.org>
parents:
58041
diff
changeset
|
664 ;; put on a customized-value property. |
61714
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
665 (dolist (elt '(line-number-mode column-number-mode size-indication-mode |
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
666 cua-mode show-paren-mode transient-mark-mode |
110342 | 667 blink-cursor-mode display-time-mode display-battery-mode |
668 ;; These are set by other functions that don't set | |
669 ;; the customized state. Having them here has the | |
670 ;; side-effect that turning them off via X | |
671 ;; resources acts like having customized them, but | |
672 ;; that seems harmless. | |
673 menu-bar-mode tool-bar-mode)) | |
674 ;; FIXME ? It's a little annoying that running this command | |
675 ;; always loads cua-base, paren, time, and battery, even if they | |
676 ;; have not been customized in any way. (Due to custom-load-symbol.) | |
58586
7bc75f3f915a
(menu-bar-options-save): For the options
Richard M. Stallman <rms@gnu.org>
parents:
58041
diff
changeset
|
677 (and (customize-mark-to-save elt) |
7bc75f3f915a
(menu-bar-options-save): For the options
Richard M. Stallman <rms@gnu.org>
parents:
58041
diff
changeset
|
678 (setq need-save t))) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
679 ;; These are set with `customize-set-variable'. |
58586
7bc75f3f915a
(menu-bar-options-save): For the options
Richard M. Stallman <rms@gnu.org>
parents:
58041
diff
changeset
|
680 (dolist (elt '(scroll-bar-mode |
61710
7653208ec8d8
(menu-bar-options-save, menu-bar-showhide-menu):
Nick Roberts <nickrob@snap.net.nz>
parents:
61024
diff
changeset
|
681 debug-on-quit debug-on-error |
110342 | 682 ;; Somehow this works, when tool-bar and menu-bar don't. |
683 tooltip-mode | |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
684 save-place uniquify-buffer-name-style fringe-mode |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
685 indicate-empty-lines indicate-buffer-boundaries |
106087
43ff427d730e
menu-bar.el(menu-bar-options-save): Add font-use-system-font.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106085
diff
changeset
|
686 case-fold-search font-use-system-font |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43246
diff
changeset
|
687 current-language-environment default-input-method |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
688 ;; Saving `text-mode-hook' is somewhat questionable, |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
689 ;; as we might get more than we bargain for, if |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
690 ;; other code may has added hooks as well. |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
691 ;; Nonetheless, not saving it would like be confuse |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
692 ;; more often. |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
693 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
694 text-mode-hook)) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
695 (and (get elt 'customized-value) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
696 (customize-mark-to-save elt) |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
697 (setq need-save t))) |
95797
49171eb71c47
(menu-bar-options-save): Minor tweak to last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
95786
diff
changeset
|
698 (when (get 'default 'customized-face) |
49171eb71c47
(menu-bar-options-save): Minor tweak to last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
95786
diff
changeset
|
699 (put 'default 'saved-face (get 'default 'customized-face)) |
49171eb71c47
(menu-bar-options-save): Minor tweak to last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
95786
diff
changeset
|
700 (put 'default 'customized-face nil) |
49171eb71c47
(menu-bar-options-save): Minor tweak to last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
95786
diff
changeset
|
701 (setq need-save t)) |
43167
6dab4dad0093
2002-02-05 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43086
diff
changeset
|
702 ;; Save if we changed anything. |
6dab4dad0093
2002-02-05 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43086
diff
changeset
|
703 (when need-save |
6dab4dad0093
2002-02-05 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43086
diff
changeset
|
704 (custom-save-all)))) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
705 |
109026
c138aa96dae8
Add preliminary describe-package functionality, and some cleanup.
Chong Yidong <cyd@stupidchicken.com>
parents:
109017
diff
changeset
|
706 (define-key menu-bar-options-menu [package] |
c138aa96dae8
Add preliminary describe-package functionality, and some cleanup.
Chong Yidong <cyd@stupidchicken.com>
parents:
109017
diff
changeset
|
707 '(menu-item "Manage Emacs Packages" package-list-packages |
c138aa96dae8
Add preliminary describe-package functionality, and some cleanup.
Chong Yidong <cyd@stupidchicken.com>
parents:
109017
diff
changeset
|
708 :help "Install or uninstall additional Emacs packages")) |
c138aa96dae8
Add preliminary describe-package functionality, and some cleanup.
Chong Yidong <cyd@stupidchicken.com>
parents:
109017
diff
changeset
|
709 |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
710 (define-key menu-bar-options-menu [save] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
711 `(menu-item ,(purecopy "Save Options") menu-bar-options-save |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
712 :help ,(purecopy "Save options set from the menu above"))) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
713 |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
714 (define-key menu-bar-options-menu [custom-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
715 menu-bar-separator) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
716 |
95786
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
717 (define-key menu-bar-options-menu [menu-set-font] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
718 `(menu-item ,(purecopy "Set Default Font...") menu-set-font |
95786
3050aaaeadc9
(menu-set-font): New function. Bind "Set Default
Chong Yidong <cyd@stupidchicken.com>
parents:
95609
diff
changeset
|
719 :visible (display-multi-font-p) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
720 :help ,(purecopy "Select a default font"))) |
51687
64b052fa52ff
(menu-bar-options-menu): Move mouse-set-fonts item here.
Richard M. Stallman <rms@gnu.org>
parents:
51590
diff
changeset
|
721 |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
722 (if (featurep 'system-font-setting) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
723 (define-key menu-bar-options-menu [menu-system-font] |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
724 (menu-bar-make-toggle toggle-use-system-font font-use-system-font |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
725 "Use system font" |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
726 "Use system font: %s" |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
727 "Use the monospaced font defined by the system"))) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
728 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106018
diff
changeset
|
729 |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
730 ;; The "Show/Hide" submenu of menu "Options" |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
731 |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
732 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
43086
2f5ddf0e74ba
(menu-bar-help-menu): Use different text for tool-tip.
Pavel Janík <Pavel@Janik.cz>
parents:
43020
diff
changeset
|
733 |
43216
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
734 (define-key menu-bar-showhide-menu [column-number-mode] |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
735 (menu-bar-make-mm-toggle column-number-mode |
52406
c70762aa82aa
(menu-bar-showhide-menu): Amend date and time label
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
736 "Column Numbers" |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
737 "Show the current column number in the mode line")) |
43216
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
738 |
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
739 (define-key menu-bar-showhide-menu [line-number-mode] |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
740 (menu-bar-make-mm-toggle line-number-mode |
52406
c70762aa82aa
(menu-bar-showhide-menu): Amend date and time label
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
741 "Line Numbers" |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
742 "Show the current line number in the mode line")) |
43216
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
743 |
61714
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
744 (define-key menu-bar-showhide-menu [size-indication-mode] |
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
745 (menu-bar-make-mm-toggle size-indication-mode |
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
746 "Size Indication" |
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
747 "Show the size of the buffer in the mode line")) |
de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
Lute Kamstra <lute@gnu.org>
parents:
61710
diff
changeset
|
748 |
43216
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
749 (define-key menu-bar-showhide-menu [linecolumn-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
750 menu-bar-separator) |
43216
68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
Pavel Janík <Pavel@Janik.cz>
parents:
43167
diff
changeset
|
751 |
64867
889af80d3f70
(menu-bar-showhide-menu): Add `showhide-battery'.
Juri Linkov <juri@jurta.org>
parents:
64822
diff
changeset
|
752 (define-key menu-bar-showhide-menu [showhide-battery] |
889af80d3f70
(menu-bar-showhide-menu): Add `showhide-battery'.
Juri Linkov <juri@jurta.org>
parents:
64822
diff
changeset
|
753 (menu-bar-make-mm-toggle display-battery-mode |
64925
2aaaa5e2d539
(menu-bar-options-menu): Standardize capitalization of menu items.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64904
diff
changeset
|
754 "Battery Status" |
64867
889af80d3f70
(menu-bar-showhide-menu): Add `showhide-battery'.
Juri Linkov <juri@jurta.org>
parents:
64822
diff
changeset
|
755 "Display battery status information in mode line")) |
889af80d3f70
(menu-bar-showhide-menu): Add `showhide-battery'.
Juri Linkov <juri@jurta.org>
parents:
64822
diff
changeset
|
756 |
43086
2f5ddf0e74ba
(menu-bar-help-menu): Use different text for tool-tip.
Pavel Janík <Pavel@Janik.cz>
parents:
43020
diff
changeset
|
757 (define-key menu-bar-showhide-menu [showhide-date-time] |
60826
1ab099658b40
(showhide-date-time): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60465
diff
changeset
|
758 (menu-bar-make-mm-toggle display-time-mode |
64904
91a457b76b86
(menu-bar-showhide-menu): Rename "Date, Time and Mail" item to
Luc Teirlinck <teirllm@auburn.edu>
parents:
64885
diff
changeset
|
759 "Time, Load and Mail" |
91a457b76b86
(menu-bar-showhide-menu): Rename "Date, Time and Mail" item to
Luc Teirlinck <teirllm@auburn.edu>
parents:
64885
diff
changeset
|
760 "Display time, system load averages and \ |
91a457b76b86
(menu-bar-showhide-menu): Rename "Date, Time and Mail" item to
Luc Teirlinck <teirllm@auburn.edu>
parents:
64885
diff
changeset
|
761 mail status in mode line")) |
43086
2f5ddf0e74ba
(menu-bar-help-menu): Use different text for tool-tip.
Pavel Janík <Pavel@Janik.cz>
parents:
43020
diff
changeset
|
762 |
2f5ddf0e74ba
(menu-bar-help-menu): Use different text for tool-tip.
Pavel Janík <Pavel@Janik.cz>
parents:
43020
diff
changeset
|
763 (define-key menu-bar-showhide-menu [datetime-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
764 menu-bar-separator) |
43086
2f5ddf0e74ba
(menu-bar-help-menu): Use different text for tool-tip.
Pavel Janík <Pavel@Janik.cz>
parents:
43020
diff
changeset
|
765 |
43383
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
766 (define-key menu-bar-showhide-menu [showhide-speedbar] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
767 `(menu-item ,(purecopy "Speedbar") speedbar-frame-mode |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
768 :help ,(purecopy "Display a Speedbar quick-navigation frame") |
43383
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
769 :button (:toggle |
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
770 . (and (boundp 'speedbar-frame) |
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
771 (frame-live-p (symbol-value 'speedbar-frame)) |
44499
6c160013fa0e
(menu-bar-adv-search-menu): Add incremental search.
Pavel Janík <Pavel@Janik.cz>
parents:
44267
diff
changeset
|
772 (frame-visible-p |
43383
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
773 (symbol-value 'speedbar-frame)))))) |
d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43305
diff
changeset
|
774 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
775 (defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe")) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
776 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
777 (defvar menu-bar-showhide-fringe-ind-menu |
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
778 (make-sparse-keymap "Buffer boundaries")) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
779 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
780 (defun menu-bar-showhide-fringe-ind-customize () |
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
781 "Show customization buffer for `indicate-buffer-boundaries'." |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
782 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
783 (customize-variable 'indicate-buffer-boundaries)) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
784 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
785 (define-key menu-bar-showhide-fringe-ind-menu [customize] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
786 `(menu-item ,(purecopy "Other (Customize)") |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
787 menu-bar-showhide-fringe-ind-customize |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
788 :help ,(purecopy "Additional choices available through Custom buffer") |
93155
09cc3d0d41ce
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
Andreas Schwab <schwab@suse.de>
parents:
93154
diff
changeset
|
789 :visible (display-graphic-p) |
09cc3d0d41ce
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
Andreas Schwab <schwab@suse.de>
parents:
93154
diff
changeset
|
790 :button (:radio . (not (member indicate-buffer-boundaries |
09cc3d0d41ce
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
Andreas Schwab <schwab@suse.de>
parents:
93154
diff
changeset
|
791 '(nil left right |
09cc3d0d41ce
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
Andreas Schwab <schwab@suse.de>
parents:
93154
diff
changeset
|
792 ((top . left) (bottom . right)) |
09cc3d0d41ce
(menu-bar-showhide-fringe-ind-menu) [customize]: Add radio button.
Andreas Schwab <schwab@suse.de>
parents:
93154
diff
changeset
|
793 ((t . right) (top . left)))))))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
794 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
795 (defun menu-bar-showhide-fringe-ind-mixed () |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
796 "Display top and bottom indicators in opposite fringes, arrows in right." |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
797 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
798 (customize-set-variable 'indicate-buffer-boundaries |
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
799 '((t . right) (top . left)))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
800 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
801 (define-key menu-bar-showhide-fringe-ind-menu [mixed] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
802 `(menu-item ,(purecopy "Opposite, Arrows Right") menu-bar-showhide-fringe-ind-mixed |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
803 :help |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
804 ,(purecopy "Show top/bottom indicators in opposite fringes, arrows in right") |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
805 :visible (display-graphic-p) |
93154
3891784e87be
(menu-bar-showhide-fringe-ind-menu): Fix radio
Andreas Schwab <schwab@suse.de>
parents:
93010
diff
changeset
|
806 :button (:radio . (equal indicate-buffer-boundaries |
3891784e87be
(menu-bar-showhide-fringe-ind-menu): Fix radio
Andreas Schwab <schwab@suse.de>
parents:
93010
diff
changeset
|
807 '((t . right) (top . left)))))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
808 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
809 (defun menu-bar-showhide-fringe-ind-box () |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
810 "Display top and bottom indicators in opposite fringes." |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
811 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
812 (customize-set-variable 'indicate-buffer-boundaries |
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
813 '((top . left) (bottom . right)))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
814 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
815 (define-key menu-bar-showhide-fringe-ind-menu [box] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
816 `(menu-item ,(purecopy "Opposite, No Arrows") menu-bar-showhide-fringe-ind-box |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
817 :help ,(purecopy "Show top/bottom indicators in opposite fringes, no arrows") |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
818 :visible (display-graphic-p) |
93154
3891784e87be
(menu-bar-showhide-fringe-ind-menu): Fix radio
Andreas Schwab <schwab@suse.de>
parents:
93010
diff
changeset
|
819 :button (:radio . (equal indicate-buffer-boundaries |
3891784e87be
(menu-bar-showhide-fringe-ind-menu): Fix radio
Andreas Schwab <schwab@suse.de>
parents:
93010
diff
changeset
|
820 '((top . left) (bottom . right)))))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
821 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
822 (defun menu-bar-showhide-fringe-ind-right () |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
823 "Display buffer boundaries and arrows in the right fringe." |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
824 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
825 (customize-set-variable 'indicate-buffer-boundaries 'right)) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
826 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
827 (define-key menu-bar-showhide-fringe-ind-menu [right] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
828 `(menu-item ,(purecopy "In Right Fringe") menu-bar-showhide-fringe-ind-right |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
829 :help ,(purecopy "Show buffer boundaries and arrows in right fringe") |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
830 :visible (display-graphic-p) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
831 :button (:radio . (eq indicate-buffer-boundaries 'right)))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
832 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
833 (defun menu-bar-showhide-fringe-ind-left () |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
834 "Display buffer boundaries and arrows in the left fringe." |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
835 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
836 (customize-set-variable 'indicate-buffer-boundaries 'left)) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
837 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
838 (define-key menu-bar-showhide-fringe-ind-menu [left] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
839 `(menu-item ,(purecopy "In Left Fringe") menu-bar-showhide-fringe-ind-left |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
840 :help ,(purecopy "Show buffer boundaries and arrows in left fringe") |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
841 :visible (display-graphic-p) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
842 :button (:radio . (eq indicate-buffer-boundaries 'left)))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
843 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
844 (defun menu-bar-showhide-fringe-ind-none () |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
845 "Do not display any buffer boundary indicators." |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
846 (interactive) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
847 (customize-set-variable 'indicate-buffer-boundaries nil)) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
848 |
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
849 (define-key menu-bar-showhide-fringe-ind-menu [none] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
850 `(menu-item ,(purecopy "No Indicators") menu-bar-showhide-fringe-ind-none |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
851 :help ,(purecopy "Hide all buffer boundary indicators and arrows") |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
852 :visible (display-graphic-p) |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
853 :button (:radio . (eq indicate-buffer-boundaries nil)))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
854 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
855 (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
856 `(menu-item ,(purecopy "Buffer Boundaries") ,menu-bar-showhide-fringe-ind-menu |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
857 :visible (display-graphic-p) |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
858 :help ,(purecopy "Indicate buffer boundaries in fringe"))) |
58598
e988bd99edf9
(menu-bar-options-save): Add fringe-indicators.
Kim F. Storm <storm@cua.dk>
parents:
58586
diff
changeset
|
859 |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
860 (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines] |
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
861 (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines |
64925
2aaaa5e2d539
(menu-bar-options-menu): Standardize capitalization of menu items.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64904
diff
changeset
|
862 "Empty Line Indicators" |
64760
4f6b04b42ad4
(menu-bar-options-save): Replace `fringe-indicators'
Luc Teirlinck <teirllm@auburn.edu>
parents:
64091
diff
changeset
|
863 "Indicating of empty lines %s" |
74383
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
864 "Indicate trailing empty lines in fringe, globally")) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
865 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
866 (defun menu-bar-showhide-fringe-menu-customize () |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
867 "Show customization buffer for `fringe-mode'." |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
868 (interactive) |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
869 (customize-variable 'fringe-mode)) |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
870 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
871 (define-key menu-bar-showhide-fringe-menu [customize] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
872 `(menu-item ,(purecopy "Customize Fringe") menu-bar-showhide-fringe-menu-customize |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
873 :help ,(purecopy "Detailed customization of fringe") |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
874 :visible (display-graphic-p))) |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
875 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
876 (defun menu-bar-showhide-fringe-menu-customize-reset () |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
877 "Reset the fringe mode: display fringes on both sides of a window." |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
878 (interactive) |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
879 (customize-set-variable 'fringe-mode nil)) |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
880 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
881 (define-key menu-bar-showhide-fringe-menu [default] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
882 `(menu-item ,(purecopy "Default") menu-bar-showhide-fringe-menu-customize-reset |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
883 :help ,(purecopy "Default width fringe on both left and right side") |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
884 :visible (display-graphic-p) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
885 :button (:radio . (eq fringe-mode nil)))) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
886 |
67550
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
887 (defun menu-bar-showhide-fringe-menu-customize-right () |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
888 "Display fringes only on the right of each window." |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
889 (interactive) |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
890 (require 'fringe) |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
891 (customize-set-variable 'fringe-mode '(0 . nil))) |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
892 |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
893 (define-key menu-bar-showhide-fringe-menu [right] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
894 `(menu-item ,(purecopy "On the Right") menu-bar-showhide-fringe-menu-customize-right |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
895 :help ,(purecopy "Fringe only on the right side") |
67550
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
896 :visible (display-graphic-p) |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
897 :button (:radio . (equal fringe-mode '(0 . nil))))) |
7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
Jan Djärv <jan.h.d@swipnet.se>
parents:
67430
diff
changeset
|
898 |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
899 (defun menu-bar-showhide-fringe-menu-customize-left () |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
900 "Display fringes only on the left of each window." |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
901 (interactive) |
45505
59015bfc2305
(menu-bar-showhide-fringe-menu-customize-left)
Miles Bader <miles@gnu.org>
parents:
45492
diff
changeset
|
902 (require 'fringe) |
59015bfc2305
(menu-bar-showhide-fringe-menu-customize-left)
Miles Bader <miles@gnu.org>
parents:
45492
diff
changeset
|
903 (customize-set-variable 'fringe-mode '(nil . 0))) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
904 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
905 (define-key menu-bar-showhide-fringe-menu [left] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
906 `(menu-item ,(purecopy "On the Left") menu-bar-showhide-fringe-menu-customize-left |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
907 :help ,(purecopy "Fringe only on the left side") |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
908 :visible (display-graphic-p) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
909 :button (:radio . (equal fringe-mode '(nil . 0))))) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
910 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
911 (defun menu-bar-showhide-fringe-menu-customize-disable () |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
912 "Do not display window fringes." |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
913 (interactive) |
45505
59015bfc2305
(menu-bar-showhide-fringe-menu-customize-left)
Miles Bader <miles@gnu.org>
parents:
45492
diff
changeset
|
914 (require 'fringe) |
59015bfc2305
(menu-bar-showhide-fringe-menu-customize-left)
Miles Bader <miles@gnu.org>
parents:
45492
diff
changeset
|
915 (customize-set-variable 'fringe-mode 0)) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
916 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
917 (define-key menu-bar-showhide-fringe-menu [none] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
918 `(menu-item ,(purecopy "None") menu-bar-showhide-fringe-menu-customize-disable |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
919 :help ,(purecopy "Turn off fringe") |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
920 :visible (display-graphic-p) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
921 :button (:radio . (eq fringe-mode 0)))) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
922 |
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
923 (define-key menu-bar-showhide-menu [showhide-fringe] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
924 `(menu-item ,(purecopy "Fringe") ,menu-bar-showhide-fringe-menu |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
925 :visible (display-graphic-p))) |
45492
955cc9eaf87a
(menu-bar-options-save): Add fringe-mode.
Simon Josefsson <jas@extundo.com>
parents:
45324
diff
changeset
|
926 |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
927 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
928 |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
929 (define-key menu-bar-showhide-scroll-bar-menu [right] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
930 `(menu-item ,(purecopy "On the Right") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
931 menu-bar-right-scroll-bar |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
932 :help ,(purecopy "Scroll-bar on the right side") |
45228
66644e336dd7
(menu-bar-showhide-scroll-bar-menu)
Eli Zaretskii <eliz@gnu.org>
parents:
45073
diff
changeset
|
933 :visible (display-graphic-p) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
934 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
935 (frame-parameters))) 'right)))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
936 (defun menu-bar-right-scroll-bar () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
937 "Display scroll bars on the right of each window." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
938 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
939 (customize-set-variable 'scroll-bar-mode 'right)) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
940 |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
941 (define-key menu-bar-showhide-scroll-bar-menu [left] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
942 `(menu-item ,(purecopy "On the Left") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
943 menu-bar-left-scroll-bar |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
944 :help ,(purecopy "Scroll-bar on the left side") |
45228
66644e336dd7
(menu-bar-showhide-scroll-bar-menu)
Eli Zaretskii <eliz@gnu.org>
parents:
45073
diff
changeset
|
945 :visible (display-graphic-p) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
946 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
947 (frame-parameters))) 'left)))) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
948 |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
949 (defun menu-bar-left-scroll-bar () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
950 "Display scroll bars on the left of each window." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
951 (interactive) |
49012
5f0cc4c0a0c7
(menu-bar-left-scroll-bar): Set `scroll-bar-mode'
John Paul Wallington <jpw@pobox.com>
parents:
48524
diff
changeset
|
952 (customize-set-variable 'scroll-bar-mode 'left)) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
953 |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
954 (define-key menu-bar-showhide-scroll-bar-menu [none] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
955 `(menu-item ,(purecopy "None") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
956 menu-bar-no-scroll-bar |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
957 :help ,(purecopy "Turn off scroll-bar") |
45228
66644e336dd7
(menu-bar-showhide-scroll-bar-menu)
Eli Zaretskii <eliz@gnu.org>
parents:
45073
diff
changeset
|
958 :visible (display-graphic-p) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
959 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars |
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
960 (frame-parameters))) nil)))) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
961 |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
962 (defun menu-bar-no-scroll-bar () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
963 "Turn off scroll bars." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
964 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
965 (customize-set-variable 'scroll-bar-mode nil)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
966 |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
967 (define-key menu-bar-showhide-menu [showhide-scroll-bar] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
968 `(menu-item ,(purecopy "Scroll-bar") ,menu-bar-showhide-scroll-bar-menu |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
969 :visible (display-graphic-p))) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
970 |
61710
7653208ec8d8
(menu-bar-options-save, menu-bar-showhide-menu):
Nick Roberts <nickrob@snap.net.nz>
parents:
61024
diff
changeset
|
971 (define-key menu-bar-showhide-menu [showhide-tooltip-mode] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
972 `(menu-item ,(purecopy "Tooltips") tooltip-mode |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
973 :help ,(purecopy "Turn tooltips on/off") |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
974 :visible (and (display-graphic-p) (fboundp 'x-show-tip)) |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
975 :button (:toggle . tooltip-mode))) |
61710
7653208ec8d8
(menu-bar-options-save, menu-bar-showhide-menu):
Nick Roberts <nickrob@snap.net.nz>
parents:
61024
diff
changeset
|
976 |
47296
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
977 (define-key menu-bar-showhide-menu [menu-bar-mode] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
978 `(menu-item ,(purecopy "Menu-bar") toggle-menu-bar-mode-from-frame |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
979 :help ,(purecopy "Turn menu-bar on/off") |
83497
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
980 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
981 |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
982 (defun menu-bar-set-tool-bar-position (position) |
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
983 (customize-set-variable 'tool-bar-mode t) |
109982
1c825c451dc0
* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.
Jan D <jan.h.d@swipnet.se>
parents:
109954
diff
changeset
|
984 (dolist (frame (frame-list)) |
1c825c451dc0
* menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames.
Jan D <jan.h.d@swipnet.se>
parents:
109954
diff
changeset
|
985 (set-frame-parameter frame 'tool-bar-position position)) |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
986 (customize-set-variable 'default-frame-alist |
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
987 (cons (cons 'tool-bar-position position) |
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
988 (assq-delete-all 'tool-bar-position |
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
989 default-frame-alist)))) |
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
990 |
109581
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
991 (defun menu-bar-showhide-tool-bar-menu-customize-disable () |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
992 "Do not display tool bars." |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
993 (interactive) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
994 (customize-set-variable 'tool-bar-mode nil)) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
995 (defun menu-bar-showhide-tool-bar-menu-customize-enable-left () |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
996 "Display tool bars on the left side." |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
997 (interactive) |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
998 (menu-bar-set-tool-bar-position 'left)) |
109581
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
999 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1000 (defun menu-bar-showhide-tool-bar-menu-customize-enable-right () |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1001 "Display tool bars on the right side." |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1002 (interactive) |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
1003 (menu-bar-set-tool-bar-position 'right)) |
109581
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1004 (defun menu-bar-showhide-tool-bar-menu-customize-enable-top () |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1005 "Display tool bars on the top side." |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1006 (interactive) |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
1007 (menu-bar-set-tool-bar-position 'top)) |
109581
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1008 (defun menu-bar-showhide-tool-bar-menu-customize-enable-bottom () |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1009 "Display tool bars on the bottom side." |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1010 (interactive) |
109771
3c2274d0da65
Fix handling of tool-bar-position, also put into default-frame-alist.
Jan D <jan.h.d@swipnet.se>
parents:
109581
diff
changeset
|
1011 (menu-bar-set-tool-bar-position 'bottom)) |
109581
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1012 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1013 (if (featurep 'move-toolbar) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1014 (progn |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1015 (defvar menu-bar-showhide-tool-bar-menu (make-sparse-keymap "Tool-bar")) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1016 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1017 (define-key menu-bar-showhide-tool-bar-menu [showhide-tool-bar-left] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1018 `(menu-item ,(purecopy "On the left") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1019 menu-bar-showhide-tool-bar-menu-customize-enable-left |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1020 :help ,(purecopy "Tool-bar at the left side") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1021 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1022 :button |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1023 (:radio . (and tool-bar-mode |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1024 (eq (frame-parameter nil 'tool-bar-position) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1025 'left))))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1026 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1027 (define-key menu-bar-showhide-tool-bar-menu [showhide-tool-bar-right] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1028 `(menu-item ,(purecopy "On the right") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1029 menu-bar-showhide-tool-bar-menu-customize-enable-right |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1030 :help ,(purecopy "Tool-bar at the right side") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1031 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1032 :button |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1033 (:radio . (and tool-bar-mode |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1034 (eq (frame-parameter nil 'tool-bar-position) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1035 'right))))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1036 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1037 (define-key menu-bar-showhide-tool-bar-menu [showhide-tool-bar-bottom] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1038 `(menu-item ,(purecopy "On the bottom") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1039 menu-bar-showhide-tool-bar-menu-customize-enable-bottom |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1040 :help ,(purecopy "Tool-bar at the bottom") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1041 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1042 :button |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1043 (:radio . (and tool-bar-mode |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1044 (eq (frame-parameter nil 'tool-bar-position) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1045 'bottom))))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1046 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1047 (define-key menu-bar-showhide-tool-bar-menu [showhide-tool-bar-top] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1048 `(menu-item ,(purecopy "On the top") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1049 menu-bar-showhide-tool-bar-menu-customize-enable-top |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1050 :help ,(purecopy "Tool-bar at the top") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1051 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1052 :button |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1053 (:radio . (and tool-bar-mode |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1054 (eq (frame-parameter nil 'tool-bar-position) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1055 'top))))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1056 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1057 (define-key menu-bar-showhide-tool-bar-menu [showhide-tool-bar-none] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1058 `(menu-item ,(purecopy "None") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1059 menu-bar-showhide-tool-bar-menu-customize-disable |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1060 :help ,(purecopy "Turn tool-bar off") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1061 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1062 :button (:radio . (eq tool-bar-mode nil)))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1063 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1064 (define-key menu-bar-showhide-menu [showhide-tool-bar] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1065 `(menu-item ,(purecopy "Tool-bar") ,menu-bar-showhide-tool-bar-menu |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1066 :visible (display-graphic-p))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1067 |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1068 ) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1069 ;; else not tool bar that can move. |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1070 (define-key menu-bar-showhide-menu [showhide-tool-bar] |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1071 `(menu-item ,(purecopy "Tool-bar") toggle-tool-bar-mode-from-frame |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1072 :help ,(purecopy "Turn tool-bar on/off") |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1073 :visible (display-graphic-p) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1074 :button (:toggle . (> (frame-parameter nil 'tool-bar-lines) 0)))) |
06384b3caebf
Add ability to put Gtk+ tool bar on the left/right/bottom or top. Default top.
Jan D. <jan.h.d@swipnet.se>
parents:
109398
diff
changeset
|
1075 ) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
1076 |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
1077 (define-key menu-bar-options-menu [showhide] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1078 `(menu-item ,(purecopy "Show/Hide") ,menu-bar-showhide-menu)) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
1079 |
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
1080 (define-key menu-bar-options-menu [showhide-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1081 menu-bar-separator) |
43020
9a93c325183a
(menu-bar-options-save): Add `default-frame-alist' to saved variables.
Pavel Janík <Pavel@Janik.cz>
parents:
43018
diff
changeset
|
1082 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1083 (define-key menu-bar-options-menu [mule] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1084 ;; It is better not to use backquote here, |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1085 ;; because that makes a bootstrapping problem |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1086 ;; if you need to recompile all the Lisp files using interpreted code. |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1087 `(menu-item ,(purecopy "Mule (Multilingual Environment)") ,mule-menu-keymap |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
1088 ;; Most of the MULE menu actually does make sense in unibyte mode, |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
1089 ;; e.g. language selection. |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
102399
diff
changeset
|
1090 ;;; :visible '(default-value 'enable-multibyte-characters) |
70882
c5d2bd581ee7
* menu-bar.el, international/mule-cmds.el: Remove tooltips for
Chong Yidong <cyd@stupidchicken.com>
parents:
70793
diff
changeset
|
1091 )) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1092 ;(setq menu-bar-final-items (cons 'mule menu-bar-final-items)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1093 ;(define-key menu-bar-options-menu [preferences] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1094 ; `(menu-item ,(purecopy "Preferences") ,menu-bar-preferences-menu |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1095 ; :help ,(purecopy "Toggle important global options"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1096 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1097 (define-key menu-bar-options-menu [mule-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1098 menu-bar-separator) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1099 |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1100 (define-key menu-bar-options-menu [debug-on-quit] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1101 (menu-bar-make-toggle toggle-debug-on-quit debug-on-quit |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
1102 "Enter Debugger on Quit/C-g" "Debug on Quit %s" |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1103 "Enter Lisp debugger when C-g is pressed")) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1104 (define-key menu-bar-options-menu [debug-on-error] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1105 (menu-bar-make-toggle toggle-debug-on-error debug-on-error |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
1106 "Enter Debugger on Error" "Debug on Error %s" |
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
1107 "Enter Lisp debugger when an error is signaled")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1108 (define-key menu-bar-options-menu [debugger-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1109 menu-bar-separator) |
60392
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1110 |
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1111 (define-key menu-bar-options-menu [blink-cursor-mode] |
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1112 (menu-bar-make-mm-toggle blink-cursor-mode |
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1113 "Blinking Cursor" |
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1114 "Whether the cursor blinks (Blink Cursor mode)")) |
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1115 (define-key menu-bar-options-menu [cursor-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1116 menu-bar-separator) |
60392
b1d7c58b4f4b
(menu-bar-make-mm-toggle): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60099
diff
changeset
|
1117 |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1118 (define-key menu-bar-options-menu [save-place] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1119 (menu-bar-make-toggle toggle-save-place-globally save-place |
21302
77a4a1ce8d26
(menu-bar-options-menu): Remove "Toggle" from item
Richard M. Stallman <rms@gnu.org>
parents:
20762
diff
changeset
|
1120 "Save Place in Files between Sessions" |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1121 "Saving place in files %s" |
52178
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1122 "Visit files of previous session when restarting Emacs" |
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1123 (require 'saveplace) |
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1124 ;; Do it by name, to avoid a free-variable |
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1125 ;; warning during byte compilation. |
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1126 (set-default |
b5ad3c78162a
* menu-bar.el (menu-bar-options-menu): Supply a body for the
Karl Fogel <kfogel@red-bean.com>
parents:
52043
diff
changeset
|
1127 'save-place (not (symbol-value 'save-place))))) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
1128 |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1129 (define-key menu-bar-options-menu [uniquify] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1130 (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style |
21302
77a4a1ce8d26
(menu-bar-options-menu): Remove "Toggle" from item
Richard M. Stallman <rms@gnu.org>
parents:
20762
diff
changeset
|
1131 "Use Directory Names in Buffer Names" |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1132 "Directory name in buffer names (uniquify) %s" |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
1133 "Uniquify buffer names by adding parent directory names" |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1134 (require 'uniquify) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1135 (setq uniquify-buffer-name-style |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1136 (if (not uniquify-buffer-name-style) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1137 'forward)))) |
43246
c187056ac630
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43224
diff
changeset
|
1138 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1139 (define-key menu-bar-options-menu [edit-options-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1140 menu-bar-separator) |
45073
c7b6259de115
(menu-bar-make-toggle): Added optional PROPS arg.
Kim F. Storm <storm@cua.dk>
parents:
45044
diff
changeset
|
1141 (define-key menu-bar-options-menu [cua-mode] |
50970
7831ca508f35
(menu-bar-options-menu) <cua-mode>: Use menu-bar-make-mm-toggle.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49997
diff
changeset
|
1142 (menu-bar-make-mm-toggle cua-mode |
64925
2aaaa5e2d539
(menu-bar-options-menu): Standardize capitalization of menu items.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64904
diff
changeset
|
1143 "C-x/C-c/C-v Cut and Paste (CUA)" |
66625
a6851dd5148b
(menu-bar-options-menu): Show "Shift Movement (CUA)"
Kim F. Storm <storm@cua.dk>
parents:
66444
diff
changeset
|
1144 "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" |
105845
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
1145 (:visible (or (not (boundp 'cua-enable-cua-keys)) |
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
1146 cua-enable-cua-keys)))) |
66625
a6851dd5148b
(menu-bar-options-menu): Show "Shift Movement (CUA)"
Kim F. Storm <storm@cua.dk>
parents:
66444
diff
changeset
|
1147 |
a6851dd5148b
(menu-bar-options-menu): Show "Shift Movement (CUA)"
Kim F. Storm <storm@cua.dk>
parents:
66444
diff
changeset
|
1148 (define-key menu-bar-options-menu [cua-emulation-mode] |
a6851dd5148b
(menu-bar-options-menu): Show "Shift Movement (CUA)"
Kim F. Storm <storm@cua.dk>
parents:
66444
diff
changeset
|
1149 (menu-bar-make-mm-toggle cua-mode |
a6851dd5148b
(menu-bar-options-menu): Show "Shift Movement (CUA)"
Kim F. Storm <storm@cua.dk>
parents:
66444
diff
changeset
|
1150 "Shift movement mark region (CUA)" |
109017
1bf6e768d93b
menu-bar.el (menu-bar-options-menu): Fix typo in menu entry.
Juanma Barranquero <lekktu@gmail.com>
parents:
107295
diff
changeset
|
1151 "Use shifted movement keys to set and extend the region" |
105845
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
1152 (:visible (and (boundp 'cua-enable-cua-keys) |
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
1153 (not cua-enable-cua-keys))))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1154 |
22207
51847ba069f8
(toggle-case-fold-search): New command.
Richard M. Stallman <rms@gnu.org>
parents:
21912
diff
changeset
|
1155 (define-key menu-bar-options-menu [case-fold-search] |
51847ba069f8
(toggle-case-fold-search): New command.
Richard M. Stallman <rms@gnu.org>
parents:
21912
diff
changeset
|
1156 (menu-bar-make-toggle toggle-case-fold-search case-fold-search |
74362
8b12ae69293f
(toggle-case-fold-search): Clarify doc/help string and
Nick Roberts <nickrob@snap.net.nz>
parents:
74236
diff
changeset
|
1157 "Case-Insensitive Search" |
74383
091b7540d54d
(menu-bar-make-toggle): Add "globally" to echo area messages.
Richard M. Stallman <rms@gnu.org>
parents:
74362
diff
changeset
|
1158 "Case-Insensitive Search %s" |
95609
31c3df6cae52
(menu-bar-options-menu): Add Menu entry for longlines mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
95059
diff
changeset
|
1159 "Ignore letter-case in search commands")) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1160 |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1161 (defun menu-bar-text-mode-auto-fill () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1162 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1163 (toggle-text-mode-auto-fill) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1164 ;; This is somewhat questionable, as `text-mode-hook' |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1165 ;; might have changed outside customize. |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1166 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1167 (customize-mark-as-set 'text-mode-hook)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1168 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1169 (define-key menu-bar-options-menu [auto-fill-mode] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1170 `(menu-item ,(purecopy "Auto Fill in Text Modes") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1171 menu-bar-text-mode-auto-fill |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1172 :help ,(purecopy "Automatically fill text while typing (Auto Fill mode)") |
43993
f71c489afb5a
(menu-bar-options-menu): Cope if text-mode-hook is not a list.
Richard M. Stallman <rms@gnu.org>
parents:
43412
diff
changeset
|
1173 :button (:toggle . (if (listp text-mode-hook) |
f71c489afb5a
(menu-bar-options-menu): Cope if text-mode-hook is not a list.
Richard M. Stallman <rms@gnu.org>
parents:
43412
diff
changeset
|
1174 (member 'turn-on-auto-fill text-mode-hook) |
f71c489afb5a
(menu-bar-options-menu): Cope if text-mode-hook is not a list.
Richard M. Stallman <rms@gnu.org>
parents:
43412
diff
changeset
|
1175 (eq 'turn-on-auto-fill text-mode-hook))))) |
95609
31c3df6cae52
(menu-bar-options-menu): Add Menu entry for longlines mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
95059
diff
changeset
|
1176 |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1177 |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1178 (defvar menu-bar-line-wrapping-menu (make-sparse-keymap "Line Wrapping")) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1179 |
96875
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1180 (define-key menu-bar-line-wrapping-menu [word-wrap] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1181 `(menu-item ,(purecopy "Word Wrap (Visual Line mode)") |
96875
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1182 (lambda () |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1183 (interactive) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1184 (unless visual-line-mode |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1185 (visual-line-mode 1)) |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1186 (message ,(purecopy "Visual-Line mode enabled"))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1187 :help ,(purecopy "Wrap long lines at word boundaries") |
96875
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1188 :button (:radio . (and (null truncate-lines) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1189 (not (truncated-partial-width-window-p)) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1190 word-wrap)) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1191 :visible (menu-bar-menu-frame-live-and-visible-p))) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1192 |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1193 (define-key menu-bar-line-wrapping-menu [truncate] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1194 `(menu-item ,(purecopy "Truncate Long Lines") |
96875
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1195 (lambda () |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1196 (interactive) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1197 (if visual-line-mode (visual-line-mode 0)) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1198 (setq word-wrap nil) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1199 (toggle-truncate-lines 1)) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1200 :help ,(purecopy "Truncate long lines at window edge") |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1201 :button (:radio . (or truncate-lines |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1202 (truncated-partial-width-window-p))) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1203 :visible (menu-bar-menu-frame-live-and-visible-p) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1204 :enable (not (truncated-partial-width-window-p)))) |
95609
31c3df6cae52
(menu-bar-options-menu): Add Menu entry for longlines mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
95059
diff
changeset
|
1205 |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1206 (define-key menu-bar-line-wrapping-menu [window-wrap] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1207 `(menu-item ,(purecopy "Wrap at Window Edge") |
96875
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1208 (lambda () (interactive) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1209 (if visual-line-mode (visual-line-mode 0)) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1210 (setq word-wrap nil) |
771bcc6d1c99
(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"
Chong Yidong <cyd@stupidchicken.com>
parents:
96587
diff
changeset
|
1211 (if truncate-lines (toggle-truncate-lines -1))) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1212 :help ,(purecopy "Wrap long lines at window edge") |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1213 :button (:radio . (and (null truncate-lines) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1214 (not (truncated-partial-width-window-p)) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1215 (not word-wrap))) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1216 :visible (menu-bar-menu-frame-live-and-visible-p) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1217 :enable (not (truncated-partial-width-window-p)))) |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1218 |
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1219 (define-key menu-bar-options-menu [line-wrapping] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1220 `(menu-item ,(purecopy "Line Wrapping in this Buffer") ,menu-bar-line-wrapping-menu)) |
96587
9e942cda4453
Remove Longlines mode from menu. Add word-wrap option.
Chong Yidong <cyd@stupidchicken.com>
parents:
95871
diff
changeset
|
1221 |
43254
eb6104aac6b0
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43252
diff
changeset
|
1222 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1223 (define-key menu-bar-options-menu [highlight-separator] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1224 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1225 (define-key menu-bar-options-menu [highlight-paren-mode] |
47296
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
1226 (menu-bar-make-mm-toggle show-paren-mode |
8d11b5360234
(menu-bar-make-mm-toggle): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47152
diff
changeset
|
1227 "Paren Match Highlighting" |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1228 "Highlight matching/mismatched parentheses at cursor (Show Paren mode)")) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
1229 (define-key menu-bar-options-menu [transient-mark-mode] |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1230 (menu-bar-make-mm-toggle transient-mark-mode |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1231 "Active Region Highlighting" |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1232 "Make text in active region stand out in color (Transient Mark mode)" |
105845
20a7667a5619
(menu-bar-make-mm-toggle): Quote each element of `props'.
Juri Linkov <juri@jurta.org>
parents:
105835
diff
changeset
|
1233 (:enable (not cua-mode)))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1234 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1235 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1236 ;; The "Tools" menu items |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1237 |
32329
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1238 (defun send-mail-item-name () |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1239 (let* ((known-send-mail-commands '((sendmail-user-agent . "sendmail") |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1240 (mh-e-user-agent . "MH") |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1241 (message-user-agent . "Gnus Message") |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1242 (gnus-user-agent . "Gnus"))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1243 (name (assq mail-user-agent known-send-mail-commands))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1244 (if name |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1245 (setq name (cdr name)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1246 (setq name (symbol-name mail-user-agent)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1247 (if (string-match "\\(.+\\)-user-agent" name) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1248 (setq name (match-string 1 name)))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1249 name)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
1250 |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1251 (defun read-mail-item-name () |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1252 (let* ((known-rmail-commands '((rmail . "RMAIL") |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1253 (mh-rmail . "MH") |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1254 (gnus . "Gnus"))) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1255 (known (assq read-mail-command known-rmail-commands))) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1256 (if known (cdr known) (symbol-name read-mail-command)))) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
1257 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1258 (defvar menu-bar-games-menu (make-sparse-keymap "Games")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1259 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1260 (define-key menu-bar-tools-menu [games] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1261 `(menu-item ,(purecopy "Games") ,menu-bar-games-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1262 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1263 (define-key menu-bar-tools-menu [separator-games] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1264 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1265 |
30586
9b8feaf1cd2f
(menu-bar-games-menu): Add Zone.
Eli Zaretskii <eliz@gnu.org>
parents:
30387
diff
changeset
|
1266 (define-key menu-bar-games-menu [zone] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1267 `(menu-item ,(purecopy "Zone Out") zone |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1268 :help ,(purecopy "Play tricks with Emacs display when Emacs is idle"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1269 (define-key menu-bar-games-menu [tetris] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1270 `(menu-item ,(purecopy "Tetris") tetris |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1271 :help ,(purecopy "Falling blocks game"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1272 (define-key menu-bar-games-menu [solitaire] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1273 `(menu-item ,(purecopy "Solitaire") solitaire |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1274 :help ,(purecopy "Get rid of all the stones"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1275 (define-key menu-bar-games-menu [snake] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1276 `(menu-item ,(purecopy "Snake") snake |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1277 :help ,(purecopy "Move snake around avoiding collisions"))) |
92130
8bebc6db7663
(menu-bar-games-menu): Add Bubbles and Pong. Add :help for Solitaire and Tetris.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1278 (define-key menu-bar-games-menu [pong] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1279 `(menu-item ,(purecopy "Pong") pong |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1280 :help ,(purecopy "Bounce the ball to your opponent"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1281 (define-key menu-bar-games-menu [mult] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1282 `(menu-item ,(purecopy "Multiplication Puzzle") mpuz |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1283 :help ,(purecopy "Exercise brain with multiplication"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1284 (define-key menu-bar-games-menu [life] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1285 `(menu-item ,(purecopy "Life") life |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1286 :help ,(purecopy "Watch how John Conway's cellular automaton evolves"))) |
109941
4ad36c49d812
* lisp/menu-bar.el (menu-bar-games-menu): Add landmark.
Glenn Morris <rgm@gnu.org>
parents:
107295
diff
changeset
|
1287 (define-key menu-bar-games-menu [land] |
4ad36c49d812
* lisp/menu-bar.el (menu-bar-games-menu): Add landmark.
Glenn Morris <rgm@gnu.org>
parents:
107295
diff
changeset
|
1288 `(menu-item ,(purecopy "Landmark") landmark |
4ad36c49d812
* lisp/menu-bar.el (menu-bar-games-menu): Add landmark.
Glenn Morris <rgm@gnu.org>
parents:
107295
diff
changeset
|
1289 :help ,(purecopy "Watch a neural-network robot learn landmarks"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1290 (define-key menu-bar-games-menu [hanoi] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1291 `(menu-item ,(purecopy "Towers of Hanoi") hanoi |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1292 :help ,(purecopy "Watch Towers-of-Hanoi puzzle solved by Emacs"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1293 (define-key menu-bar-games-menu [gomoku] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1294 `(menu-item ,(purecopy "Gomoku") gomoku |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1295 :help ,(purecopy "Mark 5 contiguous squares (like tic-tac-toe)"))) |
92130
8bebc6db7663
(menu-bar-games-menu): Add Bubbles and Pong. Add :help for Solitaire and Tetris.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1296 (define-key menu-bar-games-menu [bubbles] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1297 `(menu-item ,(purecopy "Bubbles") bubbles |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1298 :help ,(purecopy "Remove all bubbles using the fewest moves"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1299 (define-key menu-bar-games-menu [black-box] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1300 `(menu-item ,(purecopy "Blackbox") blackbox |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1301 :help ,(purecopy "Find balls in a black box by shooting rays"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1302 (define-key menu-bar-games-menu [adventure] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1303 `(menu-item ,(purecopy "Adventure") dunnet |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1304 :help ,(purecopy "Dunnet, a text Adventure game for Emacs"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1305 (define-key menu-bar-games-menu [5x5] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1306 `(menu-item ,(purecopy "5x5") 5x5 |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1307 :help ,(purecopy "Fill in all the squares on a 5x5 board"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1308 |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1309 (defvar menu-bar-encryption-decryption-menu |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1310 (make-sparse-keymap "Encryption/Decryption")) |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1311 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1312 (define-key menu-bar-tools-menu [encryption-decryption] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1313 `(menu-item ,(purecopy "Encryption/Decryption") ,menu-bar-encryption-decryption-menu)) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1314 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1315 (define-key menu-bar-tools-menu [separator-encryption-decryption] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1316 menu-bar-separator) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1317 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1318 (define-key menu-bar-encryption-decryption-menu [insert-keys] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1319 `(menu-item ,(purecopy "Insert Keys") epa-insert-keys |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1320 :help ,(purecopy "Insert public keys after the current point"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1321 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1322 (define-key menu-bar-encryption-decryption-menu [export-keys] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1323 `(menu-item ,(purecopy "Export Keys") epa-export-keys |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1324 :help ,(purecopy "Export public keys to a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1325 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1326 (define-key menu-bar-encryption-decryption-menu [import-keys-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1327 `(menu-item ,(purecopy "Import Keys from Region") epa-import-keys-region |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1328 :help ,(purecopy "Import public keys from the current region"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1329 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1330 (define-key menu-bar-encryption-decryption-menu [import-keys] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1331 `(menu-item ,(purecopy "Import Keys from File...") epa-import-keys |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1332 :help ,(purecopy "Import public keys from a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1333 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1334 (define-key menu-bar-encryption-decryption-menu [list-keys] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1335 `(menu-item ,(purecopy "List Keys") epa-list-keys |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1336 :help ,(purecopy "Browse your public keyring"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1337 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1338 (define-key menu-bar-encryption-decryption-menu [separator-keys] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1339 menu-bar-separator) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1340 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1341 (define-key menu-bar-encryption-decryption-menu [sign-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1342 `(menu-item ,(purecopy "Sign Region") epa-sign-region |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1343 :help ,(purecopy "Create digital signature of the current region"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1344 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1345 (define-key menu-bar-encryption-decryption-menu [verify-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1346 `(menu-item ,(purecopy "Verify Region") epa-verify-region |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1347 :help ,(purecopy "Verify digital signature of the current region"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1348 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1349 (define-key menu-bar-encryption-decryption-menu [encrypt-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1350 `(menu-item ,(purecopy "Encrypt Region") epa-encrypt-region |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1351 :help ,(purecopy "Encrypt the current region"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1352 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1353 (define-key menu-bar-encryption-decryption-menu [decrypt-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1354 `(menu-item ,(purecopy "Decrypt Region") epa-decrypt-region |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1355 :help ,(purecopy "Decrypt the current region"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1356 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1357 (define-key menu-bar-encryption-decryption-menu [separator-file] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1358 menu-bar-separator) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1359 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1360 (define-key menu-bar-encryption-decryption-menu [sign-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1361 `(menu-item ,(purecopy "Sign File...") epa-sign-file |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1362 :help ,(purecopy "Create digital signature of a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1363 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1364 (define-key menu-bar-encryption-decryption-menu [verify-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1365 `(menu-item ,(purecopy "Verify File...") epa-verify-file |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1366 :help ,(purecopy "Verify digital signature of a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1367 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1368 (define-key menu-bar-encryption-decryption-menu [encrypt-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1369 `(menu-item ,(purecopy "Encrypt File...") epa-encrypt-file |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1370 :help ,(purecopy "Encrypt a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1371 |
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1372 (define-key menu-bar-encryption-decryption-menu [decrypt-file] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1373 `(menu-item ,(purecopy "Decrypt File...") epa-decrypt-file |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1374 :help ,(purecopy "Decrypt a file"))) |
94491
fc974d1f2fbb
(menu-bar-tools-menu): Reorder, place Games last.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
94417
diff
changeset
|
1375 |
45324
76c4660660ec
(menu-bar-tools-menu) <calculator>: Renamed to "Simple Calculator".
Colin Walters <walters@gnu.org>
parents:
45228
diff
changeset
|
1376 (define-key menu-bar-tools-menu [simple-calculator] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1377 `(menu-item ,(purecopy "Simple Calculator") calculator |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1378 :help ,(purecopy "Invoke the Emacs built-in quick calculator"))) |
45324
76c4660660ec
(menu-bar-tools-menu) <calculator>: Renamed to "Simple Calculator".
Colin Walters <walters@gnu.org>
parents:
45228
diff
changeset
|
1379 (define-key menu-bar-tools-menu [calc] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1380 `(menu-item ,(purecopy "Programmable Calculator") calc |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1381 :help ,(purecopy "Invoke the Emacs built-in full scientific calculator"))) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
1382 (define-key menu-bar-tools-menu [calendar] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1383 `(menu-item ,(purecopy "Calendar") calendar |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1384 :help ,(purecopy "Invoke the Emacs built-in calendar"))) |
43305
976d3d8ab9a3
(menu-bar-tools-menu): Add an item for Calculator.
Eli Zaretskii <eliz@gnu.org>
parents:
43254
diff
changeset
|
1385 |
976d3d8ab9a3
(menu-bar-tools-menu): Add an item for Calculator.
Eli Zaretskii <eliz@gnu.org>
parents:
43254
diff
changeset
|
1386 (define-key menu-bar-tools-menu [separator-net] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1387 menu-bar-separator) |
43305
976d3d8ab9a3
(menu-bar-tools-menu): Add an item for Calculator.
Eli Zaretskii <eliz@gnu.org>
parents:
43254
diff
changeset
|
1388 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1389 (define-key menu-bar-tools-menu [directory-search] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1390 `(menu-item ,(purecopy "Directory Search") eudc-tools-menu)) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
1391 (define-key menu-bar-tools-menu [compose-mail] |
106018
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
1392 `(menu-item (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1393 :visible (and mail-user-agent (not (eq mail-user-agent 'ignore))) |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1394 :help ,(purecopy "Send a mail message"))) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
1395 (define-key menu-bar-tools-menu [rmail] |
106018
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
1396 `(menu-item (format "Read Mail (with %s)" (read-mail-item-name)) |
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
1397 menu-bar-read-mail |
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
1398 :visible (and read-mail-command |
227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
Glenn Morris <rgm@gnu.org>
parents:
105994
diff
changeset
|
1399 (not (eq read-mail-command 'ignore))) |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1400 :help ,(purecopy "Read your mail and reply to it"))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1401 |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1402 (defun menu-bar-read-mail () |
47152
58ccd45ac06b
(menu-bar-read-mail): Doc fix.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
46925
diff
changeset
|
1403 "Read mail using `read-mail-command'." |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1404 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1405 (call-interactively read-mail-command)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1406 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1407 (define-key menu-bar-tools-menu [gnus] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1408 `(menu-item ,(purecopy "Read Net News (Gnus)") gnus |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1409 :help ,(purecopy "Read network news groups"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1410 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1411 (define-key menu-bar-tools-menu [separator-vc] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1412 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1413 |
28258
03e06f15f3d4
Add an entry for PCL-CVS' global menu.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27773
diff
changeset
|
1414 (define-key menu-bar-tools-menu [pcl-cvs] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1415 `(menu-item ,(purecopy "PCL-CVS") cvs-global-menu)) |
78822
1926a08e8926
* vc-arch.el (vc-arch-extra-menu-map): New var and fun.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78393
diff
changeset
|
1416 (define-key menu-bar-tools-menu [vc] nil) ;Create the place for the VC menu. |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1417 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1418 (define-key menu-bar-tools-menu [separator-compare] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1419 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1420 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1421 (define-key menu-bar-tools-menu [epatch] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1422 `(menu-item ,(purecopy "Apply Patch") menu-bar-epatch-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1423 (define-key menu-bar-tools-menu [ediff-merge] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1424 `(menu-item ,(purecopy "Merge") menu-bar-ediff-merge-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1425 (define-key menu-bar-tools-menu [compare] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1426 `(menu-item ,(purecopy "Compare (Ediff)") menu-bar-ediff-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1427 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1428 (define-key menu-bar-tools-menu [separator-spell] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1429 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1430 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1431 (define-key menu-bar-tools-menu [spell] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1432 `(menu-item ,(purecopy "Spell Checking") ispell-menu-map)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1433 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1434 (define-key menu-bar-tools-menu [separator-prog] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1435 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1436 |
105815
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1437 (define-key menu-bar-tools-menu [semantic] |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1438 `(menu-item ,(purecopy "Source Code Parsers (Semantic)") |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1439 semantic-mode |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1440 :help ,(purecopy "Toggle automatic parsing in source code buffers (Semantic mode)") |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1441 :button (:toggle . (bound-and-true-p semantic-mode)))) |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1442 |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1443 (define-key menu-bar-tools-menu [ede] |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1444 `(menu-item ,(purecopy "Project support (EDE)") |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1445 global-ede-mode |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1446 :help ,(purecopy "Toggle the Emacs Development Environment (Global EDE mode)") |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1447 :button (:toggle . (bound-and-true-p global-ede-mode)))) |
cdc718e48308
* menu-bar.el (menu-bar-tools-menu): Add Semantic and EDE menu
Chong Yidong <cyd@stupidchicken.com>
parents:
105717
diff
changeset
|
1448 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1449 (define-key menu-bar-tools-menu [gdb] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1450 `(menu-item ,(purecopy "Debugger (GDB)...") gdb |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1451 :help ,(purecopy "Debug a program from within Emacs with GDB"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1452 (define-key menu-bar-tools-menu [shell-on-region] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1453 `(menu-item ,(purecopy "Shell Command on Region...") shell-command-on-region |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1454 :enable mark-active |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1455 :help ,(purecopy "Pass marked region to a shell command"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1456 (define-key menu-bar-tools-menu [shell] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1457 `(menu-item ,(purecopy "Shell Command...") shell-command |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1458 :help ,(purecopy "Invoke a shell command and catch its output"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1459 (define-key menu-bar-tools-menu [compile] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1460 `(menu-item ,(purecopy "Compile...") compile |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1461 :help ,(purecopy "Invoke compiler or Make, view compilation errors"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1462 (define-key menu-bar-tools-menu [grep] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1463 `(menu-item ,(purecopy "Search Files (Grep)...") grep |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1464 :help ,(purecopy "Search files for strings or regexps (with Grep)"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1465 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1466 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1467 ;; The "Help" menu items |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1468 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1469 (defvar menu-bar-describe-menu (make-sparse-keymap "Describe")) |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1470 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1471 (define-key menu-bar-describe-menu [mule-diag] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1472 `(menu-item ,(purecopy "Show All of Mule Status") mule-diag |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
102399
diff
changeset
|
1473 :visible (default-value 'enable-multibyte-characters) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1474 :help ,(purecopy "Display multilingual environment settings"))) |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1475 (define-key menu-bar-describe-menu [describe-coding-system-briefly] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1476 `(menu-item ,(purecopy "Describe Coding System (Briefly)") |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1477 describe-current-coding-system-briefly |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
102399
diff
changeset
|
1478 :visible (default-value 'enable-multibyte-characters))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1479 (define-key menu-bar-describe-menu [describe-coding-system] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1480 `(menu-item ,(purecopy "Describe Coding System...") describe-coding-system |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
102399
diff
changeset
|
1481 :visible (default-value 'enable-multibyte-characters))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1482 (define-key menu-bar-describe-menu [describe-input-method] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1483 `(menu-item ,(purecopy "Describe Input Method...") describe-input-method |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
102399
diff
changeset
|
1484 :visible (default-value 'enable-multibyte-characters) |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1485 :help ,(purecopy "Keyboard layout for specific input method"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1486 (define-key menu-bar-describe-menu [describe-language-environment] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1487 `(menu-item ,(purecopy "Describe Language Environment") |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1488 ,describe-language-environment-map)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1489 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1490 (define-key menu-bar-describe-menu [separator-desc-mule] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1491 menu-bar-separator) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1492 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1493 (define-key menu-bar-describe-menu [list-keybindings] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1494 `(menu-item ,(purecopy "List Key Bindings") describe-bindings |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1495 :help ,(purecopy "Display all current key bindings (keyboard shortcuts)"))) |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1496 (define-key menu-bar-describe-menu [describe-current-display-table] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1497 `(menu-item ,(purecopy "Describe Display Table") describe-current-display-table |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1498 :help ,(purecopy "Describe the current display table"))) |
109992
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1499 (define-key menu-bar-describe-menu [describe-package] |
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1500 `(menu-item ,(purecopy "Describe Package...") describe-package |
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1501 :help ,(purecopy "Display documentation of a Lisp package"))) |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1502 (define-key menu-bar-describe-menu [describe-face] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1503 `(menu-item ,(purecopy "Describe Face...") describe-face |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1504 :help ,(purecopy "Display the properties of a face"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1505 (define-key menu-bar-describe-menu [describe-variable] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1506 `(menu-item ,(purecopy "Describe Variable...") describe-variable |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1507 :help ,(purecopy "Display documentation of variable/option"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1508 (define-key menu-bar-describe-menu [describe-function] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1509 `(menu-item ,(purecopy "Describe Function...") describe-function |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1510 :help ,(purecopy "Display documentation of function/command"))) |
48524
710d401ff225
(menu-bar-describe-menu): Add "What's This?" item.
Richard M. Stallman <rms@gnu.org>
parents:
48407
diff
changeset
|
1511 (define-key menu-bar-describe-menu [describe-key-1] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1512 `(menu-item ,(purecopy "Describe Key or Mouse Operation...") describe-key |
48524
710d401ff225
(menu-bar-describe-menu): Add "What's This?" item.
Richard M. Stallman <rms@gnu.org>
parents:
48407
diff
changeset
|
1513 ;; Users typically don't identify keys and menu items... |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1514 :help ,(purecopy "Display documentation of command bound to a \ |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1515 key, a click, or a menu-item"))) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1516 (define-key menu-bar-describe-menu [describe-mode] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1517 `(menu-item ,(purecopy "Describe Buffer Modes") describe-mode |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1518 :help ,(purecopy "Describe this buffer's major and minor mode"))) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1519 |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1520 (defvar menu-bar-search-documentation-menu |
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1521 (make-sparse-keymap "Search Documentation")) |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1522 (defun menu-bar-read-lispref () |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1523 "Display the Emacs Lisp Reference manual in Info mode." |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1524 (interactive) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1525 (info "elisp")) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1526 |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1527 (defun menu-bar-read-lispintro () |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1528 "Display the Introduction to Emacs Lisp Programming in Info mode." |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1529 (interactive) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1530 (info "eintr")) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1531 |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1532 (defun search-emacs-glossary () |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1533 "Display the Glossary node of the Emacs manual in Info mode." |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1534 (interactive) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1535 (info "(emacs)Glossary")) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1536 |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1537 (defun emacs-index-search (topic) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1538 "Look up TOPIC in the indices of the Emacs User Manual." |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1539 (interactive "sSubject to look up: ") |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1540 (info "emacs") |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1541 (Info-index topic)) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1542 |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1543 (defun elisp-index-search (topic) |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1544 "Look up TOPIC in the indices of the Emacs Lisp Reference Manual." |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1545 (interactive "sSubject to look up: ") |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1546 (info "elisp") |
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1547 (Info-index topic)) |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1548 |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1549 (define-key menu-bar-search-documentation-menu [search-documentation-strings] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1550 `(menu-item ,(purecopy "Search Documentation Strings...") apropos-documentation |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1551 :help |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1552 ,(purecopy "Find functions and variables whose doc strings match a regexp"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1553 (define-key menu-bar-search-documentation-menu [find-any-object-by-name] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1554 `(menu-item ,(purecopy "Find Any Object by Name...") apropos |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1555 :help ,(purecopy "Find symbols of any kind whose names match a regexp"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1556 (define-key menu-bar-search-documentation-menu [find-option-by-value] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1557 `(menu-item ,(purecopy "Find Options by Value...") apropos-value |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1558 :help ,(purecopy "Find variables whose values match a regexp"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1559 (define-key menu-bar-search-documentation-menu [find-options-by-name] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1560 `(menu-item ,(purecopy "Find Options by Name...") apropos-variable |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1561 :help ,(purecopy "Find variables whose names match a regexp"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1562 (define-key menu-bar-search-documentation-menu [find-commands-by-name] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1563 `(menu-item ,(purecopy "Find Commands by Name...") apropos-command |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1564 :help ,(purecopy "Find commands whose names match a regexp"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1565 (define-key menu-bar-search-documentation-menu [sep1] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1566 menu-bar-separator) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1567 (define-key menu-bar-search-documentation-menu [lookup-command-in-manual] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1568 `(menu-item ,(purecopy "Look Up Command in User Manual...") Info-goto-emacs-command-node |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1569 :help ,(purecopy "Display manual section that describes a command"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1570 (define-key menu-bar-search-documentation-menu [lookup-key-in-manual] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1571 `(menu-item ,(purecopy "Look Up Key in User Manual...") Info-goto-emacs-key-command-node |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1572 :help ,(purecopy "Display manual section that describes a key"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1573 (define-key menu-bar-search-documentation-menu [lookup-subject-in-elisp-manual] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1574 `(menu-item ,(purecopy "Look Up Subject in ELisp Manual...") elisp-index-search |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1575 :help ,(purecopy "Find description of a subject in Emacs Lisp manual"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1576 (define-key menu-bar-search-documentation-menu [lookup-subject-in-emacs-manual] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1577 `(menu-item ,(purecopy "Look Up Subject in User Manual...") emacs-index-search |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1578 :help ,(purecopy "Find description of a subject in Emacs User manual"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1579 (define-key menu-bar-search-documentation-menu [emacs-terminology] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1580 `(menu-item ,(purecopy "Emacs Terminology") search-emacs-glossary |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1581 :help ,(purecopy "Display the Glossary section of the Emacs manual"))) |
41475
11d8d3ad5061
(menu-bar-apropos-menu): Moved all `apropos' bindings here.
Sam Steingold <sds@gnu.org>
parents:
41216
diff
changeset
|
1582 |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1583 (defvar menu-bar-manuals-menu (make-sparse-keymap "More Manuals")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1584 |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1585 (define-key menu-bar-manuals-menu [man] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1586 `(menu-item ,(purecopy "Read Man Page...") manual-entry |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1587 :help ,(purecopy "Man-page docs for external commands and libraries"))) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1588 (define-key menu-bar-manuals-menu [sep2] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1589 menu-bar-separator) |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1590 (define-key menu-bar-manuals-menu [order-emacs-manuals] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1591 `(menu-item ,(purecopy "Ordering Manuals") view-order-manuals |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1592 :help ,(purecopy "How to order manuals from the Free Software Foundation"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1593 (define-key menu-bar-manuals-menu [lookup-subject-in-all-manuals] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1594 `(menu-item ,(purecopy "Lookup Subject in all Manuals...") info-apropos |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1595 :help ,(purecopy "Find description of a subject in all installed manuals"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1596 (define-key menu-bar-manuals-menu [other-manuals] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1597 `(menu-item ,(purecopy "All Other Manuals (Info)") Info-directory |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1598 :help ,(purecopy "Read any of the installed manuals"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1599 (define-key menu-bar-manuals-menu [emacs-lisp-reference] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1600 `(menu-item ,(purecopy "Emacs Lisp Reference") menu-bar-read-lispref |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1601 :help ,(purecopy "Read the Emacs Lisp Reference manual"))) |
107295
20bfefe13c4c
(menu-bar-manuals-menu): Fix typo.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
106815
diff
changeset
|
1602 (define-key menu-bar-manuals-menu [emacs-lisp-intro] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1603 `(menu-item ,(purecopy "Introduction to Emacs Lisp") menu-bar-read-lispintro |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1604 :help ,(purecopy "Read the Introduction to Emacs Lisp Programming"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1605 |
79377 | 1606 (define-key menu-bar-help-menu [about-gnu-project] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1607 `(menu-item ,(purecopy "About GNU") describe-gnu-project |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1608 :help ,(purecopy "About the GNU System, GNU Project, and GNU/Linux"))) |
79377 | 1609 (define-key menu-bar-help-menu [about-emacs] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1610 `(menu-item ,(purecopy "About Emacs") about-emacs |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1611 :help ,(purecopy "Display version number, copyright info, and basic help"))) |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1612 (define-key menu-bar-help-menu [sep4] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1613 menu-bar-separator) |
20762
ec3a35db5352
(menu-bar-file-menu): Add Recover Session menu item.
Richard M. Stallman <rms@gnu.org>
parents:
20647
diff
changeset
|
1614 (define-key menu-bar-help-menu [describe-no-warranty] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1615 `(menu-item ,(purecopy "(Non)Warranty") describe-no-warranty |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1616 :help ,(purecopy "Explain that Emacs has NO WARRANTY"))) |
20762
ec3a35db5352
(menu-bar-file-menu): Add Recover Session menu item.
Richard M. Stallman <rms@gnu.org>
parents:
20647
diff
changeset
|
1617 (define-key menu-bar-help-menu [describe-copying] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1618 `(menu-item ,(purecopy "Copying Conditions") describe-copying |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1619 :help ,(purecopy "Show the Emacs license (GPL)"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1620 (define-key menu-bar-help-menu [getting-new-versions] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1621 `(menu-item ,(purecopy "Getting New Versions") describe-distribution |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1622 :help ,(purecopy "How to get the latest version of Emacs"))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1623 (defun menu-bar-help-extra-packages () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1624 "Display help about some additional packages available for Emacs." |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1625 (interactive) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1626 (let (enable-local-variables) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1627 (view-file (expand-file-name "MORE.STUFF" |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1628 data-directory)) |
101183
96e4db45c8a5
(menu-bar-help-extra-packages): Use goto-address-mode instead of goto-address.
Juri Linkov <juri@jurta.org>
parents:
101152
diff
changeset
|
1629 (goto-address-mode 1))) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1630 (define-key menu-bar-help-menu [sep2] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1631 menu-bar-separator) |
79377 | 1632 (define-key menu-bar-help-menu [external-packages] |
109992
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1633 `(menu-item ,(purecopy "Finding Extra Packages") menu-bar-help-extra-packages |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1634 :help ,(purecopy "Lisp packages distributed separately for use in Emacs"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1635 (define-key menu-bar-help-menu [find-emacs-packages] |
109992
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1636 `(menu-item ,(purecopy "Search Built-in Packages") finder-by-keyword |
640cdeb464c1
Improvements to describe-package buffer.
Chong Yidong <cyd@stupidchicken.com>
parents:
109982
diff
changeset
|
1637 :help ,(purecopy "Find built-in packages and features by keyword"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1638 (define-key menu-bar-help-menu [more-manuals] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1639 `(menu-item ,(purecopy "More Manuals") ,menu-bar-manuals-menu)) |
41703
5ef9446a197a
(menu-bar-read-lispref, menu-bar-read-lispintro)
Eli Zaretskii <eliz@gnu.org>
parents:
41475
diff
changeset
|
1640 (define-key menu-bar-help-menu [emacs-manual] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1641 `(menu-item ,(purecopy "Read the Emacs Manual") info-emacs-manual |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1642 :help ,(purecopy "Full documentation of Emacs features"))) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1643 (define-key menu-bar-help-menu [describe] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1644 `(menu-item ,(purecopy "Describe") ,menu-bar-describe-menu)) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1645 (define-key menu-bar-help-menu [search-documentation] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1646 `(menu-item ,(purecopy "Search Documentation") ,menu-bar-search-documentation-menu)) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
1647 (define-key menu-bar-help-menu [sep1] |
105940
f7147d70f6ef
* subr.el (menu-bar-separator): New defconst.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105870
diff
changeset
|
1648 menu-bar-separator) |
79377 | 1649 (define-key menu-bar-help-menu [emacs-psychotherapist] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1650 `(menu-item ,(purecopy "Emacs Psychotherapist") doctor |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1651 :help ,(purecopy "Our doctor will help you feel better"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1652 (define-key menu-bar-help-menu [send-emacs-bug-report] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1653 `(menu-item ,(purecopy "Send Bug Report...") report-emacs-bug |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1654 :help ,(purecopy "Send e-mail to Emacs maintainers"))) |
78894
ab22b2902e1f
(menu-bar-search-documentation-menu): Renamed from menu-bar-apropos-menu.
Eli Zaretskii <eliz@gnu.org>
parents:
78822
diff
changeset
|
1655 (define-key menu-bar-help-menu [emacs-known-problems] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1656 `(menu-item ,(purecopy "Emacs Known Problems") view-emacs-problems |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1657 :help ,(purecopy "Read about known problems with Emacs"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1658 (define-key menu-bar-help-menu [emacs-news] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1659 `(menu-item ,(purecopy "Emacs News") view-emacs-news |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1660 :help ,(purecopy "New features of this version"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1661 (define-key menu-bar-help-menu [emacs-faq] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1662 `(menu-item ,(purecopy "Emacs FAQ") view-emacs-FAQ |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1663 :help ,(purecopy "Frequently asked (and answered) questions about Emacs"))) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1664 |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1665 (defun help-with-tutorial-spec-language () |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1666 "Use the Emacs tutorial, specifying which language you want." |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49012
diff
changeset
|
1667 (interactive) |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1668 (help-with-tutorial t)) |
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1669 |
29685
90ecedc87917
(menu-bar-help-menu): Add menu item for non-English
Gerd Moellmann <gerd@gnu.org>
parents:
29586
diff
changeset
|
1670 (define-key menu-bar-help-menu [emacs-tutorial-language-specific] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1671 `(menu-item ,(purecopy "Emacs Tutorial (choose language)...") |
46908
70c39fa2253e
(menu-bar-next-tag-other-window, menu-bar-next-tag)
Richard M. Stallman <rms@gnu.org>
parents:
46102
diff
changeset
|
1672 help-with-tutorial-spec-language |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1673 :help ,(purecopy "Learn how to use Emacs (choose a language)"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
1674 (define-key menu-bar-help-menu [emacs-tutorial] |
105050
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1675 `(menu-item ,(purecopy "Emacs Tutorial") help-with-tutorial |
f519ea72decd
(menu-bar-file-menu, menu-bar-file-menu)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104823
diff
changeset
|
1676 :help ,(purecopy "Learn how to use Emacs"))) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1677 |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1678 (defun menu-bar-menu-frame-live-and-visible-p () |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1679 "Return non-nil if the menu frame is alive and visible. |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1680 The menu frame is the frame for which we are updating the menu." |
67705
4fc189896464
(menu-bar-menu-frame-live-and-visible-p)
Juri Linkov <juri@jurta.org>
parents:
67628
diff
changeset
|
1681 (let ((menu-frame (or menu-updating-frame (selected-frame)))) |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1682 (and (frame-live-p menu-frame) |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1683 (frame-visible-p menu-frame)))) |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1684 |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1685 (defun menu-bar-non-minibuffer-window-p () |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1686 "Return non-nil if selected window of the menu frame is not a minibuf window. |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1687 |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1688 See the documentation of `menu-bar-menu-frame-live-and-visible-p' |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1689 for the definition of the menu frame." |
67705
4fc189896464
(menu-bar-menu-frame-live-and-visible-p)
Juri Linkov <juri@jurta.org>
parents:
67628
diff
changeset
|
1690 (let ((menu-frame (or menu-updating-frame (selected-frame)))) |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1691 (not (window-minibuffer-p (frame-selected-window menu-frame))))) |
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1692 |
67628
6b7e5db3f184
(kill-this-buffer): Set a good example by using menu bar, not menubar
Bill Wohler <wohler@newt.com>
parents:
67602
diff
changeset
|
1693 (defun kill-this-buffer () ; for the menu bar |
93010
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1694 "Kill the current buffer. |
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1695 When called in the minibuffer, get out of the minibuffer |
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1696 using `abort-recursive-edit'." |
2175 | 1697 (interactive) |
93010
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1698 (if (menu-bar-non-minibuffer-window-p) |
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1699 (kill-buffer (current-buffer)) |
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1700 (abort-recursive-edit))) |
2175 | 1701 |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1702 (defun kill-this-buffer-enabled-p () |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1703 (let ((count 0) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1704 (buffers (buffer-list))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1705 (while buffers |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1706 (or (string-match "^ " (buffer-name (car buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1707 (setq count (1+ count))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1708 (setq buffers (cdr buffers))) |
93010
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1709 (or (not (menu-bar-non-minibuffer-window-p)) |
6bc37f1965b5
(kill-this-buffer): Use menu-bar-non-minibuffer-window-p
Juri Linkov <juri@jurta.org>
parents:
92948
diff
changeset
|
1710 (> count 1)))) |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
1711 |
65404
b50dda01c73d
(menu-bar-menu-frame-live-and-visible-p)
Eli Zaretskii <eliz@gnu.org>
parents:
65399
diff
changeset
|
1712 (put 'dired 'menu-enable '(menu-bar-non-minibuffer-window-p)) |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
1713 |
4337
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
1714 ;; Permit deleting frame if it would leave a visible or iconified frame. |
11891
937c7fced6ee
(delete-frame-enabled-p): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
11753
diff
changeset
|
1715 (defun delete-frame-enabled-p () |
937c7fced6ee
(delete-frame-enabled-p): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
11753
diff
changeset
|
1716 "Return non-nil if `delete-frame' should be enabled in the menu bar." |
937c7fced6ee
(delete-frame-enabled-p): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
11753
diff
changeset
|
1717 (let ((frames (frame-list)) |
15471 | 1718 (count 0)) |
1719 (while frames | |
1720 (if (frame-visible-p (car frames)) | |
1721 (setq count (1+ count))) | |
1722 (setq frames (cdr frames))) | |
1723 (> count 1))) | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
1724 |
17665 | 1725 (defcustom yank-menu-length 20 |
100171 | 1726 "Maximum length to display in the yank-menu." |
17665 | 1727 :type 'integer |
94264
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1728 :group 'menu) |
3795
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
1729 |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1730 (defun menu-bar-update-yank-menu (string old) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1731 (let ((front (car (cdr yank-menu))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1732 (menu-string (if (<= (length string) yank-menu-length) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1733 string |
10590
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
1734 (concat |
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
1735 (substring string 0 (/ yank-menu-length 2)) |
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
1736 "..." |
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
1737 (substring string (- (/ yank-menu-length 2))))))) |
12610
2e1cc7fae2ba
(menu-bar-update-yank-menu): Treat all-dashes specially.
Richard M. Stallman <rms@gnu.org>
parents:
12588
diff
changeset
|
1738 ;; Don't let the menu string be all dashes |
2e1cc7fae2ba
(menu-bar-update-yank-menu): Treat all-dashes specially.
Richard M. Stallman <rms@gnu.org>
parents:
12588
diff
changeset
|
1739 ;; because that has a special meaning in a menu. |
2e1cc7fae2ba
(menu-bar-update-yank-menu): Treat all-dashes specially.
Richard M. Stallman <rms@gnu.org>
parents:
12588
diff
changeset
|
1740 (if (string-match "\\`-+\\'" menu-string) |
2e1cc7fae2ba
(menu-bar-update-yank-menu): Treat all-dashes specially.
Richard M. Stallman <rms@gnu.org>
parents:
12588
diff
changeset
|
1741 (setq menu-string (concat menu-string " "))) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1742 ;; If we're supposed to be extending an existing string, and that |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1743 ;; string really is at the front of the menu, then update it in place. |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1744 (if (and old (or (eq old (car front)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1745 (string= old (car front)))) |
3942
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
1746 (progn |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1747 (setcar front string) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1748 (setcar (cdr front) menu-string)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1749 (setcdr yank-menu |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1750 (cons |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1751 (cons string (cons menu-string 'menu-bar-select-yank)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1752 (cdr yank-menu))))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1753 (if (> (length (cdr yank-menu)) kill-ring-max) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1754 (setcdr (nthcdr kill-ring-max yank-menu) nil))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1755 |
20481
77ed0446c90a
(menu-bar-select-yank): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
20342
diff
changeset
|
1756 (put 'menu-bar-select-yank 'apropos-inhibit t) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1757 (defun menu-bar-select-yank () |
68797
9257a489f3e6
(menu-bar-select-yank): Add a doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1758 "Insert the stretch of previously-killed text selected from menu. |
9257a489f3e6
(menu-bar-select-yank): Add a doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1759 The menu shows all the killed text sequences stored in `kill-ring'." |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1760 (interactive "*") |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1761 (push-mark (point)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
1762 (insert last-command-event)) |
44803
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1763 |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1764 |
94264
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1765 ;;; Buffers Menu |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1766 |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1767 (defcustom buffers-menu-max-size 10 |
100171 | 1768 "Maximum number of entries which may appear on the Buffers menu. |
94264
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1769 If this is 10, then only the ten most-recently-selected buffers are shown. |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1770 If this is nil, then all buffers are shown. |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1771 A large number or nil slows down menu responsiveness." |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1772 :type '(choice integer |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1773 (const :tag "All" nil)) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1774 :group 'menu) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1775 |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1776 (defcustom buffers-menu-buffer-name-length 30 |
100171 | 1777 "Maximum length of the buffer name on the Buffers menu. |
94264
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1778 If this is a number, then buffer names are truncated to this length. |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1779 If this is nil, then buffer names are shown in full. |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1780 A large number or nil makes the menu too wide." |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1781 :type '(choice integer |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1782 (const :tag "Full length" nil)) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1783 :group 'menu) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1784 |
44803
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1785 (defcustom buffers-menu-show-directories 'unless-uniquify |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1786 "If non-nil, show directories in the Buffers menu for buffers that have them. |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1787 The special value `unless-uniquify' means that directories will be shown |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1788 unless `uniquify-buffer-name-style' is non-nil (in which case, buffer |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1789 names should include enough of a buffer's directory to distinguish it |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1790 from other buffers). |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1791 |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1792 Setting this variable directly does not take effect until next time the |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1793 Buffers menu is regenerated." |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1794 :set (lambda (symbol value) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1795 (set symbol value) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1796 (menu-bar-update-buffers t)) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1797 :initialize 'custom-initialize-default |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1798 :type '(choice (const :tag "Never" nil) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1799 (const :tag "Unless uniquify is enabled" unless-uniquify) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1800 (const :tag "Always" t)) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1801 :group 'menu) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1802 |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1803 (defcustom buffers-menu-show-status t |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1804 "If non-nil, show modified/read-only status of buffers in the Buffers menu. |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1805 Setting this variable directly does not take effect until next time the |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1806 Buffers menu is regenerated." |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1807 :set (lambda (symbol value) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1808 (set symbol value) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1809 (menu-bar-update-buffers t)) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1810 :initialize 'custom-initialize-default |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1811 :type 'boolean |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1812 :group 'menu) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1813 |
105196
d991506f9286
* menu-bar.el (list-buffers-directory): Add docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
105058
diff
changeset
|
1814 (defvar list-buffers-directory nil |
105202
8dadc895b795
* menu-bar.el (list-buffers-directory): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
105196
diff
changeset
|
1815 "String to display in buffer listings for buffers not visiting a file.") |
105196
d991506f9286
* menu-bar.el (list-buffers-directory): Add docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
105058
diff
changeset
|
1816 (make-variable-buffer-local 'list-buffers-directory) |
4628
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
1817 |
95059
4ce13b37e978
menu-bar-select-buffer: Reinsert it as msb.el use it.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
94678
diff
changeset
|
1818 (defun menu-bar-select-buffer () |
4ce13b37e978
menu-bar-select-buffer: Reinsert it as msb.el use it.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
94678
diff
changeset
|
1819 (interactive) |
4ce13b37e978
menu-bar-select-buffer: Reinsert it as msb.el use it.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
94678
diff
changeset
|
1820 (switch-to-buffer last-command-event)) |
4ce13b37e978
menu-bar-select-buffer: Reinsert it as msb.el use it.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
94678
diff
changeset
|
1821 |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1822 (defun menu-bar-select-frame (frame) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1823 (make-frame-visible frame) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1824 (raise-frame frame) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1825 (select-frame frame)) |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1826 |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1827 (defun menu-bar-update-buffers-1 (elt) |
44776
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1828 (let* ((buf (car elt)) |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1829 (file |
44803
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1830 (and (if (eq buffers-menu-show-directories 'unless-uniquify) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1831 (or (not (boundp 'uniquify-buffer-name-style)) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1832 (null uniquify-buffer-name-style)) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1833 buffers-menu-show-directories) |
44776
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1834 (or (buffer-file-name buf) |
44803
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1835 (buffer-local-value 'list-buffers-directory buf))))) |
44776
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1836 (when file |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1837 (setq file (file-name-directory file))) |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1838 (when (and file (> (length file) 20)) |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1839 (setq file (concat "..." (substring file -17)))) |
44803
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1840 (cons (if buffers-menu-show-status |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1841 (let ((mod (if (buffer-modified-p buf) "*" "")) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1842 (ro (if (buffer-local-value 'buffer-read-only buf) "%" ""))) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1843 (if file |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1844 (format "%s %s%s -- %s" (cdr elt) mod ro file) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1845 (format "%s %s%s" (cdr elt) mod ro))) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1846 (if file |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1847 (format "%s -- %s" (cdr elt) file) |
de50fca9a8aa
(buffers-menu-show-directories, buffers-menu-show-status): New variables.
Miles Bader <miles@gnu.org>
parents:
44797
diff
changeset
|
1848 (cdr elt))) |
44776
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1849 buf))) |
f2802fbc2d65
(menu-bar-update-buffers-1): Don't display a directory separator if
Miles Bader <miles@gnu.org>
parents:
44770
diff
changeset
|
1850 |
44770
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1851 ;; Used to cache the menu entries for commands in the Buffers menu |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1852 (defvar menu-bar-buffers-menu-command-entries nil) |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1853 |
36230
56577cf3e384
(menu-bar-update-buffers): Add optional parameter
Gerd Moellmann <gerd@gnu.org>
parents:
36072
diff
changeset
|
1854 (defun menu-bar-update-buffers (&optional force) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1855 ;; If user discards the Buffers item, play along. |
8347
0fff2106fa43
(menu-bar-update-buffers): Use (current-global-map), not global-map.
Richard M. Stallman <rms@gnu.org>
parents:
8320
diff
changeset
|
1856 (and (lookup-key (current-global-map) [menu-bar buffer]) |
36230
56577cf3e384
(menu-bar-update-buffers): Add optional parameter
Gerd Moellmann <gerd@gnu.org>
parents:
36072
diff
changeset
|
1857 (or force (frame-or-buffer-changed-p)) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1858 (let ((buffers (buffer-list)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1859 (frames (frame-list)) |
79167
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
1860 buffers-menu) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1861 ;; If requested, list only the N most recently selected buffers. |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1862 (if (and (integerp buffers-menu-max-size) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1863 (> buffers-menu-max-size 1)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1864 (if (> (length buffers) buffers-menu-max-size) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1865 (setcdr (nthcdr buffers-menu-max-size buffers) nil))) |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1866 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1867 ;; Make the menu of buffers proper. |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1868 (setq buffers-menu |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1869 (let (alist) |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1870 ;; Put into each element of buffer-list |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1871 ;; the name for actual display, |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1872 ;; perhaps truncated in the middle. |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1873 (dolist (buf buffers) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1874 (let ((name (buffer-name buf))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1875 (unless (eq ?\s (aref name 0)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1876 (push (menu-bar-update-buffers-1 |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1877 (cons buf |
94264
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1878 (if (and (integerp buffers-menu-buffer-name-length) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1879 (> (length name) buffers-menu-buffer-name-length)) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1880 (concat |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1881 (substring |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1882 name 0 (/ buffers-menu-buffer-name-length 2)) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1883 "..." |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1884 (substring |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1885 name (- (/ buffers-menu-buffer-name-length 2)))) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1886 name) |
6d96ac31f7cd
(buffers-menu-max-size): Move its definition down to
Juri Linkov <juri@jurta.org>
parents:
93962
diff
changeset
|
1887 )) |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1888 alist)))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1889 ;; Now make the actual list of items. |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1890 (let ((buffers-vec (make-vector (length alist) nil)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1891 (i (length alist))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1892 (dolist (pair alist) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1893 (setq i (1- i)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1894 (aset buffers-vec i |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1895 (nconc (list (car pair) |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1896 (cons nil nil)) |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1897 `(lambda () |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1898 (interactive) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1899 (switch-to-buffer ,(cdr pair)))))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1900 (list buffers-vec)))) |
7239
385ac6718f28
(menu-bar-update-buffers): Fix misspelled variable.
Karl Heuer <kwzh@gnu.org>
parents:
7234
diff
changeset
|
1901 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1902 ;; Make a Frames menu if we have more than one frame. |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1903 (when (cdr frames) |
92745
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1904 (let* ((frames-vec (make-vector (length frames) nil)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1905 (frames-menu |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1906 (cons 'keymap |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1907 (list "Select Frame" frames-vec))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1908 (i 0)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1909 (dolist (frame frames) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1910 (aset frames-vec i |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1911 (nconc |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1912 (list |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1913 (frame-parameter frame 'name) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1914 (cons nil nil)) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1915 `(lambda () |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1916 (interactive) (menu-bar-select-frame ,frame)))) |
871ad7e118ff
(menu-bar-update-buffers-maxbuf): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92350
diff
changeset
|
1917 (setq i (1+ i))) |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1918 ;; Put it after the normal buffers |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1919 (setq buffers-menu |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1920 (nconc buffers-menu |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1921 `((frames-separator "--") |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1922 (frames menu-item "Frames" ,frames-menu)))))) |
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1923 |
44770
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1924 ;; Add in some normal commands at the end of the menu. We use |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1925 ;; the copy cached in `menu-bar-buffers-menu-command-entries' |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1926 ;; if it's been set already. Note that we can't use constant |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1927 ;; lists for the menu-entries, because the low-level menu-code |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1928 ;; modifies them. |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1929 (unless menu-bar-buffers-menu-command-entries |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1930 (setq menu-bar-buffers-menu-command-entries |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1931 (list '(command-separator "--") |
44907
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1932 (list 'next-buffer |
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1933 'menu-item |
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1934 "Next Buffer" |
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1935 'next-buffer |
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1936 :help "Switch to the \"next\" buffer in a cyclic order") |
67602
3fbbf35e6d87
2005-12-16 L«Örentey K«¡roly <lorentey@elte.hu>
Károly Lőrentey <lorentey@elte.hu>
parents:
67550
diff
changeset
|
1937 (list 'previous-buffer |
44907
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1938 'menu-item |
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1939 "Previous Buffer" |
67602
3fbbf35e6d87
2005-12-16 L«Örentey K«¡roly <lorentey@elte.hu>
Károly Lőrentey <lorentey@elte.hu>
parents:
67550
diff
changeset
|
1940 'previous-buffer |
44907
5e84d4496348
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
44817
diff
changeset
|
1941 :help "Switch to the \"previous\" buffer in a cyclic order") |
44770
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1942 (list 'select-named-buffer |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1943 'menu-item |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1944 "Select Named Buffer..." |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1945 'switch-to-buffer |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1946 :help "Prompt for a buffer name, and select that buffer in the current window") |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1947 (list 'list-all-buffers |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1948 'menu-item |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1949 "List All Buffers" |
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1950 'list-buffers |
73757
ee652b7f0ef4
(menu-bar-update-buffers): Fix typo in help menu entry.
Juanma Barranquero <lekktu@gmail.com>
parents:
73005
diff
changeset
|
1951 :help "Pop up a window listing all Emacs buffers" |
44770
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1952 )))) |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1953 (setq buffers-menu |
44770
cdbaa6173481
(menu-bar-update-buffers): Don't use constant lists for command menu
Miles Bader <miles@gnu.org>
parents:
44768
diff
changeset
|
1954 (nconc buffers-menu menu-bar-buffers-menu-command-entries)) |
44768
f362c792ede0
(menu-bar-update-buffers): Add `Select Named Buffer'.
Miles Bader <miles@gnu.org>
parents:
44499
diff
changeset
|
1955 |
79167
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
1956 ;; We used to "(define-key (current-global-map) [menu-bar buffer]" |
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
1957 ;; but that did not do the right thing when the [menu-bar buffer] |
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
1958 ;; entry above had been moved (e.g. to a parent keymap). |
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
1959 (setcdr global-buffers-menu-map (cons "Select Buffer" buffers-menu))))) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1960 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1961 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1962 |
12633
c05399b944ab
(menu-bar-buffer-menu): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
12610
diff
changeset
|
1963 (menu-bar-update-buffers) |
c05399b944ab
(menu-bar-buffer-menu): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
12610
diff
changeset
|
1964 |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1965 ;; this version is too slow |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1966 ;;(defun format-buffers-menu-line (buffer) |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1967 ;; "Returns a string to represent the given buffer in the Buffer menu. |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1968 ;;nil means the buffer shouldn't be listed. You can redefine this." |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1969 ;; (if (string-match "\\` " (buffer-name buffer)) |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1970 ;; nil |
105994
009383a57ce8
* x-dnd.el (x-dnd-maybe-call-test-function):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105940
diff
changeset
|
1971 ;; (with-current-buffer buffer |
47421
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1972 ;; (let ((size (buffer-size))) |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1973 ;; (format "%s%s %-19s %6s %-15s %s" |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1974 ;; (if (buffer-modified-p) "*" " ") |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1975 ;; (if buffer-read-only "%" " ") |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1976 ;; (buffer-name) |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1977 ;; size |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1978 ;; mode-name |
055681adf287
(line-number-mode, column-number-mode)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47296
diff
changeset
|
1979 ;; (or (buffer-file-name) "")))))) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1980 |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
1981 ;;; Set up a menu bar menu for the minibuffer. |
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
1982 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1983 (dolist (map (list minibuffer-local-map |
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1984 ;; This shouldn't be necessary, but there's a funny |
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1985 ;; bug in keymap.c that I don't understand yet. -stef |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1986 minibuffer-local-completion-map)) |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1987 (define-key map [menu-bar minibuf] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105619
diff
changeset
|
1988 (cons (purecopy "Minibuf") (make-sparse-keymap "Minibuf")))) |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
1989 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1990 (let ((map minibuffer-local-completion-map)) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1991 (define-key map [menu-bar minibuf ?\?] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1992 `(menu-item ,(purecopy "List Completions") minibuffer-completion-help |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1993 :help ,(purecopy "Display all possible completions"))) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1994 (define-key map [menu-bar minibuf space] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1995 `(menu-item ,(purecopy "Complete Word") minibuffer-complete-word |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1996 :help ,(purecopy "Complete at most one word"))) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1997 (define-key map [menu-bar minibuf tab] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1998 `(menu-item ,(purecopy "Complete") minibuffer-complete |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
1999 :help ,(purecopy "Complete as far as possible")))) |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
2000 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
2001 (let ((map minibuffer-local-map)) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
2002 (define-key map [menu-bar minibuf quit] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2003 `(menu-item ,(purecopy "Quit") abort-recursive-edit |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2004 :help ,(purecopy "Abort input and exit minibuffer"))) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
2005 (define-key map [menu-bar minibuf return] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2006 `(menu-item ,(purecopy "Enter") exit-minibuffer |
105870
26baacb565b0
* textmodes/tex-mode.el (tex-alt-dvi-print-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105845
diff
changeset
|
2007 :key-sequence ,(purecopy "\r") |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2008 :help ,(purecopy "Terminate input and exit minibuffer"))) |
92310
0801285155e7
(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".
Juri Linkov <juri@jurta.org>
parents:
92130
diff
changeset
|
2009 (define-key map [menu-bar minibuf isearch-forward] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2010 `(menu-item ,(purecopy "Isearch History Forward") isearch-forward |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2011 :help ,(purecopy "Incrementally search minibuffer history forward"))) |
92310
0801285155e7
(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".
Juri Linkov <juri@jurta.org>
parents:
92130
diff
changeset
|
2012 (define-key map [menu-bar minibuf isearch-backward] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2013 `(menu-item ,(purecopy "Isearch History Backward") isearch-backward |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2014 :help ,(purecopy "Incrementally search minibuffer history backward"))) |
92310
0801285155e7
(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".
Juri Linkov <juri@jurta.org>
parents:
92130
diff
changeset
|
2015 (define-key map [menu-bar minibuf next] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2016 `(menu-item ,(purecopy "Next History Item") next-history-element |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2017 :help ,(purecopy "Put next minibuffer history element in the minibuffer"))) |
92310
0801285155e7
(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".
Juri Linkov <juri@jurta.org>
parents:
92130
diff
changeset
|
2018 (define-key map [menu-bar minibuf previous] |
105058
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2019 `(menu-item ,(purecopy "Previous History Item") previous-history-element |
27669cf921ef
(menu-bar-search-menu, menu-bar-edit-menu)
Juri Linkov <juri@jurta.org>
parents:
105050
diff
changeset
|
2020 :help ,(purecopy "Put previous minibuffer history element in the minibuffer")))) |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
2021 |
49997
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2022 (define-minor-mode menu-bar-mode |
3007
e41b3dc686bb
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2847
diff
changeset
|
2023 "Toggle display of a menu bar on each frame. |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
2024 This command applies to all frames that exist and frames to be |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
2025 created in the future. |
22665
c6d48e73123e
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22655
diff
changeset
|
2026 With a numeric argument, if the argument is positive, |
c6d48e73123e
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22655
diff
changeset
|
2027 turn on menu bars; otherwise, turn off menu bars." |
109058
2f0720afc474
Change default-frame-alist and menu/tool-bar-mode interaction (Bug#2249).
Chong Yidong <cyd@stupidchicken.com>
parents:
109026
diff
changeset
|
2028 :init-value t |
49997
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2029 :global t |
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2030 :group 'frames |
83496
f271076dab2d
Fix toolbars on X frames when Emacs is started on a tty. (Reported by Richard Lewis.)
Karoly Lorentey <lorentey@elte.hu>
parents:
68797
diff
changeset
|
2031 |
109058
2f0720afc474
Change default-frame-alist and menu/tool-bar-mode interaction (Bug#2249).
Chong Yidong <cyd@stupidchicken.com>
parents:
109026
diff
changeset
|
2032 ;; Turn the menu-bars on all frames on or off. |
2f0720afc474
Change default-frame-alist and menu/tool-bar-mode interaction (Bug#2249).
Chong Yidong <cyd@stupidchicken.com>
parents:
109026
diff
changeset
|
2033 (let ((val (if menu-bar-mode 1 0))) |
2f0720afc474
Change default-frame-alist and menu/tool-bar-mode interaction (Bug#2249).
Chong Yidong <cyd@stupidchicken.com>
parents:
109026
diff
changeset
|
2034 (dolist (frame (frame-list)) |
109147
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2035 (set-frame-parameter frame 'menu-bar-lines val)) |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2036 ;; If the user has given `default-frame-alist' a `menu-bar-lines' |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2037 ;; parameter, replace it. |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2038 (if (assq 'menu-bar-lines default-frame-alist) |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2039 (setq default-frame-alist |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2040 (cons (cons 'menu-bar-lines val) |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2041 (assq-delete-all 'menu-bar-lines |
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2042 default-frame-alist))))) |
49997
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2043 ;; Make the message appear when Emacs is idle. We can not call message |
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2044 ;; directly. The minor-mode message "Menu-bar mode disabled" comes |
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2045 ;; after this function returns, overwriting any message we do here. |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
105235
diff
changeset
|
2046 (when (and (called-interactively-p 'interactive) (not menu-bar-mode)) |
49997
afcd12db0367
* startup.el (command-line): Call menu-bar-mode with 1 instead of t.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49935
diff
changeset
|
2047 (run-with-idle-timer 0 nil 'message |
109147
783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
109058
diff
changeset
|
2048 "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) |
2485 | 2049 |
110342 | 2050 ;;;###autoload |
2051 ;; (This does not work right unless it comes after the above definition.) | |
2052 ;; This comment is taken from tool-bar.el near | |
2053 ;; (put 'tool-bar-mode ...) | |
2054 ;; We want to pretend the menu bar by standard is on, as this will make | |
2055 ;; customize consider disabling the menu bar a customization, and save | |
2056 ;; that. We could do this for real by setting :init-value above, but | |
2057 ;; that would overwrite disabling the menu bar from X resources. | |
2058 (put 'menu-bar-mode 'standard-value '(t)) | |
2059 | |
83497
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2060 (defun toggle-menu-bar-mode-from-frame (&optional arg) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2061 "Toggle menu bar on or off, based on the status of the current frame. |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2062 See `menu-bar-mode' for more information." |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2063 (interactive (list (or current-prefix-arg 'toggle))) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2064 (if (eq arg 'toggle) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2065 (menu-bar-mode (if (> (frame-parameter nil 'menu-bar-lines) 0) 0 1)) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2066 (menu-bar-mode arg))) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
2067 |
86322
b59436080a4c
(x-menu-bar-open): Declare as function.
Juanma Barranquero <lekktu@gmail.com>
parents:
86275
diff
changeset
|
2068 (declare-function x-menu-bar-open "term/x-win" (&optional frame)) |
95840
0e3c2e18b9c3
(w32-menu-bar-open): Declare for compiler.
Glenn Morris <rgm@gnu.org>
parents:
95804
diff
changeset
|
2069 (declare-function w32-menu-bar-open "term/w32-win" (&optional frame)) |
86322
b59436080a4c
(x-menu-bar-open): Declare as function.
Juanma Barranquero <lekktu@gmail.com>
parents:
86275
diff
changeset
|
2070 |
83537
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2071 (defun menu-bar-open (&optional frame) |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2072 "Start key navigation of the menu bar in FRAME. |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2073 |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2074 This function decides which method to use to access the menu |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2075 depending on FRAME's terminal device. On X displays, it calls |
95804
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2076 `x-menu-bar-open'; on Windows, `w32-menu-bar-open' otherwise it |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2077 calls `tmm-menubar'. |
83537
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2078 |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2079 If FRAME is nil or not given, use the selected frame." |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2080 (interactive) |
95804
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2081 (let ((type (framep (or frame (selected-frame))))) |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2082 (cond |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2083 ((eq type 'x) (x-menu-bar-open frame)) |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2084 ((eq type 'w32) (w32-menu-bar-open frame)) |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2085 (t (with-selected-frame (or frame (selected-frame)) |
ea2762d2d847
* term/w32-win.el (w32-menu-bar-open): Rename from menu-bar-open.
Jason Rumney <jasonr@gnu.org>
parents:
95797
diff
changeset
|
2086 (tmm-menubar)))))) |
83537
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2087 |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2088 (global-set-key [f10] 'menu-bar-open) |
c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83530
diff
changeset
|
2089 |
2765 | 2090 (provide 'menu-bar) |
2091 | |
79167
cc88b3f9bb72
(global-buffers-menu-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78894
diff
changeset
|
2092 ;; arch-tag: 6e6a3c22-4ec4-4d3d-8190-583f8ef94ced |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
2093 ;;; menu-bar.el ends here |