From: Masatake YAMATO <jet@gyve.org>
Date: Wed, 25 Jun 2003 06:52:04 +0000 (+0000)
Subject: * progmodes/asm-mode.el (asm-font-lock-keywords): Support
X-Git-Tag: ttn-vms-21-2-B4~9574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1b559329fe82b2cfbbd124da7ca9ecce424eb17;p=emacs.git

* progmodes/asm-mode.el (asm-font-lock-keywords): Support
labels starting with "." and directives starting with ".".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fdf366d9f3e..81165d44e94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-20  Masatake YAMATO  <jet@gyve.org>
+
+	* progmodes/asm-mode.el (asm-font-lock-keywords): Support
+	labels starting with "." and directives starting with ".".
+
 2003-06-22  Andreas Schwab  <schwab@suse.de>
 
 	* emacs-lisp/easy-mmode.el (easy-mmode-define-navigation): Avoid
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index 862a89e80b7..a3134e35145 100644
--- a/lisp/progmodes/asm-mode.el
+++ b/lisp/progmodes/asm-mode.el
@@ -83,8 +83,14 @@
 (defconst asm-font-lock-keywords
  '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ \t]*\\(\\sw+\\(\\.\\sw+\\)*\\)?"
     (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t))
-   ("^\\((\\sw+)\\)?\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.\\sw+\\)*\\)"
-    2 font-lock-keyword-face))
+   ;; label started from ".".
+   ("^\\(\\.\\(\\sw\\|\\s_\\)+\\)\\>:"
+    1 font-lock-function-name-face)
+   ("^\\((\\sw+)\\)?\\s +\\(\\(\\.?\\sw\\|\\s_\\)+\\(\\.\\sw+\\)*\\)"
+    2 font-lock-keyword-face)
+   ;; directive started from ".".
+   ("^\\(\\.\\(\\sw\\|\\s_\\)+\\)\\>[^:]?"
+    1 font-lock-keyword-face))
  "Additional expressions to highlight in Assembler mode.")
 
 ;;;###autoload