diff options
| author | Richard M. Stallman | 2001-11-20 23:43:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-20 23:43:55 +0000 |
| commit | ac5231e6bc15558c805a00bc69880ab0ba61cc3a (patch) | |
| tree | 6f378b5e11dc00ee5f1915b00b5018e2b513ef02 | |
| parent | dda7c01036c240695aec25598ae582800184c8c7 (diff) | |
| download | emacs-ac5231e6bc15558c805a00bc69880ab0ba61cc3a.tar.gz emacs-ac5231e6bc15558c805a00bc69880ab0ba61cc3a.zip | |
(reb-mode): Don't use define-derived-mode. Call kill-all-local-variables.
| -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" |