# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1056523924 0
# Node ID abc46b69deaa31ff633e4ff8205ae7965db25007
# Parent  24b62b8f3def3ee14e7b5a42dcfe81bb426a0e93
* progmodes/asm-mode.el (asm-font-lock-keywords): Support
labels starting with "." and directives starting with ".".

diff -r 24b62b8f3def -r abc46b69deaa lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 24 18:16:37 2003 +0000
+++ b/lisp/ChangeLog	Wed Jun 25 06:52:04 2003 +0000
@@ -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 -r 24b62b8f3def -r abc46b69deaa lisp/progmodes/asm-mode.el
--- a/lisp/progmodes/asm-mode.el	Tue Jun 24 18:16:37 2003 +0000
+++ b/lisp/progmodes/asm-mode.el	Wed Jun 25 06:52:04 2003 +0000
@@ -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