Mercurial > emacs
changeset 9385:297f0781c8ae
(asm-font-lock-keywords): New variable.
(asm-mode): Set font-lock-keywords locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Oct 1994 10:07:02 +0000 |
| parents | 798467725c8d |
| children | 17dfca2d42e2 |
| files | lisp/progmodes/asm-mode.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/asm-mode.el Fri Oct 07 10:05:49 1994 +0000 +++ b/lisp/progmodes/asm-mode.el Fri Oct 07 10:07:02 1994 +0000 @@ -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 @@ (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)