232 |
(define-key reb-mode-map "\C-c\C-b" 'reb-change-target-buffer) |
(define-key reb-mode-map "\C-c\C-b" 'reb-change-target-buffer) |
233 |
(define-key reb-mode-map "\C-c\C-u" 'reb-force-update))) |
(define-key reb-mode-map "\C-c\C-u" 'reb-force-update))) |
234 |
|
|
235 |
(define-derived-mode reb-mode nil "RE Builder" |
(defun reb-mode () |
236 |
"Major mode for interactively building Regular Expressions." |
"Major mode for interactively building Regular Expressions. |
237 |
(reb-mode-common)) |
\\{reb-mode-map}" |
238 |
|
(interactive) |
239 |
|
(kill-all-local-variables) |
240 |
|
(setq major-mode 'reb-mode |
241 |
|
mode-name "RE Builder") |
242 |
|
(use-local-map reb-mode-map) |
243 |
|
(reb-mode-common) |
244 |
|
(run-hooks 'reb-mode-hook)) |
245 |
|
|
246 |
(define-derived-mode reb-lisp-mode |
(define-derived-mode reb-lisp-mode |
247 |
emacs-lisp-mode "RE Builder Lisp" |
emacs-lisp-mode "RE Builder Lisp" |