annotate lisp/menu-bar.el @ 5270:1136488153c0

(menu-bar-edit-menu): Add query-replace menu item. Make a menu-enable property for query-replace.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 03:19:05 +0000
parents 9cde7d7fea1f
children e080a27c1dd6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
9cde7d7fea1f Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 4941
diff changeset
4 ;; Keywords: internal
2488
278580be9b4a Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2485
diff changeset
5
2485
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
6 ;; Copyright (C) 1993 Free Software Foundation, Inc.
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
7
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
8 ;; This file is part of GNU Emacs.
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
9
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
13 ;; any later version.
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
14
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
18 ;; GNU General Public License for more details.
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
19
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
20 ;; You should have received a copy of the GNU General Public License
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
23
2488
278580be9b4a Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2485
diff changeset
24 ;;; Code:
2485
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
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
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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))
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
44 (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
45 '("Bookmarks..." . menu-bar-bookmark-map))
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
46 (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
47 (define-key menu-bar-file-menu [revert-buffer]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
48 '("Revert Buffer" . revert-buffer))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
49 (define-key menu-bar-file-menu [write-file]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
50 '("Save Buffer As..." . write-file))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
51 (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
52 (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
53 (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
54 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame))
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
4061
7279958409fe (ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents: 4048
diff changeset
56 (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
57 (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
58 (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
59 (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
60 '("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
61 (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
62 '("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
63 (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
64 '("Search Backwards" . search-backward))
74c118ef608c (menu-bar-edit-menu): Add menu items for searching.
Richard M. Stallman <rms@gnu.org>
parents: 4892
diff changeset
65 (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
66 '("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
67 (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
68 '("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
69 (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
70 '("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
71 (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
72 (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
73 (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
74 (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
75
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
76 (put 'fill-region 'menu-enable 'mark-active)
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
77 (put 'kill-region 'menu-enable 'mark-active)
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
78 (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
79 (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
80 (put 'delete-region 'menu-enable 'mark-active)
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
81 (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
82 pending-undo-list
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
83 (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
84 (put 'query-replace 'menu-enable (not buffer-read-only))
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
4061
7279958409fe (ispell-menu-map): New autoload definition.
Richard M. Stallman <rms@gnu.org>
parents: 4048
diff changeset
86 (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
87
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
88 (define-key menu-bar-help-menu [emacs-tutorial]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
89 '("Emacs Tutorial" . help-with-tutorial))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
90 (define-key menu-bar-help-menu [man] '("Man..." . manual-entry))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
91 (define-key menu-bar-help-menu [describe-variable]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
92 '("Describe Variable..." . describe-variable))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
93 (define-key menu-bar-help-menu [describe-function]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
94 '("Describe Function..." . describe-function))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
95 (define-key menu-bar-help-menu [describe-key]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
96 '("Describe Key..." . describe-key))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
97 (define-key menu-bar-help-menu [list-keybindings]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
98 '("List Keybindings" . describe-bindings))
2177
942a63709e37 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2175
diff changeset
99 (define-key menu-bar-help-menu [command-apropos]
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 '("Command Apropos..." . command-apropos))
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
101 (define-key menu-bar-help-menu [describe-mode]
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
102 '("Describe Mode" . describe-mode))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
103 (define-key menu-bar-help-menu [info] '("Info" . info))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
104
2177
942a63709e37 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2175
diff changeset
105 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news))
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 (defun kill-this-buffer () ; for the menubar
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 "Kills the current buffer."
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 (interactive)
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 (kill-buffer (current-buffer)))
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
111 (defun kill-this-buffer-enabled-p ()
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
112 (let ((count 0)
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
113 (buffers (buffer-list)))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
114 (while buffers
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
115 (or (string-match "^ " (buffer-name (car buffers)))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
116 (setq count (1+ count)))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
117 (setq buffers (cdr buffers)))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
118 (> count 1)))
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
119
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (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
121 (put 'revert-buffer 'menu-enable
5746e25610f8 (revert-buffer): Make menu-enable form more accurate
Richard M. Stallman <rms@gnu.org>
parents: 4101
diff changeset
122 '(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
123 (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
124 (or (buffer-modified-p)
cafb372921c3 (revert-buffer): Enable menu item when the buffer is modified.
Roland McGrath <roland@gnu.org>
parents: 4668
diff changeset
125 (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
126 ;; 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
127 (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
128 '(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
129 (count 0))
cda282328afd (delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents: 4160
diff changeset
130 (while frames
cda282328afd (delete-frame): Permit it, if > 1 frame is vis or iconic.
Richard M. Stallman <rms@gnu.org>
parents: 4160
diff changeset
131 (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
132 (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
133 (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
134 (> count 1)))
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
135 (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
136
2175
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (put 'advertised-undo 'menu-enable
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 '(and (not (eq t buffer-undo-list))
61d3483521d7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (if (eq last-command 'undo)
2178
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
140 (and (boundp 'pending-undo-list)
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
141 pending-undo-list)
76da020d14f8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2177
diff changeset
142 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
143
d59af8c9bc65 (mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents: 3504
diff changeset
144 (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
145 "*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
146 \\[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
147
d59af8c9bc65 (mouse-menu-choose-yank): New function. Put it in the edit menu.
Richard M. Stallman <rms@gnu.org>
parents: 3504
diff changeset
148 (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
149 "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
150 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
151 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
152 (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
153 (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
154 (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
155 (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
156 (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
157 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
158 (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
159 (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
160 kill-ring))
877f540d9717 (mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents: 3898
diff changeset
161 (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
162 (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
163 (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
164 ;; 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
165 ;; 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
166 ;; 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
167 (if arg
877f540d9717 (mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents: 3898
diff changeset
168 (progn
877f540d9717 (mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents: 3898
diff changeset
169 (rotate-yank-pointer arg)
877f540d9717 (mouse-menu-choose-yank): Just return when x-popup-menu returns nil.
Roland McGrath <roland@gnu.org>
parents: 3898
diff changeset
170 (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
171 (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
172 (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
173 (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring)
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
174
3412
7d9b10bea55f (mouse-menu-bar-buffers): Renamed from mouse-buffer-menu.
Richard M. Stallman <rms@gnu.org>
parents: 3007
diff changeset
175 (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
176
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
177 (defvar complex-buffers-menu-p nil
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
178 "*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
179 This applies to the Buffers menu from the menu bar.")
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
180
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
181 (defvar buffers-menu-max-size 10
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
182 "*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
183 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
184 If this is nil, then all buffers are shown.
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
185 A large number or nil slows down menu responsiveness.")
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
186
4628
e55cc9fdaa92 (list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 4603
diff changeset
187 (defvar list-buffers-directory nil)
e55cc9fdaa92 (list-buffers-directory): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 4603
diff changeset
188
3412
7d9b10bea55f (mouse-menu-bar-buffers): Renamed from mouse-buffer-menu.
Richard M. Stallman <rms@gnu.org>
parents: 3007
diff changeset
189 (defun mouse-menu-bar-buffers (event)
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
190 "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
191 This switches buffers in the window that you clicked on,
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
192 and selects that window."
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
193 (interactive "e")
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
194 (let ((buffers (buffer-list))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
195 menu)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
196 ;; If requested, list only the N most recently selected buffers.
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
197 (if (and (integerp buffers-menu-max-size)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
198 (> buffers-menu-max-size 1))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
199 (if (> (length buffers) buffers-menu-max-size)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
200 (setcdr (nthcdr buffers-menu-max-size buffers) nil)))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
201 (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
202 (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
203 (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
204 (maxbuf 0)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
205 (maxlen 0)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
206 head)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
207 (while tail
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
208 (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
209 (setq maxbuf
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
210 (max maxbuf
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
211 (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
212 (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
213 (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
214 (while tail
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
215 (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
216 (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
217 (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
218 (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
219 (cons
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
220 (format
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
221 (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
222 maxbuf)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
223 (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
224 (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
225 "*" " ")
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
226 (save-excursion
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
227 (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
228 (if buffer-read-only "%" " "))
4603
eb7d8f0543ab (mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents: 4470
diff changeset
229 (or (buffer-file-name elt)
eb7d8f0543ab (mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents: 4470
diff changeset
230 (save-excursion
eb7d8f0543ab (mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents: 4470
diff changeset
231 (set-buffer elt)
eb7d8f0543ab (mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents: 4470
diff changeset
232 list-buffers-directory)
eb7d8f0543ab (mouse-menu-bar-buffers): Use list-buffers-directory.
Richard M. Stallman <rms@gnu.org>
parents: 4470
diff changeset
233 ""))
4160
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
234 elt)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
235 head)))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
236 (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
237 (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
238 (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
239 (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
240 (list (cons
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
241 (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
242 2)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
243 8)
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
244 0) ?\ )
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
245 "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
246 'list-buffers))))))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
247 (setq menu (list menu))
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
248
4160
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
249 (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
250 (setq menu
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
251 (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
252 (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
253 (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
254 (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
255 frame))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
256 (frame-list)))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
257 menu)))
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 (cons "Buffer and Frame Menu" menu))
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
259
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
260 (let ((buf (x-popup-menu (if (listp event) event
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
261 (cons '(0 0) (selected-frame)))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
262 menu))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
263 (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
264 (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
265 (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
266 (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
267 (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
268 ((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
269 (list-buffers))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
270 (buf
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
271 (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
272 (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
273 (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
274 (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
275 '("Buffer Action"
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
276 (""
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
277 ("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
278 ("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
279 ("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
280 (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
281 (save-excursion
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
282 (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
283 (save-buffer))
4c4910d66232 (mouse-menu-bar-buffers): Add Frames pane if there are multiple panes.
Roland McGrath <roland@gnu.org>
parents: 4114
diff changeset
284 (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
285 (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
286 (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
287 (switch-to-buffer buf)))))))
2181
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
288
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
289 ;; this version is too slow
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
290 ;;;(defun format-buffers-menu-line (buffer)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
291 ;;; "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
292 ;;;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
293 ;;; (if (string-match "\\` " (buffer-name buffer))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
294 ;;; nil
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
295 ;;; (save-excursion
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
296 ;;; (set-buffer buffer)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
297 ;;; (let ((size (buffer-size)))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
298 ;;; (format "%s%s %-19s %6s %-15s %s"
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
299 ;;; (if (buffer-modified-p) "*" " ")
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
300 ;;; (if buffer-read-only "%" " ")
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
301 ;;; (buffer-name)
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
302 ;;; size
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
303 ;;; mode-name
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
304 ;;; (or (buffer-file-name) ""))))))
5a9d9dcc4750 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 2178
diff changeset
305
2847
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
306 (defun menu-bar-mode (flag)
3007
e41b3dc686bb (menu-bar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 2847
diff changeset
307 "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
308 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
309 created in the future.
01a46a8f1e1b (fill-region, kill-region, delete-region)
Richard M. Stallman <rms@gnu.org>
parents: 2765
diff changeset
310 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
311 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
312 (interactive "P")
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
313 (if flag (setq flag (prefix-numeric-value flag)))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
314
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
315 ;; 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
316 (let ((menu-bar-mode
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
317 (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
318 (if assq (cdr assq) 0))))))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
319
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
320 ;; Tweedle it according to the argument.
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
321 (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
322 (or (not (numberp flag)) (>= flag 0))))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
323
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
324 ;; Apply it to default-frame-alist.
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
325 (let ((parameter (assq 'menu-bar-lines default-frame-alist)))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
326 (if (consp parameter)
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
327 (setcdr parameter (if menu-bar-mode 1 0))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
328 (setq default-frame-alist
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
329 (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
330 default-frame-alist))))
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 existing frames.
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
333 (let ((frames (frame-list)))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
334 (while frames
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
335 (modify-frame-parameters (car frames)
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
336 (list (cons 'menu-bar-lines
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
337 (if menu-bar-mode 1 0))))
6dd518d1f5aa (menu-bar-mode): Defvar removed.
Roland McGrath <roland@gnu.org>
parents: 4337
diff changeset
338 (setq frames (cdr frames))))))
2485
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
339
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
340 ;; 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
341 (if window-system
78c1c1e9f4d2 (window-system): Enable menu bars only if
Richard M. Stallman <rms@gnu.org>
parents: 3412
diff changeset
342 (menu-bar-mode t))
2485
c34bbe650160 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 2181
diff changeset
343
2765
0eb1a195f56e Provide 'menu-bar.
Richard M. Stallman <rms@gnu.org>
parents: 2695
diff changeset
344 (provide 'menu-bar)
0eb1a195f56e Provide 'menu-bar.
Richard M. Stallman <rms@gnu.org>
parents: 2695
diff changeset
345
2488
278580be9b4a Added and corrected library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2485
diff changeset
346 ;;; menu-bar.el ends here