From c1b559329fe82b2cfbbd124da7ca9ecce424eb17 Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Wed, 25 Jun 2003 06:52:04 +0000 Subject: [PATCH] * progmodes/asm-mode.el (asm-font-lock-keywords): Support labels starting with "." and directives starting with ".". --- lisp/ChangeLog | 5 +++++ lisp/progmodes/asm-mode.el | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) 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 + + * progmodes/asm-mode.el (asm-font-lock-keywords): Support + labels starting with "." and directives starting with ".". + 2003-06-22 Andreas Schwab * 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 -- 2.39.2