2016-09-08 01:03:39 +02:00
|
|
|
;;; module-asm.el
|
|
|
|
|
|
|
|
|
|
(use-package asm-mode
|
|
|
|
|
:commands (mips-mode)
|
|
|
|
|
:mode ("\\.mips" . mips-mode)
|
|
|
|
|
:config
|
|
|
|
|
(define-derived-mode mips-mode asm-mode "MIPS"
|
|
|
|
|
"Major mode for editing MIPS assembler code."
|
|
|
|
|
;; Unset ; key.
|
|
|
|
|
(local-unset-key (vector asm-comment-char))
|
|
|
|
|
(set (make-local-variable #'asm-comment-char) ?#)
|
|
|
|
|
(local-set-key (vector asm-comment-char) #'asm-comment)
|
|
|
|
|
;; Update syntax for new comment char.
|
|
|
|
|
(set-syntax-table (make-syntax-table asm-mode-syntax-table))
|
|
|
|
|
(modify-syntax-entry asm-comment-char "< b")
|
|
|
|
|
;; Fix one level comments.
|
2016-09-09 12:57:49 +02:00
|
|
|
(set (make-local-variable #'comment-start) (string asm-comment-char))))
|
2016-09-08 01:03:39 +02:00
|
|
|
|
|
|
|
|
(provide 'module-asm)
|
|
|
|
|
;;; module-asm.el ends here
|
