45 |
;; call `reb-force-update' ("\C-c\C-u") which should reveal the error. |
;; call `reb-force-update' ("\C-c\C-u") which should reveal the error. |
46 |
|
|
47 |
;; The target buffer can be changed with `reb-change-target-buffer' |
;; The target buffer can be changed with `reb-change-target-buffer' |
48 |
;; ("\C-c\C-b"). Changing the target buffer automatically removes |
;; ("\C-c\C-b"). Changing the target buffer automatically removes |
49 |
;; the overlays from the old buffer and displays the new one in the |
;; the overlays from the old buffer and displays the new one in the |
50 |
;; target window. |
;; target window. |
51 |
|
|
229 |
"Buffer to use for the RE Builder.") |
"Buffer to use for the RE Builder.") |
230 |
|
|
231 |
;; Define the local "\C-c" keymap |
;; Define the local "\C-c" keymap |
232 |
(defvar reb-mode-map nil |
(defvar reb-mode-map |
233 |
|
(let ((map (make-sparse-keymap))) |
234 |
|
(define-key map "\C-c\C-c" 'reb-toggle-case) |
235 |
|
(define-key map "\C-c\C-q" 'reb-quit) |
236 |
|
(define-key map "\C-c\C-w" 'reb-copy) |
237 |
|
(define-key map "\C-c\C-s" 'reb-next-match) |
238 |
|
(define-key map "\C-c\C-r" 'reb-prev-match) |
239 |
|
(define-key map "\C-c\C-i" 'reb-change-syntax) |
240 |
|
(define-key map "\C-c\C-e" 'reb-enter-subexp-mode) |
241 |
|
(define-key map "\C-c\C-b" 'reb-change-target-buffer) |
242 |
|
(define-key map "\C-c\C-u" 'reb-force-update) |
243 |
|
map) |
244 |
"Keymap used by the RE Builder.") |
"Keymap used by the RE Builder.") |
245 |
|
|
|
(if (not reb-mode-map) |
|
|
(progn |
|
|
(setq reb-mode-map (make-sparse-keymap)) |
|
|
(define-key reb-mode-map "\C-c\C-c" 'reb-toggle-case) |
|
|
(define-key reb-mode-map "\C-c\C-q" 'reb-quit) |
|
|
(define-key reb-mode-map "\C-c\C-w" 'reb-copy) |
|
|
(define-key reb-mode-map "\C-c\C-s" 'reb-next-match) |
|
|
(define-key reb-mode-map "\C-c\C-r" 'reb-prev-match) |
|
|
(define-key reb-mode-map "\C-c\C-i" 'reb-change-syntax) |
|
|
(define-key reb-mode-map "\C-c\C-e" 'reb-enter-subexp-mode) |
|
|
(define-key reb-mode-map "\C-c\C-b" 'reb-change-target-buffer) |
|
|
(define-key reb-mode-map "\C-c\C-u" 'reb-force-update))) |
|
|
|
|
246 |
(defun reb-mode () |
(defun reb-mode () |
247 |
"Major mode for interactively building Regular Expressions. |
"Major mode for interactively building Regular Expressions. |
248 |
\\{reb-mode-map}" |
\\{reb-mode-map}" |
365 |
(reb-update-modestring)))) |
(reb-update-modestring)))) |
366 |
|
|
367 |
(defun reb-force-update () |
(defun reb-force-update () |
368 |
"Forces an update in the RE Builder target window without a match limit." |
"Force an update in the RE Builder target window without a match limit." |
369 |
(interactive) |
(interactive) |
370 |
|
|
371 |
(let ((reb-auto-match-limit nil)) |
(let ((reb-auto-match-limit nil)) |