* 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 fdf366d9f3efe1b971daa7ec922d1b6a3b733041..81165d44e948b7768743fe8b39093c51ddd896d9 100644 (file)
--- 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 862a89e80b7bcdd997fa92c77079011460b14a07..a3134e351459b0172df1d2b930bb72d4ffc3deae 100644 (file)
--- 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