|
0
|
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)
|
