diff options
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 3c98827df23..03b3b7b0ef2 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el | |||
| @@ -232,9 +232,16 @@ Except for Lisp syntax this is the same as `reb-regexp'.") | |||
| 232 | (define-key reb-mode-map "\C-c\C-b" 'reb-change-target-buffer) | 232 | (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))) | 233 | (define-key reb-mode-map "\C-c\C-u" 'reb-force-update))) |
| 234 | 234 | ||
| 235 | (define-derived-mode reb-mode nil "RE Builder" | 235 | (defun reb-mode () |
| 236 | "Major mode for interactively building Regular Expressions." | 236 | "Major mode for interactively building Regular Expressions. |
| 237 | (reb-mode-common)) | 237 | \\{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)) | ||
| 238 | 245 | ||
| 239 | (define-derived-mode reb-lisp-mode | 246 | (define-derived-mode reb-lisp-mode |
| 240 | emacs-lisp-mode "RE Builder Lisp" | 247 | emacs-lisp-mode "RE Builder Lisp" |