diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-07 10:07:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-07 10:07:02 +0000 |
| commit | a4d8ed20e2944940ad7a31abc2730e7fbadbd5aa (patch) | |
| tree | cd0c52e4347c154d7d9bfb700577763c58644dd8 /lisp/progmodes/asm-mode.el | |
| parent | 0ece5f43e3493c852e1093c948b7dc0280c57008 (diff) | |
| download | emacs-a4d8ed20e2944940ad7a31abc2730e7fbadbd5aa.tar.gz | |
(asm-font-lock-keywords): New variable.
(asm-mode): Set font-lock-keywords locally.
Diffstat (limited to 'lisp/progmodes/asm-mode.el')
| -rw-r--r-- | lisp/progmodes/asm-mode.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |