# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 936247689 0
# Node ID f26b378dc6a23d8e3c28261023cbb389cb716be8
# Parent  f33ed95400267cfd5107d366e2b81b99d3c10ed4
(asm-mode): Set comment-start properly from asm-comment-char.
(asm-font-lock-keywords): Recognize instruction width suffixes.

diff -r f33ed9540026 -r f26b378dc6a2 lisp/progmodes/asm-mode.el
--- 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 "+ *$"))