From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Oct 1994 10:07:02 +0000 (+0000)
Subject: (asm-font-lock-keywords): New variable.
X-Git-Tag: emacs-19.34~6469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4d8ed20e2944940ad7a31abc2730e7fbadbd5aa;p=emacs.git

(asm-font-lock-keywords): New variable.

(asm-mode): Set font-lock-keywords locally.
---

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)