Mercurial > emacs
annotate lisp/menu-bar.el @ 9314:2c681685646b
(Fend_kbd_macro, Fexecute_kbd_macro): Don't use XFASTINT as an lvalue.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 04 Oct 1994 16:06:40 +0000 |
parents | c8e2c62cf851 |
children | 28c6c3d7efb4 |
rev | line source |
---|---|
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
1 ;;; menu-bar.el --- define a default menu bar. |
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
2 |
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
3 ;; Author: RMS |
5140 | 4 ;; Keywords: internal |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
5 |
5473
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
6 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
2485 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
24 ;;; Code: |
2485 | 25 |
4668
12289fa93455
Don't clobber existing binding for menu-bar in global-map.
Roland McGrath <roland@gnu.org>
parents:
4628
diff
changeset
|
26 ;; 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
|
27 ;; 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
|
28 (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
|
29 (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
|
30 (defvar menu-bar-help-menu (make-sparse-keymap "Help")) |
4114
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
31 ;; Put Help item last. |
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
32 (setq menu-bar-final-items '(help)) |
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
33 (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) |
3504
5fb4eefbd7ac
(menu-bar-help-menu): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3500
diff
changeset
|
34 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
35 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) |
3504
5fb4eefbd7ac
(menu-bar-help-menu): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3500
diff
changeset
|
36 (defvar menu-bar-file-menu (make-sparse-keymap "File")) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
37 (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
38 |
8977
c8e2c62cf851
(vc-menu-map): New menu.
Richard M. Stallman <rms@gnu.org>
parents:
8809
diff
changeset
|
39 (defvar vc-menu-map (make-sparse-keymap "Version Control")) |
c8e2c62cf851
(vc-menu-map): New menu.
Richard M. Stallman <rms@gnu.org>
parents:
8809
diff
changeset
|
40 |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
41 (define-key menu-bar-file-menu [exit-emacs] |
2175 | 42 '("Exit Emacs" . save-buffers-kill-emacs)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
43 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
44 (define-key menu-bar-file-menu [separator-compare] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
45 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
46 |
7420
6207bb464d7b
(menu-bar-file-menu): Add Apply Patch and Compare Files
Richard M. Stallman <rms@gnu.org>
parents:
7367
diff
changeset
|
47 (define-key menu-bar-file-menu [epatch] |
6207bb464d7b
(menu-bar-file-menu): Add Apply Patch and Compare Files
Richard M. Stallman <rms@gnu.org>
parents:
7367
diff
changeset
|
48 '("Apply Patch" . menu-bar-epatch-menu)) |
6207bb464d7b
(menu-bar-file-menu): Add Apply Patch and Compare Files
Richard M. Stallman <rms@gnu.org>
parents:
7367
diff
changeset
|
49 (define-key menu-bar-file-menu [ediff] |
8525
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
50 '("Compare" . menu-bar-ediff-menu)) |
6279
8ee9dcd3771e
Delete the `>' from various menu item strings.
Richard M. Stallman <rms@gnu.org>
parents:
6100
diff
changeset
|
51 (define-key menu-bar-file-menu [emerge] '("Emerge" . menu-bar-emerge-menu)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
52 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
53 (define-key menu-bar-file-menu [separator-misc] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
54 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
55 |
5612
bf68550ececf
(menu-bar-file-menu): Add rmail, gnus, calendar items.
Richard M. Stallman <rms@gnu.org>
parents:
5473
diff
changeset
|
56 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar)) |
bf68550ececf
(menu-bar-file-menu): Add rmail, gnus, calendar items.
Richard M. Stallman <rms@gnu.org>
parents:
5473
diff
changeset
|
57 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) |
bf68550ececf
(menu-bar-file-menu): Add rmail, gnus, calendar items.
Richard M. Stallman <rms@gnu.org>
parents:
5473
diff
changeset
|
58 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
59 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
60 (define-key menu-bar-file-menu [separator-frames] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
61 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
62 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
63 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
64 (define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
65 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
66 (define-key menu-bar-file-menu [separator-buffers] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
67 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
68 |
4892
884b7620b60b
Added a define-key for menu-bar-bookmark-map, so that the File menu on
Karl Fogel <kfogel@red-bean.com>
parents:
4742
diff
changeset
|
69 (define-key menu-bar-file-menu [bookmark] |
6279
8ee9dcd3771e
Delete the `>' from various menu item strings.
Richard M. Stallman <rms@gnu.org>
parents:
6100
diff
changeset
|
70 '("Bookmarks" . menu-bar-bookmark-map)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
71 (define-key menu-bar-file-menu [print-buffer] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
72 '("Print Buffer" . print-buffer)) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
73 (define-key menu-bar-file-menu [kill-buffer] |
8773
573c8013896b
(menu-bar-file-menu): Rename "Kill Buffer" menu item.
Richard M. Stallman <rms@gnu.org>
parents:
8767
diff
changeset
|
74 '("Kill (Current) Buffer" . kill-this-buffer)) |
8229
e772982a087b
(menu-bar-file-menu): Add insert-file menu item.
Richard M. Stallman <rms@gnu.org>
parents:
8055
diff
changeset
|
75 (define-key menu-bar-file-menu [insert-file] |
e772982a087b
(menu-bar-file-menu): Add insert-file menu item.
Richard M. Stallman <rms@gnu.org>
parents:
8055
diff
changeset
|
76 '("Insert File" . insert-file)) |
8977
c8e2c62cf851
(vc-menu-map): New menu.
Richard M. Stallman <rms@gnu.org>
parents:
8809
diff
changeset
|
77 (define-key menu-bar-file-menu [vc-menu] |
c8e2c62cf851
(vc-menu-map): New menu.
Richard M. Stallman <rms@gnu.org>
parents:
8809
diff
changeset
|
78 (cons "Version Control" vc-menu-map)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
79 (define-key menu-bar-file-menu [revert-buffer] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
80 '("Revert Buffer" . revert-buffer)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
81 (define-key menu-bar-file-menu [write-file] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
82 '("Save Buffer As..." . write-file)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
83 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) |
4069
643048c8e307
(menu-bar-file-menu): Add menu item for dired.
Richard M. Stallman <rms@gnu.org>
parents:
4061
diff
changeset
|
84 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
85 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) |
8525
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
86 |
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
87 ;; This is just one element of the ediff menu--the first. |
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
88 (define-key menu-bar-ediff-menu [window] |
fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
Richard M. Stallman <rms@gnu.org>
parents:
8391
diff
changeset
|
89 '("This Window And Next Window" . compare-windows)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
90 |
5270
1136488153c0
(menu-bar-edit-menu): Add query-replace menu item.
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
91 (define-key menu-bar-edit-menu [query-replace] |
1136488153c0
(menu-bar-edit-menu): Add query-replace menu item.
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
92 '("Query Replace" . query-replace)) |
4941
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
93 (define-key menu-bar-edit-menu [re-search-back] |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
94 '("Regexp Search Backwards" . re-search-backward)) |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
95 (define-key menu-bar-edit-menu [search-back] |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
96 '("Search Backwards" . search-backward)) |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
97 (define-key menu-bar-edit-menu [re-search-fwd] |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
98 '("Regexp Search" . re-search-forward)) |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
99 (define-key menu-bar-edit-menu [search-fwd] |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
100 '("Search" . search-forward)) |
8010
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
101 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
102 (define-key menu-bar-edit-menu [separator-misc] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
103 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
104 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
105 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map)) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
106 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
107 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
108 (define-key menu-bar-edit-menu [separator-edit] |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
109 '("--")) |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
110 |
e199eda519b5
Rearrange the edit and file menus, and add separators.
Richard M. Stallman <rms@gnu.org>
parents:
7811
diff
changeset
|
111 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
112 |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
113 (define-key menu-bar-edit-menu [paste] '("Paste most recent" . yank)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
114 |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
115 (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
|
116 (fset 'yank-menu (cons 'keymap yank-menu)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
117 (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu)) |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
118 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
119 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
120 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
121 |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
122 (put 'fill-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
123 (put 'kill-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
124 (put 'kill-ring-save 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
125 (put 'yank 'menu-enable '(x-selection-exists-p)) |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
126 (put 'yank-menu 'menu-enable '(cdr yank-menu)) |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
127 (put 'delete-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
128 (put 'undo 'menu-enable '(if (eq last-command 'undo) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
129 pending-undo-list |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
130 (consp buffer-undo-list))) |
5270
1136488153c0
(menu-bar-edit-menu): Add query-replace menu item.
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
131 (put 'query-replace 'menu-enable (not buffer-read-only)) |
2175 | 132 |
4061
7279958409fe
(ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents:
4048
diff
changeset
|
133 (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
|
134 |
6699
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
135 ;; These are alternative definitions for the cut, paste and copy |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
136 ;; menu items. Use them if your system expects these to use the clipboard |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
137 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
138 (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
|
139 (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
|
140 (put 'clipboard-yank 'menu-enable |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
141 '(or (x-selection-exists-p) (x-selection-exists-p 'CLIPBOARD))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
142 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
143 (defun clipboard-yank () |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
144 "Reinsert the last stretch of killed text, or the clipboard contents." |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
145 (interactive) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
146 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
147 (yank))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
148 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
149 (defun clipboard-kill-ring-save (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
150 "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
|
151 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
152 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
153 (kill-ring-save beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
154 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
155 (defun clipboard-kill-region (beg end) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
156 "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
|
157 (interactive "r") |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
158 (let ((x-select-enable-clipboard t)) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
159 (kill-region beg end))) |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
160 |
59e74bc34228
(clipboard-yank, clipboard-kill-ring-save)
Richard M. Stallman <rms@gnu.org>
parents:
6513
diff
changeset
|
161 (defun menu-bar-enable-clipboard () |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
162 "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
|
163 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
|
164 (interactive) |
6948
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
165 ;; 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
|
166 ;; 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
|
167 (define-key menu-bar-edit-menu [paste] |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
168 (cons "Paste" 'clipboard-yank)) |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
169 (define-key menu-bar-edit-menu [copy] |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
170 (cons "Copy" 'clipboard-kill-ring-save)) |
54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
Richard M. Stallman <rms@gnu.org>
parents:
6843
diff
changeset
|
171 (define-key menu-bar-edit-menu [cut] |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
172 (cons "Cut" 'clipboard-kill-region)) |
6745
469d679ca338
(global-map): Bind function keys f16, f18 and f20,
Richard M. Stallman <rms@gnu.org>
parents:
6699
diff
changeset
|
173 |
8391
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
174 (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
|
175 (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
|
176 (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
|
177 ;; X11R6 versions |
bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
Richard M. Stallman <rms@gnu.org>
parents:
8347
diff
changeset
|
178 (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
|
179 (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
|
180 (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
|
181 |
7153
4e0683b070f8
(menu-bar-help-menu): Add item for emacs-version.
Richard M. Stallman <rms@gnu.org>
parents:
7150
diff
changeset
|
182 (define-key menu-bar-help-menu [emacs-version] |
4e0683b070f8
(menu-bar-help-menu): Add item for emacs-version.
Richard M. Stallman <rms@gnu.org>
parents:
7150
diff
changeset
|
183 '("Show Version" . emacs-version)) |
7154
47987d8aba3d
(menu-bar-help-menu): Add item for report-emacs-bug.
Richard M. Stallman <rms@gnu.org>
parents:
7153
diff
changeset
|
184 (define-key menu-bar-help-menu [report-emacs-bug] |
47987d8aba3d
(menu-bar-help-menu): Add item for report-emacs-bug.
Richard M. Stallman <rms@gnu.org>
parents:
7153
diff
changeset
|
185 '("Send Bug Report" . report-emacs-bug)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
186 (define-key menu-bar-help-menu [emacs-tutorial] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
187 '("Emacs Tutorial" . help-with-tutorial)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
188 (define-key menu-bar-help-menu [man] '("Man..." . manual-entry)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
189 (define-key menu-bar-help-menu [describe-variable] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
190 '("Describe Variable..." . describe-variable)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
191 (define-key menu-bar-help-menu [describe-function] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
192 '("Describe Function..." . describe-function)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
193 (define-key menu-bar-help-menu [describe-key] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
194 '("Describe Key..." . describe-key)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
195 (define-key menu-bar-help-menu [list-keybindings] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
196 '("List Keybindings" . describe-bindings)) |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
197 (define-key menu-bar-help-menu [command-apropos] |
2175 | 198 '("Command Apropos..." . command-apropos)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
199 (define-key menu-bar-help-menu [describe-mode] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
200 '("Describe Mode" . describe-mode)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
201 (define-key menu-bar-help-menu [info] '("Info" . info)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
202 |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
203 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news)) |
2175 | 204 (defun kill-this-buffer () ; for the menubar |
205 "Kills the current buffer." | |
206 (interactive) | |
207 (kill-buffer (current-buffer))) | |
208 | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
209 (defun kill-this-buffer-enabled-p () |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
210 (let ((count 0) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
211 (buffers (buffer-list))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
212 (while buffers |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
213 (or (string-match "^ " (buffer-name (car buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
214 (setq count (1+ count))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
215 (setq buffers (cdr buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
216 (> count 1))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
217 |
2175 | 218 (put 'save-buffer 'menu-enable '(buffer-modified-p)) |
4114
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
219 (put 'revert-buffer 'menu-enable |
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
220 '(or revert-buffer-function revert-buffer-insert-file-contents-function |
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
221 (and (buffer-file-name) |
4742
cafb372921c3
(revert-buffer): Enable menu item when the buffer is modified.
Roland McGrath <roland@gnu.org>
parents:
4668
diff
changeset
|
222 (or (buffer-modified-p) |
cafb372921c3
(revert-buffer): Enable menu item when the buffer is modified.
Roland McGrath <roland@gnu.org>
parents:
4668
diff
changeset
|
223 (not (verify-visited-file-modtime (current-buffer))))))) |
4337
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
224 ;; Permit deleting frame if it would leave a visible or iconified frame. |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
225 (put 'delete-frame 'menu-enable |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
226 '(let ((frames (frame-list)) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
227 (count 0)) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
228 (while frames |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
229 (if (cdr (assq 'visibility (frame-parameters (car frames)))) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
230 (setq count (1+ count))) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
231 (setq frames (cdr frames))) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
232 (> count 1))) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
233 (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
234 |
2175 | 235 (put 'advertised-undo 'menu-enable |
236 '(and (not (eq t buffer-undo-list)) | |
237 (if (eq last-command 'undo) | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
238 (and (boundp 'pending-undo-list) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
239 pending-undo-list) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
240 buffer-undo-list))) |
3795
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
241 |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
242 (defvar yank-menu-length 100 |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
243 "*Maximum length to display in the yank-menu.") |
3795
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
244 |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
245 (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
|
246 (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
|
247 (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
|
248 string |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
249 (substring string 0 yank-menu-length)))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
250 ;; 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
|
251 ;; 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
|
252 (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
|
253 (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
|
254 (progn |
8767
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
255 (setcar front string) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
256 (setcar (cdr front) menu-string)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
257 (setcdr yank-menu |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
258 (cons |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
259 (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
|
260 (cdr yank-menu))))) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
261 (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
|
262 (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
|
263 |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
264 (defun menu-bar-select-yank () |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
265 (interactive "*") |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
266 (push-mark (point)) |
441af4b664ac
(yank-menu): New variable; kill-ring in menu format.
Karl Heuer <kwzh@gnu.org>
parents:
8525
diff
changeset
|
267 (insert last-command-event)) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
268 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
269 (define-key global-map [menu-bar buffer] '("Buffers" . menu-bar-buffers)) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
270 |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
271 (defalias 'menu-bar-buffers (make-sparse-keymap "Buffers")) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
272 |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
273 (defvar buffers-menu-max-size 10 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
274 "*Maximum number of entries which may appear on the Buffers menu. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
275 If this is 10, then only the ten most-recently-selected buffers are shown. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
276 If this is nil, then all buffers are shown. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
277 A large number or nil slows down menu responsiveness.") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
278 |
4628
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
279 (defvar list-buffers-directory nil) |
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
280 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
281 (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
|
282 (interactive) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
283 (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
|
284 |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
285 (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
|
286 (interactive) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
287 (make-frame-visible last-command-event) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
288 (raise-frame last-command-event) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
289 (select-frame last-command-event)) |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
290 |
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
291 (defun menu-bar-update-buffers () |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
292 ;; 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
|
293 (and (lookup-key (current-global-map) [menu-bar buffer]) |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
294 (frame-or-buffer-changed-p) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
295 (let ((buffers (buffer-list)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
296 (frames (frame-list)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
297 buffers-menu frames-menu) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
298 ;; 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
|
299 (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
|
300 (> 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
|
301 (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
|
302 (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
|
303 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
304 ;; 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
|
305 (setq buffers-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
306 (cons "Select Buffer" |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
307 (let ((tail buffers) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
308 (maxbuf 0) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
309 (maxlen 0) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
310 alist |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
311 head) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
312 (while tail |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
313 (or (eq ?\ (aref (buffer-name (car tail)) 0)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
314 (setq maxbuf |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
315 (max maxbuf |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
316 (length (buffer-name (car tail)))))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
317 (setq tail (cdr tail))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
318 (setq tail buffers) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
319 (while tail |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
320 (let ((elt (car tail))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
321 (or (eq ?\ (aref (buffer-name elt) 0)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
322 (setq alist (cons |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
323 (cons |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
324 (format |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
325 (format "%%%ds %%s%%s %%s" |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
326 maxbuf) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
327 (buffer-name elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
328 (if (buffer-modified-p elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
329 "*" " ") |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
330 (save-excursion |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
331 (set-buffer elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
332 (if buffer-read-only "%" " ")) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
333 (or (buffer-file-name elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
334 (save-excursion |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
335 (set-buffer elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
336 list-buffers-directory) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
337 "")) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
338 elt) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
339 alist))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
340 (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
|
341 (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
|
342 (setq tail (cdr tail))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
343 (setq alist (nreverse alist)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
344 (nconc (mapcar '(lambda (pair) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
345 ;; This is somewhat risque, to use |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
346 ;; the buffer name itself as the event |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
347 ;; type to define, but it works. |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
348 ;; It would not work to use the buffer |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
349 ;; since a buffer as an event has its |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
350 ;; own meaning. |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
351 (nconc (list (buffer-name (cdr pair)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
352 (car pair) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
353 (cons nil nil)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
354 'menu-bar-select-buffer)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
355 alist) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
356 (list |
7811
81b1a17562fe
(menu-bar-update-buffers): Avoid excessive consing.
Karl Heuer <kwzh@gnu.org>
parents:
7745
diff
changeset
|
357 (cons |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
358 'list-buffers |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
359 (cons |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
360 (concat (make-string (max (- (/ maxlen 2) 8) 0) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
361 ?\ ) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
362 "List All Buffers") |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
363 'list-buffers))))))) |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
364 |
7239
385ac6718f28
(menu-bar-update-buffers): Fix misspelled variable.
Karl Heuer <kwzh@gnu.org>
parents:
7234
diff
changeset
|
365 |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
366 ;; 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
|
367 (if (cdr frames) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
368 (setq frames-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
369 (cons "Select Frame" |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
370 (mapcar '(lambda (frame) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
371 (nconc (list frame |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
372 (cdr (assq 'name |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
373 (frame-parameters frame))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
374 (cons nil nil)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
375 'menu-bar-select-frame)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
376 frames)))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
377 (if buffers-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
378 (setq buffers-menu (cons 'keymap buffers-menu))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
379 (if frames-menu |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
380 (setq frames-menu (cons 'keymap frames-menu))) |
8347
0fff2106fa43
(menu-bar-update-buffers): Use (current-global-map), not global-map.
Richard M. Stallman <rms@gnu.org>
parents:
8320
diff
changeset
|
381 (define-key (current-global-map) [menu-bar buffer] |
8316
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
382 (cons "Buffers" |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
383 (if (and buffers-menu frames-menu) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
384 (list 'keymap "Buffers and Frames" |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
385 (cons 'buffers (cons "Buffers" buffers-menu)) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
386 (cons 'frames (cons "Frames" frames-menu))) |
abf26f5c67e4
(menu-bar-update-buffers): If Buffers item is gone,
Richard M. Stallman <rms@gnu.org>
parents:
8229
diff
changeset
|
387 (or buffers-menu frames-menu 'undefined))))))) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
388 |
7150
b78bfe054561
Make a sub-keymap for the Buffers menu bar item.
Richard M. Stallman <rms@gnu.org>
parents:
6948
diff
changeset
|
389 (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
|
390 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
391 ;; this version is too slow |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
392 ;;;(defun format-buffers-menu-line (buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
393 ;;; "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
|
394 ;;;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
|
395 ;;; (if (string-match "\\` " (buffer-name buffer)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
396 ;;; nil |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
397 ;;; (save-excursion |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
398 ;;; (set-buffer buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
399 ;;; (let ((size (buffer-size))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
400 ;;; (format "%s%s %-19s %6s %-15s %s" |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
401 ;;; (if (buffer-modified-p) "*" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
402 ;;; (if buffer-read-only "%" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
403 ;;; (buffer-name) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
404 ;;; size |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
405 ;;; mode-name |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
406 ;;; (or (buffer-file-name) "")))))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
407 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
408 (defvar menu-bar-mode nil) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
409 |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
410 (defun menu-bar-mode (flag) |
3007
e41b3dc686bb
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2847
diff
changeset
|
411 "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
|
412 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
|
413 created in the future. |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
414 With a numeric argument, if the argument is negative, |
3007
e41b3dc686bb
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2847
diff
changeset
|
415 turn off menu bars; otherwise, turn on menu bars." |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
416 (interactive "P") |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
417 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
418 ;; 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
|
419 (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
|
420 (if default |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
421 (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
|
422 (setq default-frame-alist |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
423 (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
|
424 default-frame-alist)))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
425 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
426 ;; 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
|
427 (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
|
428 (> (prefix-numeric-value flag) 0))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
429 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
430 ;; 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
|
431 (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
|
432 (if (consp parameter) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
433 (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
|
434 (setq default-frame-alist |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
435 (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
|
436 default-frame-alist)))) |
4470
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
437 |
8055
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
438 ;; Apply it to existing frames. |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
439 (let ((frames (frame-list))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
440 (while frames |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
441 (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
|
442 (modify-frame-parameters (car frames) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
443 (list (cons 'menu-bar-lines |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
444 (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
|
445 (modify-frame-parameters (car frames) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
446 (list (cons 'height height)))) |
6a0af6085c1a
(menu-bar-mode): Make this a global variable.
Richard M. Stallman <rms@gnu.org>
parents:
8010
diff
changeset
|
447 (setq frames (cdr frames))))) |
2485 | 448 |
2765 | 449 (provide 'menu-bar) |
450 | |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
451 ;;; menu-bar.el ends here |