Mercurial > emacs
comparison lisp/emacs-lisp/re-builder.el @ 93674:44fab469d68d
* outline.el (outline-mode-menu-bar-map):
* term.el (terminal-signal-menu): Add :help.
* net/eudc.el (eudc-mode-map): Declare and define in one step.
(eudc-tail-menu, eudc-server-menu, eudc-tools-menu): Add :help.
* emacs-lisp/re-builder.el (reb-mode-map):
* textmodes/nroff-mode.el (nroff-mode-map): Add menus.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 04 Apr 2008 22:45:01 +0000 |
parents | eb3d659f5085 |
children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
93673:928315b10669 | 93674:44fab469d68d |
---|---|
230 (defconst reb-buffer "*RE-Builder*" | 230 (defconst reb-buffer "*RE-Builder*" |
231 "Buffer to use for the RE Builder.") | 231 "Buffer to use for the RE Builder.") |
232 | 232 |
233 ;; Define the local "\C-c" keymap | 233 ;; Define the local "\C-c" keymap |
234 (defvar reb-mode-map | 234 (defvar reb-mode-map |
235 (let ((map (make-sparse-keymap))) | 235 (let ((map (make-sparse-keymap)) |
236 (menu-map (make-sparse-keymap))) | |
236 (define-key map "\C-c\C-c" 'reb-toggle-case) | 237 (define-key map "\C-c\C-c" 'reb-toggle-case) |
237 (define-key map "\C-c\C-q" 'reb-quit) | 238 (define-key map "\C-c\C-q" 'reb-quit) |
238 (define-key map "\C-c\C-w" 'reb-copy) | 239 (define-key map "\C-c\C-w" 'reb-copy) |
239 (define-key map "\C-c\C-s" 'reb-next-match) | 240 (define-key map "\C-c\C-s" 'reb-next-match) |
240 (define-key map "\C-c\C-r" 'reb-prev-match) | 241 (define-key map "\C-c\C-r" 'reb-prev-match) |
241 (define-key map "\C-c\C-i" 'reb-change-syntax) | 242 (define-key map "\C-c\C-i" 'reb-change-syntax) |
242 (define-key map "\C-c\C-e" 'reb-enter-subexp-mode) | 243 (define-key map "\C-c\C-e" 'reb-enter-subexp-mode) |
243 (define-key map "\C-c\C-b" 'reb-change-target-buffer) | 244 (define-key map "\C-c\C-b" 'reb-change-target-buffer) |
244 (define-key map "\C-c\C-u" 'reb-force-update) | 245 (define-key map "\C-c\C-u" 'reb-force-update) |
246 (define-key map [menu-bar reb-mode] (cons "Re-Builder" menu-map)) | |
247 (define-key menu-map [rq] | |
248 '(menu-item "Quit" reb-quit | |
249 :help "Quit the RE Builder mode")) | |
250 (define-key menu-map [rt] | |
251 '(menu-item "Case sensitive" reb-toggle-case | |
252 :button (:toggle . case-fold-search) | |
253 :help "Toggle case sensitivity of searches for RE Builder target buffer.")) | |
254 (define-key menu-map [rb] | |
255 '(menu-item "Change target buffer..." reb-change-target-buffer | |
256 :help "Change the target buffer and display it in the target window")) | |
257 (define-key menu-map [rs] | |
258 '(menu-item "Change syntax..." reb-change-syntax | |
259 :help "Change the syntax used by the RE Builder")) | |
260 (define-key menu-map [re] | |
261 '(menu-item "Enter subexpression mode" reb-enter-subexp-mode | |
262 :help "Enter the subexpression mode in the RE Builder")) | |
263 (define-key menu-map [ru] | |
264 '(menu-item "Force update" reb-force-update | |
265 :help "Force an update in the RE Builder target window without a match limit")) | |
266 (define-key menu-map [rn] | |
267 '(menu-item "Go to next match" reb-next-match | |
268 :help "Go to next match in the RE Builder target window")) | |
269 (define-key menu-map [rp] | |
270 '(menu-item "Go to previous match" reb-prev-match | |
271 :help "Go to previous match in the RE Builder target window")) | |
272 (define-key menu-map [rc] | |
273 '(menu-item "Copy current RE" reb-copy | |
274 :help "Copy current RE into the kill ring for later insertion")) | |
245 map) | 275 map) |
246 "Keymap used by the RE Builder.") | 276 "Keymap used by the RE Builder.") |
247 | 277 |
248 (defun reb-mode () | 278 (defun reb-mode () |
249 "Major mode for interactively building Regular Expressions. | 279 "Major mode for interactively building Regular Expressions. |