el/dot-emacs.el (apcalc-mode): Use the proper major-mode machinery.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 6d9e2f073ed5e5e705742edbe91f2b7c2ebf0fef..bb8ccaa0ec5e498d3a2a0b4503cbb2dd2c5f435b 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1669,12 +1669,8 @@ (defun mdw-fontify-c-and-c++ ()
 ;;;--------------------------------------------------------------------------
 ;;; AP calc mode.
 
-(defun apcalc-mode ()
-  (interactive)
-  (c-mode)
-  (setq major-mode 'apcalc-mode)
-  (setq mode-name "AP Calc")
-  (run-hooks 'apcalc-mode-hook))
+(define-derived-mode apcalc-mode c-mode "AP Calc"
+  "Major mode for editing Calc code.")
 
 (defun mdw-fontify-apcalc ()