Mercurial > emacs
annotate lisp/menu-bar.el @ 5617:0b312b3fa24e
(init_lread): Use Vinstallation_directory.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 17 Jan 1994 00:44:38 +0000 |
parents | bf68550ececf |
children | c4fff7ff8bdd |
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)) |
2175 | 38 |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
39 (define-key menu-bar-file-menu [exit-emacs] |
2175 | 40 '("Exit Emacs" . save-buffers-kill-emacs)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
41 (define-key menu-bar-file-menu [kill-buffer] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
42 '("Kill Buffer" . kill-this-buffer)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
43 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) |
5612
bf68550ececf
(menu-bar-file-menu): Add rmail, gnus, calendar items.
Richard M. Stallman <rms@gnu.org>
parents:
5473
diff
changeset
|
44 (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
|
45 (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
|
46 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) |
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
|
47 (define-key menu-bar-file-menu [bookmark] |
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
|
48 '("Bookmarks..." . menu-bar-bookmark-map)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
49 (define-key menu-bar-file-menu [print-buffer] '("Print Buffer" . print-buffer)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
50 (define-key menu-bar-file-menu [revert-buffer] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
51 '("Revert Buffer" . revert-buffer)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
52 (define-key menu-bar-file-menu [write-file] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
53 '("Save Buffer As..." . write-file)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
54 (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
|
55 (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
|
56 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
57 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) |
2175 | 58 |
4061
7279958409fe
(ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents:
4048
diff
changeset
|
59 (define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map)) |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
60 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
61 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) |
5270
1136488153c0
(menu-bar-edit-menu): Add query-replace menu item.
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
62 (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
|
63 '("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
|
64 (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
|
65 '("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
|
66 (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
|
67 '("Search Backwards" . search-backward)) |
74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents:
4892
diff
changeset
|
68 (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
|
69 '("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
|
70 (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
|
71 '("Search" . search-forward)) |
4025
92cd14c9ea80
(mouse-menu-choose-yank): Change menu title to "Choose Next Yank".
Roland McGrath <roland@gnu.org>
parents:
3958
diff
changeset
|
72 (define-key menu-bar-edit-menu [choose-next-paste] |
3958
3112c8925d39
(menu-bar-edit-menu): Rename menu item to
Richard M. Stallman <rms@gnu.org>
parents:
3955
diff
changeset
|
73 '("Choose Next Paste" . mouse-menu-choose-yank)) |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
74 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
75 (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
|
76 (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
|
77 (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
|
78 |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
79 (put 'fill-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
80 (put 'kill-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
81 (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
|
82 (put 'yank 'menu-enable '(x-selection-exists-p)) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
83 (put 'delete-region 'menu-enable 'mark-active) |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
84 (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
|
85 pending-undo-list |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
86 (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
|
87 (put 'query-replace 'menu-enable (not buffer-read-only)) |
2175 | 88 |
4061
7279958409fe
(ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents:
4048
diff
changeset
|
89 (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
|
90 |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
91 (define-key menu-bar-help-menu [emacs-tutorial] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
92 '("Emacs Tutorial" . help-with-tutorial)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
93 (define-key menu-bar-help-menu [man] '("Man..." . manual-entry)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
94 (define-key menu-bar-help-menu [describe-variable] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
95 '("Describe Variable..." . describe-variable)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
96 (define-key menu-bar-help-menu [describe-function] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
97 '("Describe Function..." . describe-function)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
98 (define-key menu-bar-help-menu [describe-key] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
99 '("Describe Key..." . describe-key)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
100 (define-key menu-bar-help-menu [list-keybindings] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
101 '("List Keybindings" . describe-bindings)) |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
102 (define-key menu-bar-help-menu [command-apropos] |
2175 | 103 '("Command Apropos..." . command-apropos)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
104 (define-key menu-bar-help-menu [describe-mode] |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
105 '("Describe Mode" . describe-mode)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
106 (define-key menu-bar-help-menu [info] '("Info" . info)) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
107 |
2177
942a63709e37
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2175
diff
changeset
|
108 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news)) |
2175 | 109 (defun kill-this-buffer () ; for the menubar |
110 "Kills the current buffer." | |
111 (interactive) | |
112 (kill-buffer (current-buffer))) | |
113 | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
114 (defun kill-this-buffer-enabled-p () |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
115 (let ((count 0) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
116 (buffers (buffer-list))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
117 (while buffers |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
118 (or (string-match "^ " (buffer-name (car buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
119 (setq count (1+ count))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
120 (setq buffers (cdr buffers))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
121 (> count 1))) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
122 |
2175 | 123 (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
|
124 (put 'revert-buffer 'menu-enable |
5746e25610f8
(revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents:
4101
diff
changeset
|
125 '(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
|
126 (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
|
127 (or (buffer-modified-p) |
cafb372921c3
(revert-buffer): Enable menu item when the buffer is modified.
Roland McGrath <roland@gnu.org>
parents:
4668
diff
changeset
|
128 (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
|
129 ;; 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
|
130 (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
|
131 '(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
|
132 (count 0)) |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
133 (while frames |
cda282328afd
(delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents:
4160
diff
changeset
|
134 (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
|
135 (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
|
136 (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
|
137 (> count 1))) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
138 (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
|
139 |
2175 | 140 (put 'advertised-undo 'menu-enable |
141 '(and (not (eq t buffer-undo-list)) | |
142 (if (eq last-command 'undo) | |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
143 (and (boundp 'pending-undo-list) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
144 pending-undo-list) |
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
145 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
|
146 |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
147 (defvar yank-menu-length 100 |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
148 "*Maximum length of an item in the menu for \ |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
149 \\[mouse-menu-choose-yank].") |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
150 |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
151 (defun mouse-menu-choose-yank (event) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
152 "Pop up a menu of the kill-ring for selection with the mouse. |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
153 The kill-ring-yank-pointer is moved to the selected element. |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
154 A subsequent \\[yank] yanks the choice just selected." |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
155 (interactive "e") |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
156 (let* ((count 0) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
157 (menu (mapcar (lambda (string) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
158 (if (> (length string) yank-menu-length) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
159 (setq string (substring string |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
160 0 yank-menu-length))) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
161 (prog1 (cons string count) |
d59af8c9bc65
(mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents:
3504
diff
changeset
|
162 (setq count (1+ count)))) |
3942
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
163 kill-ring)) |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
164 (arg (x-popup-menu event |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
165 (list "Yank Menu" |
4025
92cd14c9ea80
(mouse-menu-choose-yank): Change menu title to "Choose Next Yank".
Roland McGrath <roland@gnu.org>
parents:
3958
diff
changeset
|
166 (cons "Choose Next Yank" menu))))) |
3942
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
167 ;; A mouse click outside the menu returns nil. |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
168 ;; Avoid a confusing error from passing nil to rotate-yank-pointer. |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
169 ;; XXX should this perhaps do something other than simply return? -rm |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
170 (if arg |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
171 (progn |
5473
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
172 ;; We don't use `rotate-yank-pointer' because we want to move |
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
173 ;; relative to the beginning of kill-ring, not the current |
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
174 ;; position. Also, that would ask for any new X selection and |
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
175 ;; thus change the list of items the user just chose from, which |
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
176 ;; would be highly confusing. |
e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
Roland McGrath <roland@gnu.org>
parents:
5270
diff
changeset
|
177 (setq kill-ring-yank-pointer (nthcdr arg kill-ring)) |
3942
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
178 (if (interactive-p) |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
179 (message "The next yank will insert the selected text.") |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
180 (current-kill 0)))))) |
877f540d9717
(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents:
3898
diff
changeset
|
181 (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
182 |
3412
7d9b10bea55f
(mouse-menu-bar-buffers): Renamed from mouse-buffer-menu.
Richard M. Stallman <rms@gnu.org>
parents:
3007
diff
changeset
|
183 (define-key global-map [menu-bar buffer] '("Buffers" . mouse-menu-bar-buffers)) |
2178
76da020d14f8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2177
diff
changeset
|
184 |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
185 (defvar complex-buffers-menu-p nil |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
186 "*Non-nil says, offer a choice of actions after you pick a buffer. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
187 This applies to the Buffers menu from the menu bar.") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
188 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
189 (defvar buffers-menu-max-size 10 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
190 "*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
|
191 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
|
192 If this is nil, then all buffers are shown. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
193 A large number or nil slows down menu responsiveness.") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
194 |
4628
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
195 (defvar list-buffers-directory nil) |
e55cc9fdaa92
(list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
4603
diff
changeset
|
196 |
3412
7d9b10bea55f
(mouse-menu-bar-buffers): Renamed from mouse-buffer-menu.
Richard M. Stallman <rms@gnu.org>
parents:
3007
diff
changeset
|
197 (defun mouse-menu-bar-buffers (event) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
198 "Pop up a menu of buffers for selection with the mouse. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
199 This switches buffers in the window that you clicked on, |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
200 and selects that window." |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
201 (interactive "e") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
202 (let ((buffers (buffer-list)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
203 menu) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
204 ;; If requested, list only the N most recently selected buffers. |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
205 (if (and (integerp buffers-menu-max-size) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
206 (> buffers-menu-max-size 1)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
207 (if (> (length buffers) buffers-menu-max-size) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
208 (setcdr (nthcdr buffers-menu-max-size buffers) nil))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
209 (setq menu |
4160
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
210 (cons "Select Buffer" |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
211 (let ((tail buffers) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
212 (maxbuf 0) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
213 (maxlen 0) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
214 head) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
215 (while tail |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
216 (or (eq ?\ (aref (buffer-name (car tail)) 0)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
217 (setq maxbuf |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
218 (max maxbuf |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
219 (length (buffer-name (car tail)))))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
220 (setq tail (cdr tail))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
221 (setq tail buffers) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
222 (while tail |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
223 (let ((elt (car tail))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
224 (if (not (string-match "^ " |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
225 (buffer-name elt))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
226 (setq head (cons |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
227 (cons |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
228 (format |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
229 (format "%%%ds %%s%%s %%s" |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
230 maxbuf) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
231 (buffer-name elt) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
232 (if (buffer-modified-p elt) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
233 "*" " ") |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
234 (save-excursion |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
235 (set-buffer elt) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
236 (if buffer-read-only "%" " ")) |
4603
eb7d8f0543ab
(mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
4470
diff
changeset
|
237 (or (buffer-file-name elt) |
eb7d8f0543ab
(mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
4470
diff
changeset
|
238 (save-excursion |
eb7d8f0543ab
(mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
4470
diff
changeset
|
239 (set-buffer elt) |
eb7d8f0543ab
(mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
4470
diff
changeset
|
240 list-buffers-directory) |
eb7d8f0543ab
(mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents:
4470
diff
changeset
|
241 "")) |
4160
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
242 elt) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
243 head))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
244 (and head (> (length (car (car head))) maxlen) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
245 (setq maxlen (length (car (car head)))))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
246 (setq tail (cdr tail))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
247 (nconc (nreverse head) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
248 (list (cons |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
249 (concat (make-string (max (- (/ maxlen |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
250 2) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
251 8) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
252 0) ?\ ) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
253 "List All Buffers") |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
254 'list-buffers)))))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
255 (setq menu (list menu)) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
256 |
4160
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
257 (if (cdr (frame-list)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
258 (setq menu |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
259 (cons (cons "Select Frame" |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
260 (mapcar (lambda (frame) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
261 (cons (cdr (assq 'name |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
262 (frame-parameters frame))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
263 frame)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
264 (frame-list))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
265 menu))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
266 (setq menu (cons "Buffer and Frame Menu" menu)) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
267 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
268 (let ((buf (x-popup-menu (if (listp event) event |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
269 (cons '(0 0) (selected-frame))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
270 menu)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
271 (window (and (listp event) (posn-window (event-start event))))) |
4160
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
272 (cond ((framep buf) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
273 (make-frame-visible buf) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
274 (raise-frame buf) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
275 (select-frame buf)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
276 ((eq buf 'list-buffers) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
277 (list-buffers)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
278 (buf |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
279 (if complex-buffers-menu-p |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
280 (let ((action (x-popup-menu |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
281 (if (listp event) event |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
282 (cons '(0 0) (selected-frame))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
283 '("Buffer Action" |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
284 ("" |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
285 ("Save Buffer" . save-buffer) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
286 ("Kill Buffer" . kill-buffer) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
287 ("Select Buffer" . switch-to-buffer)))))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
288 (if (eq action 'save-buffer) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
289 (save-excursion |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
290 (set-buffer buf) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
291 (save-buffer)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
292 (funcall action buf))) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
293 (and (windowp window) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
294 (select-window window)) |
4c4910d66232
(mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents:
4114
diff
changeset
|
295 (switch-to-buffer buf))))))) |
2181
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
296 |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
297 ;; this version is too slow |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
298 ;;;(defun format-buffers-menu-line (buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
299 ;;; "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
|
300 ;;;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
|
301 ;;; (if (string-match "\\` " (buffer-name buffer)) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
302 ;;; nil |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
303 ;;; (save-excursion |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
304 ;;; (set-buffer buffer) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
305 ;;; (let ((size (buffer-size))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
306 ;;; (format "%s%s %-19s %6s %-15s %s" |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
307 ;;; (if (buffer-modified-p) "*" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
308 ;;; (if buffer-read-only "%" " ") |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
309 ;;; (buffer-name) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
310 ;;; size |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
311 ;;; mode-name |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
312 ;;; (or (buffer-file-name) "")))))) |
5a9d9dcc4750
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
2178
diff
changeset
|
313 |
2847
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
314 (defun menu-bar-mode (flag) |
3007
e41b3dc686bb
(menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2847
diff
changeset
|
315 "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
|
316 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
|
317 created in the future. |
01a46a8f1e1b
(fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents:
2765
diff
changeset
|
318 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
|
319 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
|
320 (interactive "P") |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
321 (if flag (setq flag (prefix-numeric-value flag))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
322 |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
323 ;; Obtain the current setting by looking at default-frame-alist. |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
324 (let ((menu-bar-mode |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
325 (not (zerop (let ((assq (assq 'menu-bar-lines default-frame-alist))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
326 (if assq (cdr assq) 0)))))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
327 |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
328 ;; Tweedle it according to the argument. |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
329 (setq menu-bar-mode (if (null flag) (not menu-bar-mode) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
330 (or (not (numberp flag)) (>= flag 0)))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
331 |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
332 ;; Apply it to default-frame-alist. |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
333 (let ((parameter (assq 'menu-bar-lines default-frame-alist))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
334 (if (consp parameter) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
335 (setcdr parameter (if menu-bar-mode 1 0)) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
336 (setq default-frame-alist |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
337 (cons (cons 'menu-bar-lines (if menu-bar-mode 1 0)) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
338 default-frame-alist)))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
339 |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
340 ;; Apply it to existing frames. |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
341 (let ((frames (frame-list))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
342 (while frames |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
343 (modify-frame-parameters (car frames) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
344 (list (cons 'menu-bar-lines |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
345 (if menu-bar-mode 1 0)))) |
6dd518d1f5aa
(menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents:
4337
diff
changeset
|
346 (setq frames (cdr frames)))))) |
2485 | 347 |
348 ;; Make frames created from now on have a menu bar. | |
3500
78c1c1e9f4d2
(window-system): Enable menu bars only if
Richard M. Stallman <rms@gnu.org>
parents:
3412
diff
changeset
|
349 (if window-system |
78c1c1e9f4d2
(window-system): Enable menu bars only if
Richard M. Stallman <rms@gnu.org>
parents:
3412
diff
changeset
|
350 (menu-bar-mode t)) |
2485 | 351 |
2765 | 352 (provide 'menu-bar) |
353 | |
2488
278580be9b4a
Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2485
diff
changeset
|
354 ;;; menu-bar.el ends here |