Make p4_16-mode derive from prog-mode
This commit is contained in:
parent
8ed49aca41
commit
767b539315
8
external/p4_16-mode.el
vendored
8
external/p4_16-mode.el
vendored
@ -213,16 +213,12 @@
|
|||||||
(require 'xcscope)
|
(require 'xcscope)
|
||||||
|
|
||||||
;; Put everything together
|
;; Put everything together
|
||||||
(defun p4_16-mode ()
|
(define-derived-mode p4_16-mode prog-mode "P4_16"
|
||||||
"Major mode for editing P4_16 programs"
|
"Major mode for editing P4_16 programs"
|
||||||
(interactive)
|
:syntax-table p4_16-mode-syntax-table
|
||||||
(kill-all-local-variables)
|
|
||||||
(set-syntax-table p4_16-mode-syntax-table)
|
|
||||||
(use-local-map p4_16-mode-map)
|
(use-local-map p4_16-mode-map)
|
||||||
(set (make-local-variable 'font-lock-defaults) '(p4_16-font-lock-keywords))
|
(set (make-local-variable 'font-lock-defaults) '(p4_16-font-lock-keywords))
|
||||||
(set (make-local-variable 'indent-line-function) 'p4_16-indent-line)
|
(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)
|
(setq imenu-generic-expression p4_16-imenu-generic-expression)
|
||||||
;; Setting this to nil causes indentation to use only space
|
;; Setting this to nil causes indentation to use only space
|
||||||
;; characters, never tabs.
|
;; characters, never tabs.
|
||||||
|
Reference in New Issue
Block a user