From 767b5393159c74e5ea5fe712f966255429b35a04 Mon Sep 17 00:00:00 2001 From: Wojciech Kozlowski Date: Sun, 15 Dec 2019 22:00:01 +0100 Subject: [PATCH] Make p4_16-mode derive from prog-mode --- external/p4_16-mode.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/external/p4_16-mode.el b/external/p4_16-mode.el index 6d8909a..ba65e5e 100644 --- a/external/p4_16-mode.el +++ b/external/p4_16-mode.el @@ -213,16 +213,12 @@ (require 'xcscope) ;; Put everything together -(defun p4_16-mode () +(define-derived-mode p4_16-mode prog-mode "P4_16" "Major mode for editing P4_16 programs" - (interactive) - (kill-all-local-variables) - (set-syntax-table p4_16-mode-syntax-table) + :syntax-table p4_16-mode-syntax-table (use-local-map p4_16-mode-map) (set (make-local-variable 'font-lock-defaults) '(p4_16-font-lock-keywords)) (set (make-local-variable 'indent-line-function) 'p4_16-indent-line) - (setq major-mode 'p4_16-mode) - (setq mode-name "P4_16") (setq imenu-generic-expression p4_16-imenu-generic-expression) ;; Setting this to nil causes indentation to use only space ;; characters, never tabs.