From 412665fe5bda811463cb5e60ae0acb9fe3e23472 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Tue, 12 Aug 2014 14:52:30 +0300 Subject: [PATCH] Use define-derived-mode to define elixir-mode --- elixir-mode.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/elixir-mode.el b/elixir-mode.el index cbbe6a7c..208c3219 100644 --- a/elixir-mode.el +++ b/elixir-mode.el @@ -535,15 +535,11 @@ Argument END End of the region." )) ;;;###autoload -(defun elixir-mode () - "Major mode for editing Elixir files." - (interactive) - (kill-all-local-variables) - (use-local-map elixir-mode-map) - (set-syntax-table elixir-mode-syntax-table) +(define-derived-mode elixir-mode prog-mode "Elixir" + "Major mode for editing Elixir code. + +\\{elixir-mode-map}" (set (make-local-variable 'font-lock-defaults) '(elixir-mode-font-lock-defaults)) - (setq major-mode 'elixir-mode) - (setq mode-name "Elixir") (set (make-local-variable 'comment-start) "# ") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'comment-use-syntax) t) @@ -553,9 +549,7 @@ Argument END End of the region." (set (make-local-variable 'syntax-propertize-function) 'elixir-syntax-propertize)) (smie-setup elixir-smie-grammar 'verbose-elixir-smie-rules ; 'elixir-smie-rules :forward-token 'elixir-smie-forward-token - :backward-token 'elixir-smie-backward-token) - (run-hooks 'elixir-mode-hook) - (run-hooks 'prog-mode-hook)) + :backward-token 'elixir-smie-backward-token)) (define-minor-mode elixir-cos-mode "Elixir mode toggle compile on save."