Mercurial > hg > xemacs-beta

comparison lisp/packages/big-menubar.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children ac2d302a0011
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;; big-menubar.el --- an alternate menubar
2
3 ;; Copyright (C) 1994 Free Software Foundation, Inc.
4
5 ;; Author: Dror Caspi <dcaspi@qualcomm.com>
6 ;; Modified by: jwz and allender and haydens@ll.mit.edu
7 ;; Keywords: mouse
8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24
25 ;;; Synched up with: Not in FSF.
26
27 ;;; Code:
28
29 ;;
30 ;; Remove redundant macro commands
31 ;;
32 (delete-menu-item '("Edit" "Start Macro Recording"))
33 (delete-menu-item '("Edit" "End Macro Recording"))
34 (delete-menu-item '("Edit" "Execute Last Macro"))
35
36 (defconst big-menubar
37 (purecopy-menubar
38 (list
39 (assoc "File" default-menubar)
40 (append
41 (assoc "Edit" default-menubar)
42 '("---"
43 ("Mark"
44 ["Here" set-mark-command t]
45 ["Word" mark-word t]
46 ["Sentence" mark-end-of-sentence t]
47 ["Paragraph" mark-paragraph t]
48 ["Page" mark-page t]
49 ["Balanced Expression" mark-sexp t]
50 ["Lisp Function" mark-defun t]
51 ["C Function" mark-c-function t]
52 ["Whole Buffer" mark-whole-buffer t]
53 )
54 "---"
55 ("Search"
56 ["Forward..." isearch-forward t]
57 ["Backward..." isearch-backward t]
58 "---"
59 ["Regexp Forward..." isearch-forward-regexp t]
60 ["Regexp Backward..." isearch-backward-regexp t]
61 "---"
62 ["Words Forward..." word-search-forward t]
63 ["Words Backward..." word-search-backward t]
64 )
65 ("Replace"
66 ["Query..." query-replace t]
67 ["Regexp Query..." query-replace-regexp t]
68 "---"
69 ["All..." replace-string t]
70 ["Regexp All..." replace-regexp t]
71 )
72 "---"
73 ("Transpose"
74 ["Characters" transpose-chars t]
75 ["Words" transpose-words t]
76 ["Lines" transpose-lines t]
77 ["Sentences" transpose-sentences t]
78 ["Paragraphs" transpose-paragraphs t]
79 ["Balanced Expressions" transpose-sexps t]
80 )
81 "---"
82 ("Register"
83 ["Copy to Register..." copy-to-register (mark)]
84 ["Paste Register..." insert-register t]
85 "---"
86 ["Save Point to Register" point-to-register t]
87 ["Jump to Register" register-to-point t]
88 )
89 ("Rectangles"
90 ["Kill Rectangle" kill-rectangle t]
91 ["Yank Rectangle" yank-rectangle t]
92 ["Rectangle to Register" copy-rectangle-to-register t]
93 ["Rectangle from Register" insert-register t]
94 )
95 "---"
96 ("Sort"
97 ["Lines" sort-lines (mark)]
98 ["Paragraphs" sort-paragraphs (mark)]
99 ["Pages" sort-pages (mark)]
100 ["Columns" sort-columns (mark)]
101 ["Regexp..." sort-regexp-fields (mark)]
102 )
103 ("Center"
104 ["Line" center-line t]
105 ["Paragraph" center-paragraph t]
106 ["Region" center-region (mark)]
107 )
108 ("Indent"
109 ["As Previous Line" indent-relative t]
110 ["To Column..." indent-to-column t]
111 "---"
112 ["Region" indent-region (mark)]
113 ["Balanced Expression" indent-sexp t]
114 ["C Expression" indent-c-exp t]
115 )
116 "---"
117 ("Narrow"
118 ["To Region" narrow-to-region (mark)]
119 ["To Page" narrow-to-page t]
120 "---"
121 ["Cancel" widen
122 (not (and (= (point-min) 1) (= (point-max) (1+ (buffer-size)))))]
123 )
124 ))
125 (assoc "Options" default-menubar)
126 '("Motion"
127 ["Goto Mark" exchange-point-and-mark (mark t)]
128 ["Goto Line..." goto-line t]
129 "---"
130 ["End of Balanced Parentheses ( )" forward-list t]
131 ["Beginning of Balanced Parentheses ( )" backward-list t]
132 ["Next Opening Parenthesis (" down-list t]
133 ["Previous Opening Parenthesis (" backward-up-list t]
134 ["Next Closing Parenthesis )" up-list t]
135 "---"
136 ["End of Balanced Expression" forward-sexp t]
137 ["Beginning of Balanced Expression" backward-sexp t]
138 "---"
139 ["End of Function" end-of-defun t]
140 ["Beginning of Function" beginning-of-defun t]
141 "---"
142 ["Next Page" forward-page t]
143 ["Previous Page" backward-page t]
144 "---"
145 ["End of Buffer" end-of-buffer t]
146 ["Beginning of Buffer" beginning-of-buffer t]
147 "---"
148 ["Save Current Position..." point-to-register t]
149 ["Goto Saved Position..." register-to-point t]
150 "---"
151 ["Set Marker..." set-user-marker t]
152 ["Goto Marker..." goto-user-marker t]
153 ["List Markers" list-markers t]
154 "---"
155 ["Set Goal Column" set-goal-column t]
156 ["Cancel Goal Column" (set-goal-column t) goal-column]
157 )
158 '("Run"
159 ["Compile..." compile t]
160 ["Kill Compilation" kill-compilation t]
161 "---"
162 ["Next Error" next-error t]
163 ["Previous Error" previous-error t]
164 ["Goto Error" compile-goto-error t]
165 "---"
166 ["GDB Debugger" gdb t]
167 )
168 '("Utilities"
169 ["Shell" shell t]
170 "---"
171 ("Mail"
172 ["Send" mail t]
173 ["Read" rmail t]
174 ["Read Folder..." rmail-input t]
175 )
176 ["Dired..." dired t]
177 "---"
178 ["Grep..." grep t]
179 ("Tags"
180 ["Set Tags Table File..." visit-tags-table t]
181 "---"
182 ["Show Occurrence..." find-tag t]
183 ["Show Occurrence (Other)..." find-tag-other-window t]
184 ["Next Occurrence" (find-tag nil) t]
185 ["Next Occurrence (Other)" (find-tag-other-window nil) t]
186 "---"
187 ["Search by Tags..." tags-search t]
188 ["Query Replace by Tags..." tags-query-replace t]
189 ["Continue Search/Replace" tags-loop-continue t]
190 "---"
191 ["Next File" next-file t]
192 "---"
193 ["List Tags in File..." list-tags t]
194 ["List Tags by Regexp..." tags-apropos t]
195 )
196 "---"
197 ("Spell Check"
198 ["Word" ispell-word t]
199 ["Complete Word" ispell-complete-word t]
200 ["Region" ispell-region t]
201 ["Whole Buffer" ispell-buffer t]
202 )
203 "---"
204 ("Compare Windows"
205 ["Exact Match" compare-windows t]
206 ["Ignore White Space" (compare-windows t) t]
207 )
208 "---"
209 ["Hex Edit File..." hexl-find-file t]
210 )
211 '("Macro"
212 ["Start Macro Recording" start-kbd-macro
213 (not defining-kbd-macro)]
214 ["End Macro Recording" end-kbd-macro defining-kbd-macro]
215 ["Name Last Macro..." name-last-kbd-macro last-kbd-macro]
216 ["Insert Macro in Buffer..." insert-kbd-macro t]
217 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
218 )
219 '("Buffers"
220 :filter buffers-menu-filter
221 ["List All Buffers" list-buffers t]
222 "---")
223 nil
224 (assoc "Help" default-menubar)
225 )))
226
227 (set-menubar big-menubar)