# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1146035000 0
# Node ID 3f695578124ff0812bfbea014af7df174ae60b18
# Parent  6bc1222277e1ae796b00f17f0b594d8814ac94a3
(asm-mode, asm-mode-syntax-table): Add
support for "//" style comments. Remove `b' flag
from ?* in `asm-mode-syntax-table'.

diff -r 6bc1222277e1 -r 3f695578124f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 26 05:50:51 2006 +0000
+++ b/lisp/ChangeLog	Wed Apr 26 07:03:20 2006 +0000
@@ -1,3 +1,9 @@
+2006-04-26  Masatake YAMATO  <jet@gyve.org>
+
+	* progmodes/asm-mode.el (asm-mode, asm-mode-syntax-table): 
+	Add support for "//" style comments. Remove `b' flag
+	from ?* in `asm-mode-syntax-table'.
+
 2006-04-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* follow.el: Use (featurep 'xemacs) everywhere.
diff -r 6bc1222277e1 -r 3f695578124f lisp/progmodes/asm-mode.el
--- a/lisp/progmodes/asm-mode.el	Wed Apr 26 05:50:51 2006 +0000
+++ b/lisp/progmodes/asm-mode.el	Wed Apr 26 07:03:20 2006 +0000
@@ -62,9 +62,9 @@
 
 (defvar asm-mode-syntax-table
   (let ((st (make-syntax-table)))
-    (modify-syntax-entry ?\n ">" st)
-    (modify-syntax-entry ?/  ". 14b" st)
-    (modify-syntax-entry ?*  ". 23b" st)
+    (modify-syntax-entry ?\n "> b" st)
+    (modify-syntax-entry ?/  ". 124b" st)
+    (modify-syntax-entry ?*  ". 23" st)
     st)
   "Syntax table used while in Asm mode.")
 
@@ -136,14 +136,14 @@
   (use-local-map (nconc (make-sparse-keymap) asm-mode-map))
   (local-set-key (vector asm-comment-char) 'asm-comment)
   (set-syntax-table (make-syntax-table asm-mode-syntax-table))
-  (modify-syntax-entry	asm-comment-char "<")
+  (modify-syntax-entry	asm-comment-char "< b")
 
   (make-local-variable 'comment-start)
   (setq comment-start (string asm-comment-char))
   (make-local-variable 'comment-add)
   (setq comment-add 1)
   (make-local-variable 'comment-start-skip)
-  (setq comment-start-skip "\\(?:\\s<+\\|/\\*+\\)[ \t]*")
+  (setq comment-start-skip "\\(?:\\s<+\\|/[/*]+\\)[ \t]*")
   (make-local-variable 'comment-end-skip)
   (setq comment-end-skip "[ \t]*\\(\\s>\\|\\*+/\\)")
   (make-local-variable 'comment-end)