Mercurial > emacs
changeset 25481:f26b378dc6a2
(asm-mode): Set comment-start properly from asm-comment-char.
(asm-font-lock-keywords): Recognize instruction width suffixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Sep 1999 04:48:09 +0000 |
| parents | f33ed9540026 |
| children | f1d437596538 |
| files | lisp/progmodes/asm-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/asm-mode.el Wed Sep 01 23:31:57 1999 +0000 +++ b/lisp/progmodes/asm-mode.el Thu Sep 02 04:48:09 1999 +0000 @@ -80,9 +80,9 @@ ) (defconst asm-font-lock-keywords - '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ \t]*\\(\\sw+\\)?" + '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ \t]*\\(\\sw+\\(\\.[lLwWbBsS]\\)?\\)?" (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t)) - ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\)" 1 font-lock-keyword-face)) + ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.[lLwWbBsS]\\)?\\)" 1 font-lock-keyword-face)) "Additional expressions to highlight in Assembler mode.") (defvar asm-code-level-empty-comment-pattern nil) @@ -133,7 +133,7 @@ ">" asm-mode-syntax-table) (let ((cs (regexp-quote (char-to-string asm-comment-char)))) (make-local-variable 'comment-start) - (setq comment-start (concat cs " ")) + (setq comment-start (concat (char-to-string asm-comment-char) " ")) (make-local-variable 'comment-start-skip) (setq comment-start-skip (concat cs "+[ \t]*")) (setq asm-inline-empty-comment-pattern (concat "^.+" cs "+ *$"))