21 lines
702 B
EmacsLisp
21 lines
702 B
EmacsLisp
|
;;; 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.
|
||
|
|
(set (make-local-variable #'comment-start) (string asm-comment-char)))
|
||
|
|
|
||
|
|
(provide 'module-asm)
|
||
|
|
;;; module-asm.el ends here
|