From a4d8ed20e2944940ad7a31abc2730e7fbadbd5aa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Oct 1994 10:07:02 +0000 Subject: (asm-font-lock-keywords): New variable. (asm-mode): Set font-lock-keywords locally. --- lisp/progmodes/asm-mode.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/progmodes') diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el index 7362e739ade..a825fd4eca4 100644 --- a/lisp/progmodes/asm-mode.el +++ b/lisp/progmodes/asm-mode.el @@ -72,6 +72,12 @@ (define-key asm-mode-map "\C-m" 'asm-newline) ) +(defconst asm-font-lock-keywords + '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ \t]*\\(\\sw+\\)?" + (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t)) + ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\)" 1 font-lock-keyword-face)) + "Additional expressions to highlight in Assembler mode.") + (defvar asm-code-level-empty-comment-pattern nil) (defvar asm-flush-left-empty-comment-pattern nil) (defvar asm-inline-empty-comment-pattern nil) @@ -103,6 +109,8 @@ Special commands: (setq mode-name "Assembler") (setq major-mode 'asm-mode) (setq local-abbrev-table asm-mode-abbrev-table) + (make-local-variable 'font-lock-keywords) + (setq font-lock-keywords asm-font-lock-keywords) (make-local-variable 'asm-mode-syntax-table) (setq asm-mode-syntax-table (make-syntax-table)) (set-syntax-table asm-mode-syntax-table) -- cgit v1.2.1