269 |
(define-key reb-lisp-mode-map "\C-c" |
(define-key reb-lisp-mode-map "\C-c" |
270 |
(lookup-key reb-mode-map "\C-c")) |
(lookup-key reb-mode-map "\C-c")) |
271 |
|
|
272 |
(defvar reb-subexp-mode-map |
(defvar reb-subexp-mode-map |
273 |
(let ((m (make-keymap))) |
(let ((m (make-keymap))) |
274 |
(suppress-keymap m) |
(suppress-keymap m) |
275 |
;; Again share the "\C-c" keymap for the commands |
;; Again share the "\C-c" keymap for the commands |
680 |
(progn (store-match-data firstmatch) |
(progn (store-match-data firstmatch) |
681 |
(reb-show-subexp (or subexp 0)))))) |
(reb-show-subexp (or subexp 0)))))) |
682 |
|
|
683 |
|
(provide 're-builder) |
684 |
|
|
685 |
;;; re-builder.el ends here |
;;; re-builder.el ends here |