Mercurial > emacs
annotate lisp/menu-bar.el @ 41015:987844bd98c9
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 13 Nov 2001 16:39:40 +0000 |
parents | 02b9ae26c819 |
children | 04e401e29e4e |
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 |
36072
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc. |
14169 | 4 |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
5 ;; Author: RMS |
17970 | 6 ;; Maintainer: FSF |
31461
c613942bdf43
(menu-bar-options-menu): Fix the font-lock toggle.
Dave Love <fx@gnu.org>
parents:
31443
diff
changeset
|
7 ;; Keywords: internal, mouse |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
8 |
2485 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
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 | |
13871
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
32 ;;; User options: |
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
33 |
17665 | 34 (defcustom buffers-menu-max-size 10 |
13871
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
35 "*Maximum number of entries which may appear on the Buffers menu. |
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
36 If this is 10, then only the ten most-recently-selected buffers are shown. |
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
37 If this is nil, then all buffers are shown. |
17665 | 38 A large number or nil slows down menu responsiveness." |
39 :type '(choice integer | |
40 (const :tag "All" nil)) | |
41 :group 'mouse) | |
13871
4b5161e903c1
(buffers-menu-max-size): Move definition to top of file.
Richard M. Stallman <rms@gnu.org>
parents:
13567
diff
changeset
|
42 |
4668
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
43 ;; 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
|
44 ;; 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
|
45 (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
|
46 (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
|
47 (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
|
48 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
49 ;; 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
|
50 ;; 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
|
51 ;; help key. |
5f618eea1343
(help-menu): Symbol renamed from `help'.
Karl Heuer <kwzh@gnu.org>
parents:
12041
diff
changeset
|
52 (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
|
53 |
12199
5f618eea1343
(help-menu): Symbol renamed from `help'.
Karl Heuer <kwzh@gnu.org>
parents:
12041
diff
changeset
|
54 (define-key global-map [menu-bar help-menu] (cons "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
|
55 (defvar menu-bar-tools-menu (make-sparse-keymap "Tools")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
56 (define-key global-map [menu-bar tools] (cons "Tools" menu-bar-tools-menu)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
57 ;; This definition is just to show what this looks like. |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
58 ;; It gets overridden below when menu-bar-update-buffers is called. |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
59 (define-key global-map [menu-bar buffer] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
60 (cons "Buffers" (make-sparse-keymap "Buffers"))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
61 (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
|
62 (define-key global-map [menu-bar options] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
63 (cons "Options" menu-bar-options-menu)) |
3504
5fb4eefbd7ac
(menu-bar-help-menu): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3500
diff
changeset
|
64 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
65 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
66 (defvar menu-bar-files-menu (make-sparse-keymap "File")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
67 (define-key global-map [menu-bar files] (cons "File" menu-bar-files-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
|
68 |
d24be7d7af5d
(menu-bar-file-menu): Add back as alias for menu-bar-files-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
69 ;; This alias is for compatibility with 19.28 and before. |
d24be7d7af5d
(menu-bar-file-menu): Add back as alias for menu-bar-files-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
70 (defvar menu-bar-file-menu menu-bar-files-menu) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
71 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
72 ;; The "File" menu items |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
73 (define-key menu-bar-files-menu [exit-emacs] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
74 '(menu-item "Exit Emacs" save-buffers-kill-emacs |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
75 :help "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
|
76 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
77 (define-key menu-bar-files-menu [separator-exit] |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
78 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
79 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
80 ;; 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
|
81 ;; event. |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
82 (define-key menu-bar-files-menu [delete-this-frame] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
83 '(menu-item "Delete Frame" delete-frame |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
84 :visible (fboundp 'delete-frame) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
85 :enable (delete-frame-enabled-p) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
86 :help "Delete currently selected frame")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
87 (define-key menu-bar-files-menu [make-frame-on-display] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
88 '(menu-item "New Frame on Display..." make-frame-on-display |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
89 :visible (fboundp 'make-frame-on-display) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
90 :help "Open a new frame on another display")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
91 (define-key menu-bar-files-menu [make-frame] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
92 '(menu-item "New Frame" make-frame-command |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
93 :visible (fboundp 'make-frame-command) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
94 :help "Open a new frame")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
95 |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
96 (define-key menu-bar-files-menu [one-window] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
97 '(menu-item "Unsplit Windows" delete-other-windows |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
98 :enable (not (one-window-p t nil)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
99 :help "Make selected window fill its frame")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
100 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
101 (define-key menu-bar-files-menu [split-window] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
102 '(menu-item "Split Window" split-window-vertically |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
103 :help "Split selected window in two")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
104 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
105 (define-key menu-bar-files-menu [separator-window] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
106 '(menu-item "--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
107 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
108 (define-key menu-bar-files-menu [ps-print-region] |
35684
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
109 '(menu-item "Postscript Print Region (B+W)" ps-print-region |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
110 :enable mark-active |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
111 :help "Pretty-print marked region in black and white to PostScript printer")) |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
112 (define-key menu-bar-files-menu [ps-print-buffer] |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
113 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
114 :help "Pretty-print current buffer in black and white to PostScript printer")) |
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
115 (define-key menu-bar-files-menu [ps-print-region-faces] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
116 '(menu-item "Postscript Print Region" ps-print-region-with-faces |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
117 :enable mark-active |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
118 :help "Pretty-print marked region to PostScript printer")) |
35684
880d8ce810cc
(menu-bar-files-menu): Add menu items for
Gerd Moellmann <gerd@gnu.org>
parents:
33191
diff
changeset
|
119 (define-key menu-bar-files-menu [ps-print-buffer-faces] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
120 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
121 :help "Pretty-print current buffer to PostScript printer")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
122 (define-key menu-bar-files-menu [print-region] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
123 '(menu-item "Print Region" print-region |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
124 :enable mark-active |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
125 :help "Print region between mark and current position")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
126 (define-key menu-bar-files-menu [print-buffer] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
127 '(menu-item "Print Buffer" print-buffer |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
128 :help "Print current buffer with page headings")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
129 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
130 (define-key menu-bar-files-menu [separator-print] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
131 '(menu-item "--")) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
132 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
133 (define-key menu-bar-files-menu [recover-session] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
134 '(menu-item "Recover Crashed Session..." recover-session |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
135 :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
|
136 (file-directory-p |
b3f8b3df8d4f
(menu-bar-files-menu [recover-session]): Make sure auto save directory
Noah Friedman <friedman@splode.com>
parents:
29968
diff
changeset
|
137 (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
|
138 (directory-files |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
139 (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
|
140 nil |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
141 (concat "\\`" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
142 (regexp-quote |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
143 (file-name-nondirectory |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
144 auto-save-list-file-prefix))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
145 t)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
146 :help "Recover edits from a crashed session")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
147 (define-key menu-bar-files-menu [revert-buffer] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
148 '(menu-item "Revert Buffer" revert-buffer |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
149 :enable (or revert-buffer-function |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
150 revert-buffer-insert-file-contents-function |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
151 (and (buffer-file-name) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
152 (or (buffer-modified-p) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
153 (not (verify-visited-file-modtime |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
154 (current-buffer)))))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
155 :help "Re-read current buffer from its file")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
156 (define-key menu-bar-files-menu [write-file] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
157 '(menu-item "Save Buffer As..." write-file |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
158 :enable (not (window-minibuffer-p |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
159 (frame-selected-window menu-updating-frame))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
160 :help "Write current buffer to another file")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
161 (define-key menu-bar-files-menu [save-buffer] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
162 '(menu-item "Save (current buffer)" save-buffer |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
163 :enable (and (buffer-modified-p) |
31645
0d9e6ed2718b
(menu-bar-files-menu): Disable ``Save'' if
Gerd Moellmann <gerd@gnu.org>
parents:
31471
diff
changeset
|
164 (buffer-file-name) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
165 (not (window-minibuffer-p |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
166 (frame-selected-window menu-updating-frame)))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
167 :help "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
|
168 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
169 (define-key menu-bar-files-menu [separator-save] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
170 '(menu-item "--")) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
171 |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
172 (define-key menu-bar-files-menu [kill-buffer] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
173 '(menu-item "Close (current buffer)" kill-this-buffer |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
174 :enable (kill-this-buffer-enabled-p) |
32932
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
175 :help "Discard current buffer")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
176 (define-key menu-bar-files-menu [insert-file] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
177 '(menu-item "Insert File..." insert-file |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
178 :enable (not (window-minibuffer-p |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
179 (frame-selected-window menu-updating-frame))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
180 :help "Insert another file into current buffer")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
181 (define-key menu-bar-files-menu [dired] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
182 '(menu-item "Open Directory..." dired |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
183 :help "Read a directory, operate on its files")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
184 (define-key menu-bar-files-menu [open-file] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
185 '(menu-item "Open File..." find-file |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
186 :enable (not (window-minibuffer-p |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
187 (frame-selected-window menu-updating-frame))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
188 :help "Read a file into an Emacs buffer")) |
8525
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
189 |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
190 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
191 ;; The "Edit" menu items |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
192 (defun nonincremental-search-forward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
193 "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
|
194 (interactive "sSearch for string: ") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
195 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
196 (search-forward (car search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
197 (isearch-update-ring string nil) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
198 (search-forward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
199 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
200 (defun nonincremental-search-backward (string) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
201 "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
|
202 (interactive "sSearch for string: ") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
203 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
204 (search-backward (car search-ring)) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
205 (isearch-update-ring string nil) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
206 (search-backward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
207 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
208 (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
|
209 "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
|
210 (interactive "sSearch for regexp: ") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
211 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
212 (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
|
213 (isearch-update-ring string t) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
214 (re-search-forward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
215 |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
216 (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
|
217 "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
|
218 (interactive "sSearch for regexp: ") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
219 (if (equal string "") |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
220 (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
|
221 (isearch-update-ring string t) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
222 (re-search-backward string))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
223 |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
224 (defun nonincremental-repeat-search-forward () |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
225 "Search forward for the previous search string." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
226 (interactive) |
18483
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
227 (if (null search-ring) |
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
228 (error "No previous search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
229 (search-forward (car search-ring))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
230 |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
231 (defun nonincremental-repeat-search-backward () |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
232 "Search backward for the previous search string." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
233 (interactive) |
18483
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
234 (if (null search-ring) |
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
235 (error "No previous search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
236 (search-backward (car search-ring))) |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
237 |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
238 (defun nonincremental-repeat-re-search-forward () |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
239 "Search forward for the previous regular expression." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
240 (interactive) |
18484 | 241 (if (null regexp-search-ring) |
18483
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
242 (error "No previous search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
243 (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
|
244 |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
245 (defun nonincremental-repeat-re-search-backward () |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
246 "Search backward for the previous regular expression." |
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
247 (interactive) |
18484 | 248 (if (null regexp-search-ring) |
18483
4d66cfbc5735
(nonincremental-repeat-search-forward)
Richard M. Stallman <rms@gnu.org>
parents:
18288
diff
changeset
|
249 (error "No previous search")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
250 (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
|
251 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
252 (defvar menu-bar-search-menu (make-sparse-keymap "Search")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
253 (defvar menu-bar-adv-search-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
254 (make-sparse-keymap "Advanced Search/Replace")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
255 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
256 (define-key menu-bar-adv-search-menu [tags-continue] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
257 '(menu-item "Continue Tags Search/Replace" tags-loop-continue |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
258 :help "Continue last tags search/replace operation")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
259 (define-key menu-bar-adv-search-menu [tags-repl] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
260 '(menu-item "Replace in all tagged files" tags-query-replace |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
261 :help "Interactively replace a regexp in all tagged files")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
262 (define-key menu-bar-adv-search-menu [tags-srch] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
263 '(menu-item "Search in all tagged files" tags-search |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
264 :help "Search for a regexp in all tagged files")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
265 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
266 (define-key menu-bar-adv-search-menu [separator-tag-search] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
267 '(menu-item "--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
268 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
269 (define-key menu-bar-adv-search-menu [query-replace-regexp] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
270 '(menu-item "Replace Regexp..." query-replace-regexp |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
271 :enable (not buffer-read-only) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
272 :help "Replace regular expression, ask about each occurrence")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
273 (define-key menu-bar-adv-search-menu [repeat-regexp-back] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
274 '(menu-item "Repeat Regexp Backwards" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
275 nonincremental-repeat-re-search-backward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
276 :enable regexp-search-ring |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
277 :help "Repeat last regular expression search backwards")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
278 (define-key menu-bar-adv-search-menu [repeat-regexp-fwd] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
279 '(menu-item "Repeat Regexp" nonincremental-repeat-re-search-forward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
280 :enable regexp-search-ring |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
281 :help "Repeat last regular expression search forward")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
282 (define-key menu-bar-adv-search-menu [re-search-backward] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
283 '(menu-item "Search Regexp Backwards..." nonincremental-re-search-backward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
284 :help "Search backwards for a regular expression")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
285 (define-key menu-bar-adv-search-menu [re-search-forward] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
286 '(menu-item "Search Regexp..." nonincremental-re-search-forward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
287 :help "Search forward for a regular expression")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
288 (define-key menu-bar-search-menu [re-search] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
289 (list 'menu-item "Advanced Search/Replace" menu-bar-adv-search-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
290 :help "Regexp and Tags search and replace")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
291 |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
292 (define-key menu-bar-search-menu [query-replace] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
293 '(menu-item "Replace..." query-replace |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
294 :enable (not buffer-read-only) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
295 :help "Replace string interactively, ask about each occurrence")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
296 (define-key menu-bar-search-menu [repeat-search-back] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
297 '(menu-item "Repeat Backwards" nonincremental-repeat-search-backward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
298 :enable search-ring |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
299 :help "Repeat last search backwards")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
300 (define-key menu-bar-search-menu [repeat-search-fwd] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
301 '(menu-item "Repeat Search" nonincremental-repeat-search-forward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
302 :enable search-ring |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
303 :help "Repeat last search forward")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
304 (define-key menu-bar-search-menu [search-backward] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
305 '(menu-item "Search Backwards..." nonincremental-search-backward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
306 :help "Search backwards for a string")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
307 (define-key menu-bar-search-menu [search-forward] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
308 '(menu-item "Search..." nonincremental-search-forward |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
309 :help "Search forward for a string")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
310 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
311 ;;; 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
|
312 (define-key menu-bar-edit-menu [props] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
313 '(menu-item "Text Properties" facemenu-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
314 :help "Change properties of text in region")) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
315 |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
316 (define-key menu-bar-edit-menu [fill] |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
317 '(menu-item "Fill" fill-region |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
318 :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
|
319 :help |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
320 "Fill text in region to fit between left and right margin")) |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
321 |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
322 (define-key menu-bar-edit-menu [separator-bookmark] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
323 '(menu-item "--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
324 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
325 (define-key menu-bar-edit-menu [bookmark] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
326 '(menu-item "Bookmarks" menu-bar-bookmark-map |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
327 :help "Record positions and jump between them")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
328 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
329 (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
|
330 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
331 (define-key menu-bar-goto-menu [set-tags-name] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
332 '(menu-item "Set Tags File Name" visit-tags-table |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
333 :help "Tell Tags commands which tag table file to use")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
334 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
335 (define-key menu-bar-goto-menu [separator-tag-file] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
336 '(menu-item "--")) |
11067
a73305d0a6b4
(menu-bar-files-menu): Renamed from ...-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
11044
diff
changeset
|
337 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
338 (define-key menu-bar-goto-menu [apropos-tags] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
339 '(menu-item "Tags Apropos" tags-apropos |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
340 :help "Find function/variables whose names match regexp")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
341 (define-key menu-bar-goto-menu [next-tag-otherw] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
342 '(menu-item "Next Tag in Other Window" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
343 (function (lambda () (find-tag-other-window nil t))) |
27773
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
344 :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
|
345 (not (ring-empty-p tags-location-ring))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
346 :help "Find next function/variable matching last tag name in another window")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
347 (define-key menu-bar-goto-menu [next-tag] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
348 '(menu-item "Find Next Tag" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
349 (function (lambda () (find-tag nil t))) |
27773
e209690ccf0a
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Eli Zaretskii <eliz@gnu.org>
parents:
27730
diff
changeset
|
350 :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
|
351 (not (ring-empty-p tags-location-ring))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
352 :help "Find next function/variable matching last tag name")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
353 (define-key menu-bar-goto-menu [find-tag-otherw] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
354 '(menu-item "Find Tag in Other Window..." find-tag-other-window |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
355 :help "Find function/variable definition in another window")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
356 (define-key menu-bar-goto-menu [find-tag] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
357 '(menu-item "Find Tag..." find-tag |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
358 :help "Find definition of function or variable")) |
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 (define-key menu-bar-goto-menu [separator-tags] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
361 '(menu-item "--")) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
362 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
363 (define-key menu-bar-goto-menu [end-of-buf] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
364 '(menu-item "Goto End of Buffer" end-of-buffer)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
365 (define-key menu-bar-goto-menu [beg-of-buf] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
366 '(menu-item "Goto Beginning of Buffer" beginning-of-buffer)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
367 (define-key menu-bar-goto-menu [go-to-pos] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
368 '(menu-item "Goto Buffer Position..." goto-char |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
369 :help "Read a number N and go to buffer position N")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
370 (define-key menu-bar-goto-menu [go-to-line] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
371 '(menu-item "Goto Line..." goto-line |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
372 :help "Read a line number and go to that line")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
373 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
374 (define-key menu-bar-edit-menu [goto] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
375 (list 'menu-item "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
|
376 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
377 (define-key menu-bar-edit-menu [search] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
378 (list 'menu-item "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
|
379 |
39108
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
380 (define-key menu-bar-edit-menu [separator-search] |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
381 '(menu-item "--")) |
bb0557fdcd9a
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Eli Zaretskii <eliz@gnu.org>
parents:
39080
diff
changeset
|
382 |
29968
33751f6d1348
(menu-bar-edit-menu [mark-whole-buffer]): Change name to "Select All".
Eli Zaretskii <eliz@gnu.org>
parents:
29936
diff
changeset
|
383 (define-key menu-bar-edit-menu [mark-whole-buffer] |
33751f6d1348
(menu-bar-edit-menu [mark-whole-buffer]): Change name to "Select All".
Eli Zaretskii <eliz@gnu.org>
parents:
29936
diff
changeset
|
384 '(menu-item "Select All" mark-whole-buffer |
33751f6d1348
(menu-bar-edit-menu [mark-whole-buffer]): Change name to "Select All".
Eli Zaretskii <eliz@gnu.org>
parents:
29936
diff
changeset
|
385 :help "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
|
386 (define-key menu-bar-edit-menu [clear] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
387 '(menu-item "Clear" delete-region |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
388 :enable (and mark-active |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
389 (not buffer-read-only) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
390 (not (mouse-region-match))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
391 :help |
32932
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
392 "Delete the text in region between mark and current position")) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
393 (defvar yank-menu (cons "Select Yank" nil)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
394 (fset 'yank-menu (cons 'keymap yank-menu)) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
395 (define-key menu-bar-edit-menu [select-paste] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
396 '(menu-item "Select and Paste" yank-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
397 :enable (and (cdr yank-menu) (not buffer-read-only)) |
39080
6b348f80eb27
(menu-bar-edit-menu) <yank-menu, yank>: Mention
Eli Zaretskii <eliz@gnu.org>
parents:
39049
diff
changeset
|
398 :help "Paste (yank) text cut or copied earlier")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
399 (define-key menu-bar-edit-menu [paste] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
400 '(menu-item "Paste" yank |
40913
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
401 :enable (and |
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
402 ;; Emacs compiled --without-x doesn't have |
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
403 ;; x-selection-exists-p. |
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
404 (fboundp 'x-selection-exists-p) |
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
405 (x-selection-exists-p) (not buffer-read-only)) |
39080
6b348f80eb27
(menu-bar-edit-menu) <yank-menu, yank>: Mention
Eli Zaretskii <eliz@gnu.org>
parents:
39049
diff
changeset
|
406 :help "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
|
407 (define-key menu-bar-edit-menu [copy] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
408 '(menu-item "Copy" menu-bar-kill-ring-save |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
409 :enable mark-active |
32932
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
410 :help "Copy 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
|
411 (define-key menu-bar-edit-menu [cut] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
412 '(menu-item "Cut" kill-region |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
413 :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
|
414 :help |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
415 "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
|
416 (define-key menu-bar-edit-menu [undo] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
417 '(menu-item "Undo" undo |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
418 :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
|
419 (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
|
420 (if (eq last-command 'undo) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
421 pending-undo-list |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
422 (consp buffer-undo-list))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
423 :help "Undo last operation")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
424 |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
425 |
10721
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
426 (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
|
427 (interactive "r") |
3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
Richard M. Stallman <rms@gnu.org>
parents:
10590
diff
changeset
|
428 (if (mouse-region-match) |
22655
ca137a595698
(menu-bar-kill-ring-save): Fix message typo.
Richard M. Stallman <rms@gnu.org>
parents:
22651
diff
changeset
|
429 (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
|
430 (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
|
431 |
4061
7279958409fe
(ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents:
4048
diff
changeset
|
432 (autoload 'ispell-menu-map "ispell" nil t 'keymap) |
7279958409fe
(ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents:
4048
diff
changeset
|
433 |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
434 ;; 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
|
435 ;; 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
|
436 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
437 (put 'clipboard-kill-region 'menu-enable 'mark-active) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
438 (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
|
439 (put 'clipboard-yank 'menu-enable |
40913
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
440 '(or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p)) |
02b9ae26c819
(menu-bar-edit-menu): Don't use x-selection-exists-p if
Eli Zaretskii <eliz@gnu.org>
parents:
39844
diff
changeset
|
441 (x-selection-exists-p 'CLIPBOARD))) |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
442 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
443 (defun clipboard-yank () |
23982
f9ccd26b8627
(clipboard-yank): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23532
diff
changeset
|
444 "Insert the clipboard contents, or the last stretch of killed text." |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
445 (interactive) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
446 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
447 (yank))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
448 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
449 (defun clipboard-kill-ring-save (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
450 "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
|
451 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
452 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
453 (kill-ring-save beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
454 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
455 (defun clipboard-kill-region (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
456 "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
|
457 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
458 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
459 (kill-region beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
460 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
461 (defun menu-bar-enable-clipboard () |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
462 "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
|
463 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
|
464 (interactive) |
6948
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
465 ;; We can't use constant list structure here because it becomes pure, |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
466 ;; and because it gets modified with cache data. |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
467 (define-key menu-bar-edit-menu [paste] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
468 (cons "Paste" (cons "Paste text from clipboard" 'clipboard-yank))) |
6948
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
469 (define-key menu-bar-edit-menu [copy] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
470 (cons "Copy" (cons "Copy text in region to the clipboard" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
471 'clipboard-kill-ring-save))) |
6948
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
472 (define-key menu-bar-edit-menu [cut] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
473 (cons "Cut" (cons "Delete text in region and copy it to the clipboard" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
474 'clipboard-kill-region))) |
6745
469d679ca338
(global-map): Bind function keys f16, f18 and f20,
Richard M. Stallman <rms@gnu.org>
parents:
6699
diff
changeset
|
475 |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
476 (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
|
477 (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
|
478 (define-key global-map [f18] 'clipboard-yank) |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
479 ;; X11R6 versions |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
480 (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
|
481 (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
|
482 (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
|
483 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
484 ;; 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
|
485 |
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
|
486 (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
|
487 |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
488 (define-key menu-bar-custom-menu [customize-apropos-groups] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
489 '(menu-item "Groups Matching Regexp..." customize-apropos-groups |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
490 :help "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
|
491 (define-key menu-bar-custom-menu [customize-apropos-faces] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
492 '(menu-item "Faces Matching Regexp..." customize-apropos-faces |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
493 :help "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
|
494 (define-key menu-bar-custom-menu [customize-apropos-options] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
495 '(menu-item "Options Matching Regexp..." customize-apropos-options |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
496 :help "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
|
497 (define-key menu-bar-custom-menu [customize-apropos] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
498 '(menu-item "Settings Matching Regexp..." customize-apropos |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
499 :help "Browse customizable settings 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
|
500 (define-key menu-bar-custom-menu [separator-2] |
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
501 '("--")) |
17615
32f90c43d1d2
(menu-bar-custom-menu):
Richard M. Stallman <rms@gnu.org>
parents:
17341
diff
changeset
|
502 (define-key menu-bar-custom-menu [customize-group] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
503 '(menu-item "Specific Group..." customize-group |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
504 :help "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
|
505 (define-key menu-bar-custom-menu [customize-face] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
506 '(menu-item "Specific Face..." customize-face |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
507 :help "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
|
508 (define-key menu-bar-custom-menu [customize-option] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
509 '(menu-item "Specific Option..." customize-option |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
510 :help "Change value of specific option")) |
21912
f485fe3e433e
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21302
diff
changeset
|
511 (define-key menu-bar-custom-menu [customize-changed-options] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
512 '(menu-item "Recently Changed Options..." customize-changed-options |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
513 :help "Customize options changed in recent versions")) |
18700
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
514 (define-key menu-bar-custom-menu [separator-3] |
cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Richard M. Stallman <rms@gnu.org>
parents:
18637
diff
changeset
|
515 '("--")) |
18602
9b34ca7eb8ef
Fix previous change.
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
18601
diff
changeset
|
516 (define-key menu-bar-custom-menu [customize-browse] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
517 '(menu-item "Browse Customization Groups" customize-browse |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
518 :help "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
|
519 (define-key menu-bar-custom-menu [customize] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
520 '(menu-item "Top-level Customization Group" customize |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
521 :help "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
|
522 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
523 ;(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
|
524 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
525 (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
|
526 `(progn |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
527 (defun ,name () |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
528 ,(concat "Toggle whether to " (downcase (substring help 0 1)) |
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
529 (substring help 1) ".") |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
530 (interactive) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
531 (if ,(if body `(progn . ,body) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
532 `(setq ,variable (not ,variable))) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
533 (message ,message "enabled") |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
534 (message ,message "disabled"))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
535 '(menu-item ,doc ,name |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
536 :help ,help |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
537 :button (:toggle . (and (boundp ',variable) ,variable))))) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
538 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
539 ;;; 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
|
540 (define-key menu-bar-options-menu [customize] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
541 (list 'menu-item "Customize Emacs" menu-bar-custom-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
542 :help "Full customization of every Emacs feature")) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
543 |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
544 (defun menu-bar-options-save () |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
545 "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
|
546 (interactive) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
547 (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
548 case-fold-search truncate-lines show-paren-mode |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
549 transient-mark-mode global-font-lock-mode |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
550 current-language-environment default-input-method)) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
551 (if (default-value elt) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
552 (customize-save-variable elt (default-value elt)))) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
553 (if (memq 'turn-on-auto-fill text-mode-hook) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
554 (customize-save-variable 'text-mode-hook |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
555 (default-value 'text-mode-hook))) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
556 (if (featurep 'saveplace) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
557 (customize-save-variable 'save-place (default-value 'save-place))) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
558 (if (featurep 'uniquify) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
559 (customize-save-variable 'uniquify-buffer-name-style |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
560 (default-value 'uniquify-buffer-name-style)))) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
561 |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
562 (define-key menu-bar-options-menu [save] |
29741
350b549354fc
(menu-bar-options-menu): Capitalize "Save Options".
Dave Love <fx@gnu.org>
parents:
29739
diff
changeset
|
563 '(menu-item "Save Options" menu-bar-options-save |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
564 :help "Save options set from the menu above")) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
565 |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
566 (define-key menu-bar-options-menu [custom-separator] |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
567 '("--")) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
568 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
569 (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
|
570 ;; 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
|
571 ;; 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
|
572 ;; if you need to recompile all the Lisp files using interpreted code. |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
573 (list 'menu-item "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
|
574 ;; 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
|
575 ;; e.g. language selection. |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
576 ;;; ':visible 'default-enable-multibyte-characters |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
577 ':help "Default language, encodings, input method")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
578 ;(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
|
579 ;(define-key menu-bar-options-menu [preferences] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
580 ; (list 'menu-item "Preferences" menu-bar-preferences-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
581 ; :help "Toggle important global options")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
582 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
583 (define-key menu-bar-options-menu [mule-separator] |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
584 '("--")) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
585 |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
586 (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
|
587 (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
|
588 "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
|
589 "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
|
590 (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
|
591 (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
|
592 "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
|
593 "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
|
594 (define-key menu-bar-options-menu [debugger-separator] |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
595 '("--")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
596 (define-key menu-bar-options-menu [toggle-auto-compression] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
597 '(menu-item "Automatic File De/compression" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
598 auto-compression-mode |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
599 :help "Transparently decompress compressed files" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
600 :button (:toggle . (rassq 'jka-compr-handler |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
601 file-name-handler-alist)))) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
602 (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
|
603 (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
|
604 "Save Place in Files between Sessions" |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
605 "Saving place in files %s" |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
606 "Save Emacs state for next session" |
21302
77a4a1ce8d26
(menu-bar-options-menu): Remove "Toggle" from item
Richard M. Stallman <rms@gnu.org>
parents:
20762
diff
changeset
|
607 (require 'saveplace) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
608 (setq-default save-place |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
609 (not (default-value save-place))))) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
610 (define-key menu-bar-options-menu [uniquify] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
611 (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
|
612 "Use Directory Names in Buffer Names" |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
613 "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
|
614 "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
|
615 (require 'uniquify) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
616 (setq uniquify-buffer-name-style |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
617 (if (not uniquify-buffer-name-style) |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
618 'forward)))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
619 (define-key menu-bar-options-menu [edit-options-separator] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
620 '("--")) |
22207
51847ba069f8
(toggle-case-fold-search): New command.
Richard M. Stallman <rms@gnu.org>
parents:
21912
diff
changeset
|
621 (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
|
622 (menu-bar-make-toggle toggle-case-fold-search case-fold-search |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
623 "Case-Insensitive Search" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
624 "Case-Insensitive Search %s" |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
625 "Ignore letter-case in search")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
626 (define-key menu-bar-options-menu [auto-fill-mode] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
627 '(menu-item "Word Wrap in Text Modes (Auto Fill)" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
628 toggle-text-mode-auto-fill |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
629 :help "Automatically fill text between left and right margins" |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
630 :button (:toggle . (member 'turn-on-auto-fill text-mode-hook)))) |
23532
a493aa84f62f
(menu-bar-options-menu): Add options for truncate-lines and show-paren.
Richard M. Stallman <rms@gnu.org>
parents:
23373
diff
changeset
|
631 (define-key menu-bar-options-menu [truncate-lines] |
a493aa84f62f
(menu-bar-options-menu): Add options for truncate-lines and show-paren.
Richard M. Stallman <rms@gnu.org>
parents:
23373
diff
changeset
|
632 (menu-bar-make-toggle |
a493aa84f62f
(menu-bar-options-menu): Add options for truncate-lines and show-paren.
Richard M. Stallman <rms@gnu.org>
parents:
23373
diff
changeset
|
633 toggle-truncate-lines truncate-lines |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
634 "Truncate Long Lines in this Buffer" "Long Line Truncation %s" |
38155
29c8619f91d0
(menu-bar-make-toggle): Construct the
Richard M. Stallman <rms@gnu.org>
parents:
38146
diff
changeset
|
635 "Truncate long lines on the screen" |
23532
a493aa84f62f
(menu-bar-options-menu): Add options for truncate-lines and show-paren.
Richard M. Stallman <rms@gnu.org>
parents:
23373
diff
changeset
|
636 (prog1 (setq truncate-lines (not truncate-lines)) |
a493aa84f62f
(menu-bar-options-menu): Add options for truncate-lines and show-paren.
Richard M. Stallman <rms@gnu.org>
parents:
23373
diff
changeset
|
637 (set-buffer-modified-p (buffer-modified-p))))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
638 (define-key menu-bar-options-menu [highlight-separator] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
639 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
640 (define-key menu-bar-options-menu [highlight-paren-mode] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
641 (menu-bar-make-toggle toggle-highlight-paren-mode show-paren-mode |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
642 "Paren Match Highlighting (Show Paren mode)" |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
643 "Show Paren mode %s" |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
644 "Highlight matching/mismatched parentheses at cursor" |
38609
0d6a4572c332
(toggle-highlight-paren-mode): Use `(show-paren-mode)' as body.
Andreas Schwab <schwab@suse.de>
parents:
38412
diff
changeset
|
645 (show-paren-mode))) |
19617
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
646 (define-key menu-bar-options-menu [transient-mark-mode] |
6337e9a0ed92
(menu-bar-make-toggle): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
18700
diff
changeset
|
647 (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
648 "Active Region Highlighting (Transient Mark mode)" |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
649 "Transient Mark mode %s" |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
650 "Make text in active region stand out in color")) |
19793
8c5aca90861b
(menu-bar-options-menu): Simplify global-font-lock-mode
Richard M. Stallman <rms@gnu.org>
parents:
19731
diff
changeset
|
651 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode] |
21302
77a4a1ce8d26
(menu-bar-options-menu): Remove "Toggle" from item
Richard M. Stallman <rms@gnu.org>
parents:
20762
diff
changeset
|
652 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode global-font-lock-mode |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
653 "Syntax Highlighting (Global Font Lock mode)" |
39017
570ea64b9919
(menu-bar-options-menu): Make option text, messages
Gerd Moellmann <gerd@gnu.org>
parents:
38609
diff
changeset
|
654 "Global Font Lock mode %s" |
39393
994606d2160a
Minor fixes for text of help-echo in some options.
Eli Zaretskii <eliz@gnu.org>
parents:
39108
diff
changeset
|
655 "Colorize text based on language syntax" |
31461
c613942bdf43
(menu-bar-options-menu): Fix the font-lock toggle.
Dave Love <fx@gnu.org>
parents:
31443
diff
changeset
|
656 (global-font-lock-mode))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
657 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
658 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
659 ;; The "Tools" menu items |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
660 |
32329
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
661 (defun send-mail-item-name () |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
662 (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
|
663 (mh-e-user-agent . "MH") |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
664 (message-user-agent . "Gnus Message") |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
665 (gnus-user-agent . "Gnus"))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
666 (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
|
667 (if name |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
668 (setq name (cdr name)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
669 (setq name (symbol-name mail-user-agent)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
670 (if (string-match "\\(.+\\)-user-agent" name) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
671 (setq name (match-string 1 name)))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
672 name)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
673 |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
674 (defun read-mail-item-name () |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
675 (let* ((known-rmail-commands '((rmail . "RMAIL") |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
676 (mh-rmail . "MH") |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
677 (gnus . "Gnus"))) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
678 (known (assq read-mail-command known-rmail-commands))) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
679 (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
|
680 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
681 (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
|
682 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
683 (define-key menu-bar-tools-menu [games] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
684 (list 'menu-item "Games" menu-bar-games-menu)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
685 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
686 (define-key menu-bar-tools-menu [separator-games] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
687 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
688 |
30586
9b8feaf1cd2f
(menu-bar-games-menu): Add Zone.
Eli Zaretskii <eliz@gnu.org>
parents:
30387
diff
changeset
|
689 (define-key menu-bar-games-menu [zone] |
9b8feaf1cd2f
(menu-bar-games-menu): Add Zone.
Eli Zaretskii <eliz@gnu.org>
parents:
30387
diff
changeset
|
690 '(menu-item "Zone Out" zone |
9b8feaf1cd2f
(menu-bar-games-menu): Add Zone.
Eli Zaretskii <eliz@gnu.org>
parents:
30387
diff
changeset
|
691 :help "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
|
692 (define-key menu-bar-games-menu [yow] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
693 '(menu-item "Random Quotation" yow |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
694 :help "Display a random Zippy quotation")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
695 (define-key menu-bar-games-menu [tetris] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
696 '(menu-item "Tetris" tetris)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
697 (define-key menu-bar-games-menu [solitaire] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
698 '(menu-item "Solitaire" solitaire)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
699 (define-key menu-bar-games-menu [snake] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
700 '(menu-item "Snake" snake |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
701 :help "Move snake around avoiding collisions")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
702 (define-key menu-bar-games-menu [mult] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
703 '(menu-item "Multiplication Puzzle" mpuz |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
704 :help "Excercise brain with multiplication")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
705 (define-key menu-bar-games-menu [life] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
706 '(menu-item "Life" life |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
707 :help "Watch how John Conway's cellular automaton evolves")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
708 (define-key menu-bar-games-menu [hanoi] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
709 '(menu-item "Towers of Hanoi" hanoi |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
710 :help "Watch Towers-of-Hanoi puzzle solved by Emacs")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
711 (define-key menu-bar-games-menu [gomoku] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
712 '(menu-item "Gomoku" gomoku |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
713 :help "Mark 5 contiguous squares (like tic-tac-toe)")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
714 (define-key menu-bar-games-menu [black-box] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
715 '(menu-item "Blackbox" blackbox |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
716 :help "Find balls in a black box by shooting rays")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
717 (define-key menu-bar-games-menu [adventure] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
718 '(menu-item "Adventure" dunnet |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
719 :help "Dunnet, a text Adventure game for Emacs")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
720 (define-key menu-bar-games-menu [5x5] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
721 '(menu-item "5x5" 5x5 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
722 :help "Fill in all the squares on a 5x5 board")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
723 |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
724 (define-key menu-bar-tools-menu [calendar] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
725 '(menu-item "Display Calendar" calendar)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
726 (define-key menu-bar-tools-menu [speedbar] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
727 '(menu-item "Display Speedbar" speedbar-frame-mode)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
728 (define-key menu-bar-tools-menu [directory-search] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
729 '(menu-item "Directory Search" eudc-tools-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
730 :help "Query directory servers via LDAP, CCSO PH/QI or BBDB")) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
731 (define-key menu-bar-tools-menu [compose-mail] |
32329
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
732 (list |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
733 'menu-item `(format "Send Mail (with %s)" (send-mail-item-name)) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
734 'compose-mail |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
735 :visible `(and mail-user-agent (not (eq mail-user-agent 'ignore))) |
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
736 :help "Send a mail message")) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
737 (define-key menu-bar-tools-menu [rmail] |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
738 (list |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
739 'menu-item `(format "Read Mail (with %s)" (read-mail-item-name)) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
740 (lambda () |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
741 (interactive) |
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
742 (call-interactively read-mail-command)) |
32329
878aee6eaf4b
(send-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31645
diff
changeset
|
743 :visible `(and read-mail-command (not (eq read-mail-command 'ignore))) |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
744 :help "Read your mail and reply to it")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
745 (define-key menu-bar-tools-menu [gnus] |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
746 '(menu-item "Read Net News (Gnus)" gnus |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
747 :help "Read network news groups")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
748 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
749 (define-key menu-bar-tools-menu [separator-vc] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
750 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
751 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
752 (defvar vc-menu-map (make-sparse-keymap "Version Control")) |
28258
03e06f15f3d4
Add an entry for PCL-CVS' global menu.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27773
diff
changeset
|
753 (define-key menu-bar-tools-menu [pcl-cvs] |
03e06f15f3d4
Add an entry for PCL-CVS' global menu.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27773
diff
changeset
|
754 `(menu-item "PCL-CVS" ,cvs-global-menu |
03e06f15f3d4
Add an entry for PCL-CVS' global menu.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27773
diff
changeset
|
755 :help "Module-level interface to CVS")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
756 (define-key menu-bar-tools-menu [vc] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
757 (list 'menu-item "Version Control" vc-menu-map |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
758 :help "Interface to RCS, CVS, SCCS")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
759 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
760 (define-key menu-bar-tools-menu [separator-compare] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
761 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
762 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
763 (define-key menu-bar-tools-menu [ediff-misc] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
764 '(menu-item "Ediff Miscellanea" menu-bar-ediff-misc-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
765 :help "Ediff manual, customization, sessions, etc.")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
766 (define-key menu-bar-tools-menu [epatch] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
767 '(menu-item "Apply Patch" menu-bar-epatch-menu)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
768 (define-key menu-bar-tools-menu [ediff-merge] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
769 '(menu-item "Merge" menu-bar-ediff-merge-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
770 :help "Merge different revisions of files/directories")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
771 (define-key menu-bar-tools-menu [compare] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
772 '(menu-item "Compare (Ediff)" menu-bar-ediff-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
773 :help "Display differences between files/directories")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
774 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
775 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
776 (define-key menu-bar-tools-menu [separator-spell] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
777 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
778 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
779 (define-key menu-bar-tools-menu [spell] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
780 '(menu-item "Spell Checking" ispell-menu-map)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
781 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
782 (define-key menu-bar-tools-menu [separator-prog] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
783 '("--")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
784 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
785 (define-key menu-bar-tools-menu [gdb] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
786 '(menu-item "Debugger (GUD)..." gdb |
31471
84f6fc78ec6d
(read-mail-item-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
31461
diff
changeset
|
787 :help "Debug a program from within Emacs")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
788 (define-key menu-bar-tools-menu [shell-on-region] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
789 '(menu-item "Shell Command on Region..." shell-command-on-region |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
790 :enable mark-active |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
791 :help "Pass marked region to a shell command")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
792 (define-key menu-bar-tools-menu [shell] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
793 '(menu-item "Shell Command..." shell-command |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
794 :help "Invoke a shell command and catch its output")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
795 (define-key menu-bar-tools-menu [compile] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
796 '(menu-item "Compile..." compile |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
797 :help "Invoke compiler or Make, view compilation errors")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
798 (define-key menu-bar-tools-menu [grep] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
799 '(menu-item "Search Files (Grep)..." grep |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
800 :help "Search files for strings or regexps (with Grep)")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
801 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
802 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
803 ;; The "Help" menu items |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
804 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
805 (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
|
806 |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
807 (define-key menu-bar-describe-menu [mule-diag] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
808 '(menu-item "Show All of Mule Status" mule-diag |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
809 :visible default-enable-multibyte-characters |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
810 :help "Display multilingual environment settings")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
811 (define-key menu-bar-describe-menu [describe-coding-system] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
812 '(menu-item "Describe Coding System..." describe-coding-system |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
813 :visible default-enable-multibyte-characters)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
814 (define-key menu-bar-describe-menu [describe-input-method] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
815 '(menu-item "Describe Input Method..." describe-input-method |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
816 :visible default-enable-multibyte-characters |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
817 :help "Keyboard layout for specific input method")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
818 (define-key menu-bar-describe-menu [describe-language-environment] |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
819 (list 'menu-item "Describe Language Environment" |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
820 describe-language-environment-map |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
821 :help "Show multilingual settings for a specific language")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
822 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
823 (define-key menu-bar-describe-menu [separator-desc-mule] |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
824 '("--")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
825 |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
826 (define-key menu-bar-describe-menu [list-keybindings] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
827 '(menu-item "List Key Bindings" describe-bindings |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
828 :help "Display a list of all current keybindings")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
829 (define-key menu-bar-describe-menu [list-keybindings] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
830 '(menu-item "List Key Bindings" describe-bindings |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
831 :help "Display a list of all current keybindings")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
832 (define-key menu-bar-describe-menu [describe-variable] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
833 '(menu-item "Describe Variable..." describe-variable |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
834 :help "Display documentation of variable/option")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
835 (define-key menu-bar-describe-menu [describe-function] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
836 '(menu-item "Describe Function..." describe-function |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
837 :help "Display documentation of function/command")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
838 (define-key menu-bar-describe-menu [describe-key] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
839 '(menu-item "Describe Key..." describe-key |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
840 ;; Users typically don't identify keys and menu items... |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
841 :help "Display documentation of command bound to a \ |
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
842 key (or menu-item)")) |
20342
3739e4f90a55
Fixed duplicate KEYs in menu-bar-describe-menu.
Simon Marshall <simon@gnu.org>
parents:
20336
diff
changeset
|
843 (define-key menu-bar-describe-menu [apropos-variables] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
844 '(menu-item "Apropos Variables..." apropos-variable |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
845 :help "List variables whose names match a regexp")) |
20342
3739e4f90a55
Fixed duplicate KEYs in menu-bar-describe-menu.
Simon Marshall <simon@gnu.org>
parents:
20336
diff
changeset
|
846 (define-key menu-bar-describe-menu [apropos-commands] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
847 '(menu-item "Apropos Commands..." apropos-command |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
848 :help "List commands whose names match a regexp")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
849 (define-key menu-bar-describe-menu [describe-mode] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
850 '(menu-item "Describe Buffer Modes" describe-mode |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
851 :help "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
|
852 |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
853 (defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
854 |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
855 (define-key menu-bar-manuals-menu [man] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
856 '(menu-item "Read Man Page..." manual-entry |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
857 :help "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
|
858 (define-key menu-bar-manuals-menu [sep2] |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
859 '("--")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
860 (define-key menu-bar-manuals-menu [info] |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
861 '(menu-item "Browse Manuals with Info" Info-directory |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
862 :help "Read any of the installed manuals")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
863 (define-key menu-bar-manuals-menu [command] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
864 '(menu-item "Find Command in Manual" Info-goto-emacs-command-node |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
865 :help "Display manual section that describes a command")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
866 (define-key menu-bar-manuals-menu [key] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
867 '(menu-item "Find Key in Manual" Info-goto-emacs-key-command-node |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
868 :help "Display manual section that describes a key")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
869 |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
870 (define-key menu-bar-help-menu [eliza] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
871 '(menu-item "Emacs Psychiatrist" doctor |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
872 :help "Our doctor will help you feel better")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
873 (define-key menu-bar-help-menu [sep3] |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
874 '("--")) |
20762
ec3a35db5352
(menu-bar-file-menu): Add Recover Session menu item.
Richard M. Stallman <rms@gnu.org>
parents:
20647
diff
changeset
|
875 (define-key menu-bar-help-menu [describe-no-warranty] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
876 '(menu-item "(Non)Warranty" describe-no-warranty |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
877 :help "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
|
878 (define-key menu-bar-help-menu [describe-copying] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
879 '(menu-item "Copying Conditions" describe-copying |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
880 :help "Show the Emacs license (GPL)")) |
20762
ec3a35db5352
(menu-bar-file-menu): Add Recover Session menu item.
Richard M. Stallman <rms@gnu.org>
parents:
20647
diff
changeset
|
881 (define-key menu-bar-help-menu [describe-distribution] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
882 '(menu-item "Getting New Versions" describe-distribution |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
883 :help "How to get latest versions of Emacs")) |
32932
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
884 (define-key menu-bar-help-menu [more] |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
885 '(menu-item "Find Extra Packages" |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
886 (lambda () |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
887 (interactive) |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
888 (let (enable-local-variables) |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
889 (view-file (expand-file-name "MORE.STUFF" |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
890 data-directory)) |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
891 (goto-address))) |
dcf315209a36
Modify some menu item help strings.
Dave Love <fx@gnu.org>
parents:
32876
diff
changeset
|
892 :help "Where to find some extra packages and possible updates")) |
7153
4e0683b070f8
(menu-bar-help-menu): Add item for emacs-version.
Richard M. Stallman <rms@gnu.org>
parents:
7150
diff
changeset
|
893 (define-key menu-bar-help-menu [emacs-version] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
894 '(menu-item "Show Emacs Version" emacs-version)) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
895 (define-key menu-bar-help-menu [sep2] |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
896 '("--")) |
12558
98c9ac60aa20
(menu-bar-help-menu): Add finder-by-keyword.
Karl Heuer <kwzh@gnu.org>
parents:
12434
diff
changeset
|
897 (define-key menu-bar-help-menu [finder-by-keyword] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
898 '(menu-item "Find Emacs Packages..." finder-by-keyword |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
899 :help "Find packages and features by keyword")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
900 (define-key menu-bar-help-menu [describe] |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
901 (list 'menu-item "Describe" menu-bar-describe-menu |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
902 :help "Describe commands, variables, keys")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
903 (define-key menu-bar-help-menu [manuals] |
30757
4425db5d79e5
(menu-bar-help-menu): Add a :help string.
Eli Zaretskii <eliz@gnu.org>
parents:
30586
diff
changeset
|
904 (list 'menu-item "Manuals" menu-bar-manuals-menu |
4425db5d79e5
(menu-bar-help-menu): Add a :help string.
Eli Zaretskii <eliz@gnu.org>
parents:
30586
diff
changeset
|
905 :help "Lookup commands and keys in docs, read manuals")) |
20336
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
906 (define-key menu-bar-help-menu [sep1] |
6c26b3f61e02
(menu-bar-help-menu): Reorganize into more submenus.
Richard M. Stallman <rms@gnu.org>
parents:
19793
diff
changeset
|
907 '("--")) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
908 (define-key menu-bar-help-menu [report-emacs-bug] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
909 '(menu-item "Send Bug Report..." report-emacs-bug |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
910 :help "Send e-mail to Emacs maintainers")) |
36276
96ecc8142696
(menu-bar-help-menu): Add an item for ordering
Gerd Moellmann <gerd@gnu.org>
parents:
36230
diff
changeset
|
911 (define-key menu-bar-help-menu [order-emacs-manuals] |
96ecc8142696
(menu-bar-help-menu): Add an item for ordering
Gerd Moellmann <gerd@gnu.org>
parents:
36230
diff
changeset
|
912 '(menu-item "Ordering Manuals" view-order-manuals |
96ecc8142696
(menu-bar-help-menu): Add an item for ordering
Gerd Moellmann <gerd@gnu.org>
parents:
36230
diff
changeset
|
913 :help "How to order manuals from the Free Software Foundation")) |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
914 (define-key menu-bar-help-menu [emacs-manual] |
31461
c613942bdf43
(menu-bar-options-menu): Fix the font-lock toggle.
Dave Love <fx@gnu.org>
parents:
31443
diff
changeset
|
915 '(menu-item "Read the Emacs Manual" |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
916 (lambda () (interactive) (info "emacs")))) |
27730
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
917 (define-key menu-bar-help-menu [emacs-problems] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
918 '(menu-item "Emacs Known Problems" view-emacs-problems)) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
919 (define-key menu-bar-help-menu [emacs-news] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
920 '(menu-item "Emacs News" view-emacs-news |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
921 :help "New features of this version")) |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
922 (define-key menu-bar-help-menu [emacs-faq] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
923 '(menu-item "Emacs FAQ" view-emacs-FAQ)) |
29685
90ecedc87917
(menu-bar-help-menu): Add menu item for non-English
Gerd Moellmann <gerd@gnu.org>
parents:
29586
diff
changeset
|
924 (define-key menu-bar-help-menu [emacs-tutorial-language-specific] |
90ecedc87917
(menu-bar-help-menu): Add menu item for non-English
Gerd Moellmann <gerd@gnu.org>
parents:
29586
diff
changeset
|
925 '(menu-item "Emacs Tutorial (choose language)..." |
90ecedc87917
(menu-bar-help-menu): Add menu item for non-English
Gerd Moellmann <gerd@gnu.org>
parents:
29586
diff
changeset
|
926 (lambda () (interactive) (help-with-tutorial t)) |
90ecedc87917
(menu-bar-help-menu): Add menu item for non-English
Gerd Moellmann <gerd@gnu.org>
parents:
29586
diff
changeset
|
927 :help "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
|
928 (define-key menu-bar-help-menu [emacs-tutorial] |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
929 '(menu-item "Emacs Tutorial" help-with-tutorial |
06431476ce02
(global-map): Menu-bar items converted to the new
Eli Zaretskii <eliz@gnu.org>
parents:
27325
diff
changeset
|
930 :help "Learn how to use Emacs")) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
931 |
2175 | 932 (defun kill-this-buffer () ; for the menubar |
28557
6f1d9b65d1f8
(menu-bar-options-menu): Make `mule' always visible.
Dave Love <fx@gnu.org>
parents:
28258
diff
changeset
|
933 "Kill the current buffer." |
2175 | 934 (interactive) |
935 (kill-buffer (current-buffer))) | |
936 | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
937 (defun kill-this-buffer-enabled-p () |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
938 (let ((count 0) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
939 (buffers (buffer-list))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
940 (while buffers |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
941 (or (string-match "^ " (buffer-name (car buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
942 (setq count (1+ count))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
943 (setq buffers (cdr buffers))) |
16619
4f8448158c10
In enable predicates in Files menu, use menu-updating-frame.
Richard M. Stallman <rms@gnu.org>
parents:
15996
diff
changeset
|
944 (and (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
945 (> count 1)))) |
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
946 |
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
947 (put 'dired 'menu-enable |
16619
4f8448158c10
In enable predicates in Files menu, use menu-updating-frame.
Richard M. Stallman <rms@gnu.org>
parents:
15996
diff
changeset
|
948 '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) |
11525
3bd7735bba9b
Disable many Files menu items in minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
11325
diff
changeset
|
949 |
4337
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
950 ;; 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
|
951 (defun delete-frame-enabled-p () |
937c7fced6ee
(delete-frame-enabled-p): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
11753
diff
changeset
|
952 "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
|
953 (let ((frames (frame-list)) |
15471 | 954 (count 0)) |
955 (while frames | |
956 (if (frame-visible-p (car frames)) | |
957 (setq count (1+ count))) | |
958 (setq frames (cdr frames))) | |
959 (> count 1))) | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
960 |
17665 | 961 (defcustom yank-menu-length 20 |
962 "*Maximum length to display in the yank-menu." | |
963 :type 'integer | |
964 :group 'mouse) | |
3795
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
965 |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
966 (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
|
967 (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
|
968 (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
|
969 string |
10590
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
970 (concat |
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
971 (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
|
972 "..." |
9f68d8d6357b
(menu-bar-update-yank-menu): If string is too long,
Richard M. Stallman <rms@gnu.org>
parents:
9667
diff
changeset
|
973 (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
|
974 ;; 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
|
975 ;; 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
|
976 (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
|
977 (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
|
978 ;; 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
|
979 ;; 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
|
980 (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
|
981 (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
|
982 (progn |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
983 (setcar front string) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
984 (setcar (cdr front) menu-string)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
985 (setcdr yank-menu |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
986 (cons |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
987 (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
|
988 (cdr yank-menu))))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
989 (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
|
990 (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
|
991 |
20481
77ed0446c90a
(menu-bar-select-yank): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
20342
diff
changeset
|
992 (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
|
993 (defun menu-bar-select-yank () |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
994 (interactive "*") |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
995 (push-mark (point)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
996 (insert last-command-event)) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
997 |
4628
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
998 (defvar list-buffers-directory nil) |
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
999 |
9667
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1000 (defvar menu-bar-update-buffers-maxbuf) |
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1001 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1002 (defun menu-bar-select-buffer () |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1003 (interactive) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1004 (switch-to-buffer last-command-event)) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1005 |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1006 (defun menu-bar-select-frame () |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1007 (interactive) |
36072
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1008 (let (frame) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1009 (dolist (f (frame-list)) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1010 (when (equal last-command-event (frame-parameter f 'name)) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1011 (setq frame f))) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1012 (make-frame-visible frame) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1013 (raise-frame frame) |
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1014 (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
|
1015 |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1016 (defun menu-bar-update-buffers-1 (elt) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1017 (cons (format |
9667
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1018 (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf) |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1019 (cdr elt) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1020 (if (buffer-modified-p (car elt)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1021 "*" " ") |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1022 (save-excursion |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1023 (set-buffer (car elt)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1024 (if buffer-read-only "%" " ")) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1025 (let ((file |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1026 (or (buffer-file-name (car elt)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1027 (save-excursion |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1028 (set-buffer (car elt)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1029 list-buffers-directory) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1030 ""))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1031 (setq file (or (file-name-directory file) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1032 "")) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1033 (if (> (length file) 20) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1034 (setq file (concat "..." (substring file -17)))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1035 file)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1036 (car elt))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1037 |
11325
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1038 (defvar menu-bar-buffers-menu-list-buffers-entry nil) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1039 |
36230
56577cf3e384
(menu-bar-update-buffers): Add optional parameter
Gerd Moellmann <gerd@gnu.org>
parents:
36072
diff
changeset
|
1040 (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
|
1041 ;; 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
|
1042 (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
|
1043 (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
|
1044 (let ((buffers (buffer-list)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1045 (frames (frame-list)) |
15996
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1046 (maxlen 0) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1047 buffers-menu frames-menu) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1048 ;; 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
|
1049 (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
|
1050 (> 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
|
1051 (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
|
1052 (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
|
1053 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1054 ;; 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
|
1055 (setq buffers-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1056 (cons "Select Buffer" |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1057 (let* ((buffer-list |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1058 (mapcar 'list buffers)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1059 tail |
9667
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1060 (menu-bar-update-buffers-maxbuf 0) |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1061 alist |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1062 head) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1063 ;; Put into each element of buffer-list |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1064 ;; the name for actual display, |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1065 ;; perhaps truncated in the middle. |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1066 (setq tail buffer-list) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1067 (while tail |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1068 (let ((name (buffer-name (car (car tail))))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1069 (setcdr (car tail) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1070 (if (> (length name) 27) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1071 (concat (substring name 0 12) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1072 "..." |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1073 (substring name -12)) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1074 name))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1075 (setq tail (cdr tail))) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1076 ;; Compute the maximum length of any name. |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1077 (setq tail buffer-list) |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1078 (while tail |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1079 (or (eq ?\ (aref (cdr (car tail)) 0)) |
9667
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1080 (setq menu-bar-update-buffers-maxbuf |
49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
Richard M. Stallman <rms@gnu.org>
parents:
9518
diff
changeset
|
1081 (max menu-bar-update-buffers-maxbuf |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1082 (length (cdr (car tail)))))) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1083 (setq tail (cdr tail))) |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1084 ;; Set ALIST to an alist of the form |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1085 ;; ITEM-STRING . BUFFER |
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1086 (setq tail buffer-list) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1087 (while tail |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1088 (let ((elt (car tail))) |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1089 (or (eq ?\ (aref (cdr elt) 0)) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1090 (setq alist (cons |
9518
69072971d37e
(menu-bar-update-buffers-1): New subroutine
Richard M. Stallman <rms@gnu.org>
parents:
9422
diff
changeset
|
1091 (menu-bar-update-buffers-1 elt) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1092 alist))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1093 (and alist (> (length (car (car alist))) maxlen) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1094 (setq maxlen (length (car (car alist)))))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1095 (setq tail (cdr tail))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1096 (setq alist (nreverse alist)) |
11325
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1097 ;; Make the menu item for list-buffers |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1098 ;; or reuse the one we already have. |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1099 ;; The advantage in reusing one |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1100 ;; is that it already has the keyboard equivalent |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1101 ;; cached, so we save the time to look that up again. |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1102 (or menu-bar-buffers-menu-list-buffers-entry |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1103 (setq menu-bar-buffers-menu-list-buffers-entry |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1104 (cons |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1105 'list-buffers |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1106 (cons |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1107 "" |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1108 'list-buffers)))) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1109 ;; Update the item string for menu's new width. |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1110 (setcar (cdr menu-bar-buffers-menu-list-buffers-entry) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1111 (concat (make-string (max (- (/ maxlen 2) 8) 0) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1112 ?\ ) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1113 "List All Buffers")) |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1114 ;; Now make the actual list of items, |
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1115 ;; ending with the list-buffers item. |
29586
7968411f22fa
(menu-bar-update-buffers, menu-bar-update-buffers): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28557
diff
changeset
|
1116 (nconc (mapcar (lambda (pair) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1117 ;; This is somewhat risque, to use |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1118 ;; the buffer name itself as the event |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1119 ;; type to define, but it works. |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1120 ;; It would not work to use the buffer |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1121 ;; since a buffer as an event has its |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1122 ;; own meaning. |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1123 (nconc (list (buffer-name (cdr pair)) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1124 (car pair) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1125 (cons nil nil)) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1126 'menu-bar-select-buffer)) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1127 alist) |
11325
032239e758c4
(menu-bar-update-buffers): Reuse the entry for
Richard M. Stallman <rms@gnu.org>
parents:
11309
diff
changeset
|
1128 (list menu-bar-buffers-menu-list-buffers-entry))))) |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1129 |
7239
385ac6718f28
(menu-bar-update-buffers): Fix misspelled variable.
Karl Heuer <kwzh@gnu.org>
parents:
7234
diff
changeset
|
1130 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1131 ;; Make a Frames menu if we have more than one frame. |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1132 (if (cdr frames) |
15996
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1133 (let ((name (concat (make-string (max (- (/ maxlen 2) 3) 0) |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1134 ?\ ) |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1135 "Frames")) |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1136 (frames-menu |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1137 (cons 'keymap |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1138 (cons "Select Frame" |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1139 (mapcar |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1140 (lambda (frame) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1141 (nconc |
36072
a692c3e3a379
(menu-bar-select-frame): Adjust for
Dave Love <fx@gnu.org>
parents:
35684
diff
changeset
|
1142 (list (frame-parameter frame 'name) |
31443
16a6f51eb602
(menu-bar-update-buffers): Call frame-parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30757
diff
changeset
|
1143 (frame-parameter frame 'name) |
29739
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1144 (cons nil nil)) |
96e0d508f234
(menu-bar-options-save): New function.
Dave Love <fx@gnu.org>
parents:
29685
diff
changeset
|
1145 'menu-bar-select-frame)) |
15996
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1146 frames))))) |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1147 ;; Put it underneath the Buffers menu. |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1148 (setq buffers-menu (cons (cons 'frames (cons name frames-menu)) |
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1149 buffers-menu)))) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1150 (if buffers-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
1151 (setq buffers-menu (cons 'keymap buffers-menu))) |
8347
0fff2106fa43
(menu-bar-update-buffers): Use (current-global-map), not global-map.
Richard M. Stallman <rms@gnu.org>
parents:
8320
diff
changeset
|
1152 (define-key (current-global-map) [menu-bar buffer] |
15996
0704ccc73df8
(menu-bar-update-buffers): Make the Frames menu a submenu of the Buffers menu.
Richard M. Stallman <rms@gnu.org>
parents:
15471
diff
changeset
|
1153 (cons "Buffers" buffers-menu))))) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1154 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
1155 (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
|
1156 |
12633
c05399b944ab
(menu-bar-buffer-menu): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
12610
diff
changeset
|
1157 (menu-bar-update-buffers) |
c05399b944ab
(menu-bar-buffer-menu): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
12610
diff
changeset
|
1158 |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1159 ;; this version is too slow |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1160 ;;;(defun format-buffers-menu-line (buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1161 ;;; "Returns a string to represent the given buffer in the Buffer menu. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1162 ;;;nil means the buffer shouldn't be listed. You can redefine this." |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1163 ;;; (if (string-match "\\` " (buffer-name buffer)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1164 ;;; nil |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1165 ;;; (save-excursion |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1166 ;;; (set-buffer buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1167 ;;; (let ((size (buffer-size))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1168 ;;; (format "%s%s %-19s %6s %-15s %s" |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1169 ;;; (if (buffer-modified-p) "*" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1170 ;;; (if buffer-read-only "%" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1171 ;;; (buffer-name) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1172 ;;; size |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1173 ;;; mode-name |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1174 ;;; (or (buffer-file-name) "")))))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
1175 |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
1176 ;;; 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
|
1177 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1178 (dolist (map (list minibuffer-local-map |
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1179 ;; 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
|
1180 ;; 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
|
1181 minibuffer-local-completion-map)) |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1182 (define-key map [menu-bar minibuf] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1183 (cons "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
|
1184 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1185 (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
|
1186 (define-key map [menu-bar minibuf ?\?] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1187 (list 'menu-item "List Completions" 'minibuffer-completion-help |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1188 :help "Display all possible completions")) |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1189 (define-key map [menu-bar minibuf space] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1190 (list 'menu-item "Complete Word" 'minibuffer-complete-word |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1191 :help "Complete at most one word")) |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1192 (define-key map [menu-bar minibuf tab] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1193 (list 'menu-item "Complete" 'minibuffer-complete |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1194 :help "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
|
1195 |
39844
0433563f559d
(minibuffer-local-*map): Take inheritance into account.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39393
diff
changeset
|
1196 (let ((map minibuffer-local-map)) |
33191
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1197 (define-key map [menu-bar minibuf quit] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1198 (list 'menu-item "Quit" 'keyboard-escape-quit |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1199 :help "Abort input and exit minibuffer")) |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1200 (define-key map [menu-bar minibuf return] |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1201 (list 'menu-item "Enter" 'exit-minibuffer |
ca52130472e7
(minibuffer maps): Use dolist rather than mapcar.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32932
diff
changeset
|
1202 :help "Terminate input and exit minibuffer"))) |
12427
04bcad1807b9
Make more menu-enables check (not buffer-read-only).
Richard M. Stallman <rms@gnu.org>
parents:
12199
diff
changeset
|
1203 |
26614 | 1204 (defcustom menu-bar-mode nil |
1205 "Toggle display of a menu bar on each frame. | |
1206 Setting this variable directly does not take effect; | |
1207 use either \\[customize] or the function `menu-bar-mode'." | |
1208 :set (lambda (symbol value) | |
1209 (menu-bar-mode (or value 0))) | |
1210 :initialize 'custom-initialize-default | |
1211 :type 'boolean | |
1212 :group 'frames) | |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1213 |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
1214 (defun menu-bar-mode (flag) |
3007
e41b3dc686bb
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2847
diff
changeset
|
1215 "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
|
1216 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
|
1217 created in the future. |
22665
c6d48e73123e
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22655
diff
changeset
|
1218 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
|
1219 turn on menu bars; otherwise, turn off menu bars." |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
1220 (interactive "P") |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
1221 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1222 ;; Make menu-bar-mode and default-frame-alist consistent. |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1223 (let ((default (assq 'menu-bar-lines default-frame-alist))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1224 (if default |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1225 (setq menu-bar-mode (not (eq (cdr default) 0))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1226 (setq default-frame-alist |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1227 (cons (cons 'menu-bar-lines (if menu-bar-mode 1 0)) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1228 default-frame-alist)))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
1229 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1230 ;; Toggle or set the mode, according to FLAG. |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1231 (setq menu-bar-mode (if (null flag) (not menu-bar-mode) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1232 (> (prefix-numeric-value flag) 0))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
1233 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1234 ;; Apply it to default-frame-alist. |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1235 (let ((parameter (assq 'menu-bar-lines default-frame-alist))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1236 (if (consp parameter) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1237 (setcdr parameter (if menu-bar-mode 1 0)) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1238 (setq default-frame-alist |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1239 (cons (cons 'menu-bar-lines (if menu-bar-mode 1 0)) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1240 default-frame-alist)))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
1241 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1242 ;; Apply it to existing frames. |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1243 (let ((frames (frame-list))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1244 (while frames |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1245 (let ((height (cdr (assq 'height (frame-parameters (car frames)))))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1246 (modify-frame-parameters (car frames) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1247 (list (cons 'menu-bar-lines |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1248 (if menu-bar-mode 1 0)))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1249 (modify-frame-parameters (car frames) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1250 (list (cons 'height height)))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
1251 (setq frames (cdr frames))))) |
2485 | 1252 |
2765 | 1253 (provide 'menu-bar) |
1254 | |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
1255 ;;; menu-bar.el ends here |