From 6b4b0a957d1f068236b0c86b7b72efa368d70b40 Mon Sep 17 00:00:00 2001
From: David Vazquez <davazp@gmail.com>
Date: Sat, 26 Sep 2015 11:41:33 +0200
Subject: [PATCH] Use the recommended macro `define-derived-mode'

This macro implements all the conventions for the major modes.
---
 puml-mode.el | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/puml-mode.el b/puml-mode.el
index 4c75bdb..8f22149 100644
--- a/puml-mode.el
+++ b/puml-mode.el
@@ -49,7 +49,11 @@
 
 (defvar puml-mode-version "0.4" "The puml-mode version string.")
 
-(defvar puml-mode-map nil "Keymap for puml-mode.")
+(defvar puml-mode-map
+  (let ((keymap (make-keymap)))
+    (define-key keymap (kbd "C-c C-c") 'puml-preview)
+    keymap)
+  "Keymap for puml-mode.")
 
 ;;; syntax table
 (defvar puml-mode-syntax-table
@@ -222,26 +226,12 @@
 (add-to-list 'auto-mode-alist '("\\.pum$" . puml-mode))
 
 ;;;###autoload
-(defun puml-mode ()
+(define-derived-mode puml-mode prog-mode "puml"
   "Major mode for plantuml.
 
 Shortcuts             Command Name
 \\[puml-complete-symbol]      `puml-complete-symbol'"
-
-  (interactive)
-  (kill-all-local-variables)
-
-;;  (python-mode) ; for indentation
-  (setq major-mode 'puml-mode
-        mode-name "puml")
-  (set-syntax-table puml-mode-syntax-table)
-  (use-local-map puml-mode-map)
-
-  (make-local-variable 'font-lock-defaults)
-  (setq font-lock-defaults '((puml-font-lock-keywords) nil t))
-  (local-set-key (kbd "C-c C-c") 'puml-preview)
-
-  (run-mode-hooks 'puml-mode-hook))
+  (setq font-lock-defaults '((puml-font-lock-keywords) nil t)))
 
 (provide 'puml-mode)
 ;;; puml-mode.el ends here