diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-11-20 23:41:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-11-20 23:41:41 +0000 |
| commit | dda7c01036c240695aec25598ae582800184c8c7 (patch) | |
| tree | c97b8c53e87b69b32e2dfcfc4d33c05c29b573b6 /lisp/emacs-lisp/lisp-mode.el | |
| parent | 1700f41d2005d62589a473df0bf44d4d81c7ec6e (diff) | |
| download | emacs-dda7c01036c240695aec25598ae582800184c8c7.tar.gz emacs-dda7c01036c240695aec25598ae582800184c8c7.tar.bz2 emacs-dda7c01036c240695aec25598ae582800184c8c7.zip | |
(lisp-mode, emacs-lisp-mode): Don't use define-derived-mode.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 38d607d3b25..95bfd0121f7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -297,7 +297,7 @@ All commands in `lisp-mode-shared-map' are inherited by this map.") :type 'hook :group 'lisp) -(define-derived-mode emacs-lisp-mode nil "Emacs-Lisp" +(defun emacs-lisp-mode () "Major mode for editing Lisp code to run in Emacs. Commands: Delete converts tabs to spaces as it moves back. @@ -305,8 +305,15 @@ Blank lines separate paragraphs. Semicolons start comments. \\{emacs-lisp-mode-map} Entry to this mode calls the value of `emacs-lisp-mode-hook' if that value is non-nil." + (interactive) + (kill-all-local-variables) + (use-local-map emacs-lisp-mode-map) + (set-syntax-table emacs-lisp-mode-syntax-table) + (setq major-mode 'emacs-lisp-mode) + (setq mode-name "Emacs-Lisp") (lisp-mode-variables) - (setq imenu-case-fold-search nil)) + (setq imenu-case-fold-search nil) + (run-hooks 'emacs-lisp-mode-hook)) (defvar lisp-mode-map (let ((map (make-sparse-keymap))) @@ -317,7 +324,7 @@ if that value is non-nil." "Keymap for ordinary Lisp mode. All commands in `lisp-mode-shared-map' are inherited by this map.") -(define-derived-mode lisp-mode nil "Lisp" +(defun lisp-mode () "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp. Commands: Delete converts tabs to spaces as it moves back. @@ -328,11 +335,20 @@ or to switch back to an existing one. Entry to this mode calls the value of `lisp-mode-hook' if that value is non-nil." + (interactive) + (kill-all-local-variables) + (use-local-map lisp-mode-map) + (setq major-mode 'lisp-mode) + (setq mode-name "Lisp") (lisp-mode-variables) - (set (make-local-variable 'comment-start-skip) + (make-local-variable 'comment-start-skip) + (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *") - (set (make-local-variable 'font-lock-keywords-case-fold-search) t) - (setq imenu-case-fold-search t)) + (make-local-variable 'font-lock-keywords-case-fold-search) + (setq font-lock-keywords-case-fold-search t) + (setq imenu-case-fold-search t) + (set-syntax-table lisp-mode-syntax-table) + (run-hooks 'lisp-mode-hook)) ;; This will do unless inf-lisp.el is loaded. (defun lisp-eval-defun (&optional and-go) |